1 ;;; BEGIN INCLUDE FILE emacs-internal-macros.incl.lisp
 2 
 3 ;;; Loads in e_internal_macros_
 4 
 5 ;;; HISTORY COMMENTS:
 6 ;;;  1) change(85-01-06,Margolin), approve(86-02-24,MCR7186),
 7 ;;;     audit(86-08-20,Harvey), install(86-08-20,MR12.0-1136):
 8 ;;;     Created.
 9 ;;;                                                      END HISTORY COMMENTS
10 
11 (%include defstruct)
12 (%include setf)
13 
14 (eval-when (compile eval)
15   (or (status feature e-internal-macros)
16       (load (catenate (car (namelist (truename infile)))
17                       ">e_internal_macros_")))
18   (sstatus feature e-internal-macros))
19 
20 (declare
21   (*expr e$get_temporary_seg e$release_temporary_seg
22          e_lap_$ggcharn e_lap_$gsubstr e_lap_$return-string e_lap_$rtrim
23          e_lap_$segnlindex e_lap_$write-string
24          exists-buffer get-buffer-state map-over-emacs-buffers
25          order-mark-last))
26 
27 (declare
28   (special buffer-file-dtcm             ;DTCM of the file associated with the current buffer
29            buffer-tempsegs              ;list of temp segs for current buffer
30            buffer-uid                   ;Multics UID of segment this buffer is "eq" to
31                                         ;for arch. comp, (UID . compname)
32            curline                      ;current line
33            curlinel                     ;length of current line
34            curpointpos                  ;# of chars to left of cursor on line
35            curstuff                     ;the current line (string or filecons)
36            firstline                    ;first line of buffer
37            known-buflist                ;list of defined buffers
38            lastline                     ;last line of current buffer
39            minibufferp                  ;non-nil if in minibuffer
40            tty-no-upmotionp             ;non-display terminal
41            work-string                  ;black-magic string containing open line
42            ))
43 
44 ;;; END INCLUDE FILE emacs-internal-macros.incl.lisp