Lines Matching +defs:kill +defs:buffer
77 ;; ebnf-print-buffer
81 ;; ebnf-spool-buffer
85 ;; ebnf-eps-buffer
98 ;; spool - The PostScript image is saved temporarily in an Emacs buffer.
109 ;; printouts). As ebnf2ps and ps-print use the same Emacs buffer to spool
112 ;; ebnf2ps use the same hook of ps-print in the `kill-emacs-hook' so that you
114 ;; waiting in the spool buffer. If you do attempt to exit with spooled
119 ;; The word "directory", "file", "buffer" or "region" in the command name
120 ;; determines how much of the buffer is printed:
126 ;; buffer - Print the entire buffer.
132 ;; ebnf-print-buffer - translate and print the entire buffer, and send it
139 ;; Note that `ebnf-eps-directory', `ebnf-eps-file', `ebnf-eps-buffer' and
148 ;; To translate and print your buffer, type
150 ;; M-x ebnf-print-buffer
156 ;; C-u M-x ebnf-print-buffer
169 ;; The prefix argument is also ignored by `ebnf-eps-buffer' and
174 ;; (global-set-key 'f22 'ebnf-print-buffer) ;f22 is prsc
441 ;; `ebnf-eps-buffer' or `ebnf-eps-region').
442 ;; It has effect only during `ebnf-eps-buffer' or
447 ;; It has effect only during `ebnf-eps-buffer' or
503 ;; For an example of EPS action when executing `ebnf-eps-buffer' or
562 ;; `ebnf-syntax-buffer' does a syntactic analysis of your EBNF in the current
563 ;; buffer.
568 ;; `ebnf-customize' activates a customization buffer for ebnf2ps options.
570 ;; `ebnf-syntax-directory', `ebnf-syntax-file', `ebnf-syntax-buffer',
1034 ;; of current buffer and generates an intermediate representation. The second
1877 See `ebnf-eps-buffer' and `ebnf-eps-region' commands."
2066 See also `ebnf-print-buffer'."
2070 (ebnf-directory 'ebnf-print-buffer directory))
2074 (defun ebnf-print-file (file &optional do-not-kill-buffer-when-done)
2077 If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
2080 See also `ebnf-print-buffer'."
2082 (ebnf-file 'ebnf-print-buffer file do-not-kill-buffer-when-done))
2086 (defun ebnf-print-buffer (&optional filename)
2087 "Generate and print a PostScript syntactic chart image of the buffer.
2104 Like `ebnf-print-buffer', but prints just the current region."
2120 See also `ebnf-spool-buffer'."
2124 (ebnf-directory 'ebnf-spool-buffer directory))
2128 (defun ebnf-spool-file (file &optional do-not-kill-buffer-when-done)
2131 If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
2134 See also `ebnf-spool-buffer'."
2136 (ebnf-file 'ebnf-spool-buffer file do-not-kill-buffer-when-done))
2140 (defun ebnf-spool-buffer ()
2141 "Generate and spool a PostScript syntactic chart image of the buffer.
2142 Like `ebnf-print-buffer' except that the PostScript image is saved in a
2143 local buffer to be sent to the printer later.
2153 Like `ebnf-spool-buffer', but spools just the current region.
2169 See also `ebnf-eps-buffer'."
2173 (ebnf-directory 'ebnf-eps-buffer directory))
2177 (defun ebnf-eps-file (file &optional do-not-kill-buffer-when-done)
2180 If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
2183 See also `ebnf-eps-buffer'."
2185 (ebnf-file 'ebnf-eps-buffer file do-not-kill-buffer-when-done))
2189 (defun ebnf-eps-buffer ()
2190 "Generate a PostScript syntactic chart image of the buffer in an EPS file.
2192 Generate an EPS file for each production in the buffer.
2250 See also `ebnf-syntax-buffer'."
2254 (ebnf-directory 'ebnf-syntax-buffer directory))
2258 (defun ebnf-syntax-file (file &optional do-not-kill-buffer-when-done)
2261 If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
2264 See also `ebnf-syntax-buffer'."
2266 (ebnf-file 'ebnf-syntax-buffer file do-not-kill-buffer-when-done))
2270 (defun ebnf-syntax-buffer ()
2271 "Do a syntactic analysis of the current buffer."
2746 (defvar ebnf-eps-buffer-name " *EPS*")
2750 (make-variable-buffer-local 'ebnf-eps-upper-x)
2752 (make-variable-buffer-local 'ebnf-eps-upper-y)
2754 (make-variable-buffer-local 'ebnf-eps-prod-width)
2756 (make-variable-buffer-local 'ebnf-eps-max-height)
2758 (make-variable-buffer-local 'ebnf-eps-max-width)
4214 (eps-buffer (get-buffer-create ebnf-eps-buffer-name))
4231 ;; generate production in EPS buffer
4233 (set-buffer eps-buffer)
4241 ;; insert EPS buffer in all buffer associated with production
4243 prod-width prod-height eps-buffer)
4245 (ebnf-eps-finish-and-write eps-buffer
4249 (set-buffer eps-buffer)
4250 (erase-buffer))
4252 ;; write and kill temporary buffers
4253 (ebnf-eps-write-kill-temp file-list t)
4261 ;; kill temporary buffers
4262 (kill-buffer eps-buffer)
4263 (ebnf-eps-write-kill-temp file-list nil)
4268 ;; write and kill temporary buffers
4269 (defun ebnf-eps-write-kill-temp (file-list write-p)
4271 (let ((buffer (get-buffer (concat " *" (car file-list) "*"))))
4272 (when buffer
4274 (ebnf-eps-finish-and-write buffer (car file-list)))
4275 (kill-buffer buffer)))
4279 ;; insert EPS buffer in all buffer associated with production
4281 prod-width prod-height eps-buffer)
4285 (set-buffer (get-buffer-create (concat " *" (car prod-list) "*")))
4289 ((zerop (buffer-size))
4314 (insert-buffer-substring eps-buffer))
4328 (ps-generate (current-buffer) (point-min) (point-max)
4633 (set-buffer (find-file-noselect (car files)))
4635 (setq buffer-backed-up t) ; Do not back it up.
4636 (save-buffer) ; Just save new version.
4637 (kill-buffer (current-buffer))
4641 (defun ebnf-file (fun file &optional do-not-kill-buffer-when-done)
4644 If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
4646 (set-buffer (find-file-noselect file))
4648 (or do-not-kill-buffer-when-done
4649 (kill-buffer (current-buffer))))
4720 (format "in buffer \"%s\"."
4721 (buffer-name)))))))))
4922 (set-buffer ps-spool-buffer)
4939 (defun ebnf-eps-finish-and-write (buffer filename)
4940 (when (buffer-modified-p buffer)
4942 (set-buffer buffer)
5541 (defun ebnf-buffer-substring (chars)
5542 (buffer-substring-no-properties
5555 (buffer-substring-no-properties
5568 (buffer-substring-no-properties (point) (ebnf-end-of-string)))