1 ;;; BEGIN INCLUDE FILE e-macros.incl.lisp
 2 
 3 ;;; Declares for use by Emacs programs and extenstions.  Also loads
 4 ;;; in e_macros_, which contains macro definitions.
 5 
 6 ;;; HISTORY COMMENTS:
 7 ;;;  1) change(85-01-01,Margolin), approve(86-02-24,MCR7186),
 8 ;;;     audit(86-08-12,Harvey), install(86-08-20,MR12.0-1136):
 9 ;;;     Written: New Year's Day 1985, by excerpting the old e-macros.incl.lisp
10 ;;;     and leaving out all the definitions and qwerty junk (don't ask).
11 ;;;  2) change(86-02-24,Margolin), approve(86-02-24,MCR7325),
12 ;;;     audit(86-08-12,Harvey), install(86-08-20,MR12.0-1136):
13 ;;;     Alphabetized declarations, and added more declarations for documented
14 ;;;     functions, and also for some undocumented functions.
15 ;;;                                                      END HISTORY COMMENTS
16 
17 (%include backquote)
18 
19 (declare                                          ;basic editor stuff
20   (*expr apply-catenate
21          assert-minor-mode backward-char backward-n-chars charlisten
22          charset-member command-abort command-quit
23          copy-region cur-hpos curline-as-string curbuf-as-string curchar
24          curline-as-string delete-char delete-word destroy-buffer-contents
25          dont-notice-modified-buffer e_cline_ e_lap_$reverse-search-string
26          e_lap_$trim empty-buffer-p error_table_ establish-local-var
27          exchange-point-and-mark firstlinep forward-char forward-n-chars
28          forward-regexp-search-in-line forward-search forward-search-in-line
29          get-char get-search-string go-to-beginning-of-buffer
30          go-to-beginning-of-line go-to-buffer go-to-end-of-buffer
31          go-to-end-of-line go-to-hpos go-to-mark go-to-or-create-buffer
32          insert-char insert-string kill-backwards-to-mark kill-forward-to-mark
33          kill-pop kill-to-end-of-line killsave-string lastlinep loadfile
34          looking-at lowercase map-over-emacs-commands mark-on-current-line-p
35          mark-reached merge-kills-forward merge-kills-reverse move-mark
36          minibuf-response minibuffer-clear
37          negate-minor-mode new-line next-line nullstringp pathname_
38          pathname_$component point-mark-to-string
39          point>markp prev-line printable process-char produce-named-mark-list
40          read-in-file release-mark reverse-search
41          register-local-var reverse-search-in-line
42          search-back-first-charset-line
43          search-back-first-not-charset-line search-failure-annunciator
44          search-for-first-charset-line search-for-first-not-charset-line
45          set-emacs-epilogue-handler set-buffer-self-destruct set-key
46          set-mark-here set-mark set-perm-key set-the-mark set-the-mark-here
47          skip-to-whitespace skip-to-whitespace-in-line
48          wipe-point-mark wipe-region write-out-file
49          trim-minibuf-response yesp yank)
50   (*fexpr define-autoload-lib))
51 
52 (declare                                          ;redisplay stuff
53   (*expr end-local-displays init-local-displays ring-tty-bell
54          local-display-generator local-display-generator-nnl
55          next-screen prev-screen local-display-current-line
56          find-buffer-in-window select-buffer-window window-info
57          select-buffer-find-window select-other-window select-window
58          buffer-on-display-in-window redisplay full-redisplay))
59 
60 (declare                                          ;extended stuff
61   (*expr forward-word backward-word skip-over-whitespace skip-back-whitespace
62          skip-over-whitespace-in-line skip-back-whitespace-in-line
63          skip-back-to-whitespace skip-to-whitespace rubout-char date
64          display-buffer-as-printout delete-white-sides lefthand-char
65          format-to-col whitespace-to-hpos line-is-blank decimal-rep
66          register-option minibuffer-clear))
67 
68 (declare (*lexpr display-error display-com-error display-error-noabort
69                  display-error-remark comout-get-output
70                  display-com-error-noabort minibuffer-print
71                  minibuffer-response trim-minibuffer-response
72                  intern-minibuffer-response minibuffer-remark
73                  minibuffer-print-noclear report-error report-error-noabort))
74 
75 (declare (special TAB NL SPACE ESC curpointpos current-buffer dont-stash
76                   numarg der-wahrer-mark fpathname fill-column completion-list
77                   curlinel BACKSPACE read-only-flag buffer-modified-flag
78                   previous-buffer current-buffer-mode env-dir process-dir
79                   minibuffer-end-string NLCHARSTRING undo null-pointer))
80 
81 ;;; Load in macro packages
82 (eval-when (eval compile)
83   (or (status feature e-defcom)
84       (progn (load (catenate (car (namelist (truename infile))) ">e_define_command_"))
85              (sstatus feature e-defcom)))
86   (or (status feature e-macros)
87       (load (catenate (car (namelist (truename infile))) ">e_macros_"))))
88 
89 ;;; END INCLUDE FILE e-macros.incl.lisp