Lines Matching +defs:make +defs:variable +defs:buffer +defs:local
55 ;; You can use a buffer interface instead of menus. It looks like a
56 ;; customization buffer. Basically, it has the same options found in the
57 ;; menu and some extra options, all this on a buffer.
66 ;; spool and to despool PostScript buffer. So, `printing' provides an
91 ;; The buffer *Printing Command Output* is where the `printing' log messages
93 ;; buffer *Printing Command Output*. A log entry has the following form:
119 ;; So, if something goes wrong, a good place to take a look is the buffer
120 ;; *Printing Command Output*. Don't forget to see also the buffer *Messages*,
209 ;; 1. Open a buffer (or use the *scratch* buffer).
214 ;; 3. Print this buffer with duplex turned on.
225 ;; 1. If you have a local printer, that is, a printer which is connected
232 ;; local system can get it to send to the printer.
234 ;; 3. Don't try to print a dynamic buffer, that is, a buffer which is
236 ;; message. Instead, save the dynamic buffer to a file or copy it in
237 ;; another buffer and, then, print the file or the new static buffer.
238 ;; An example of dynamic buffer is the *Messages* buffer.
327 ;; pr-ps-buffer-preview
328 ;; pr-ps-buffer-using-ghostscript
329 ;; pr-ps-buffer-print
330 ;; pr-ps-buffer-ps-print
351 ;; pr-printify-buffer
354 ;; pr-txt-buffer
387 ;; `pr-interface' buffer interface for printing package.
395 ;; `pr-toggle-*' toggle on/off some boolean variable.
396 ;; `pr-despool-*' despool the PostScript spooling buffer.
412 ;; `*-buffer*' process a buffer.
420 ;; `pr-ps-buffer-using-ghostscript'
421 ;; Use ghostscript to print a buffer.
427 ;; Toggle spooling buffer.
433 ;; Besides operating one buffer or region each time, you also can postpone
435 ;; temporary Emacs buffer. This way you can save banner pages between
441 ;; C-u M-x pr-ps-buffer-print RET
443 ;; The `pr-ps-buffer-print' command prompts you for a n-up printing number and
462 ;; you're in the *Summary* buffer, if you forget to switch to the *Article*
463 ;; buffer before printing, you'll get a nicely formatted list of article
465 ;; to switch from gnus *Summary* buffer first.
486 ;; (global-set-key "\C-cbp" 'pr-ps-buffer-print)
487 ;; (global-set-key "\C-cbx" 'pr-ps-buffer-preview)
488 ;; (global-set-key "\C-cbb" 'pr-ps-buffer-using-ghostscript)
538 ;; `pr-spool-p' Non-nil means spool printing in a buffer.
579 ;; `pr-buffer-name' Specify the name of the buffer interface for
582 ;; `pr-buffer-name-ignore' Specify a regexp list for buffer names to be
583 ;; ignored in interface buffer.
585 ;; `pr-buffer-verbose' Non-nil means to be verbose when editing a
586 ;; field in interface buffer.
597 ;; b) or use `set-variable' in your Emacs session, like:
599 ;; M-x set-variable RET pr-faces-p RET t RET
685 ;; 0. You can use a buffer interface instead of menus. It looks like the
686 ;; customization buffer. Basically, it has the same options found in the
687 ;; menu and some extra options, all this on a buffer.
692 ;; menu) or PostScript temporary file for a directory, a buffer, a region
697 ;; Instead of previewing each buffer, region or major mode at once, you
698 ;; can save temporarily the PostScript code generated in a buffer and
700 ;; spooling buffer in a temporary file and uses ghostview to preview it.
711 ;; or rmail, etc.) and you're in the *Summary* buffer, if you
712 ;; forget to switch to the *Article* buffer before printing,
715 ;; switch from gnus *Summary* buffer first.
737 ;; temporarily in a buffer instead of printing it or saving it in a file.
739 ;; of printing each buffer, region or major mode at once, you can save
740 ;; temporarily the PostScript code generated in a buffer and print it
742 ;; buffer directly on a printer. If you type C-u before choosing this
750 ;; in `pr-ps-printer-alist' variable (see it for documentation).
756 ;; buffer and you want to print them in a text printer, select this
757 ;; option. All control characters in your buffer or region will be
764 ;; 5. If you want to print a directory, buffer, region or major mode in a
769 ;; `pr-txt-printer-alist' variable (see it for documentation).
822 ;; mode. When this option is on, the `*-buffer*' commands will behave
823 ;; like `*-region*' commands, that is, `*-buffer*' commands will print
824 ;; only the region marked instead of all buffer.
827 ;; declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
991 ;; - `pr-path-alist' variable.
1006 ;; - `pr-path-style' variable.
1057 (or (fboundp 'make-temp-file) ; hacked from subr.el
1058 (defun make-temp-file (prefix &optional dir-flag suffix)
1079 (make-temp-name
1084 (make-directory file)
1089 ;; `make-temp-name' and `write-region', let's try again.
1108 (defalias 'pr-x-make-event 'make-event)
1268 $var environment variable expansion
1286 variable is used.
1321 This variable should be modified by customization engine. If this variable is
1356 `pr-txt-name' variable setting and for menu selection.
1409 This variable should be modified by customization engine. If this variable is
1469 This variable should be modified by customization engine. If this variable is
1509 `pr-ps-name' variable setting and for menu selection.
1611 This variable should be modified by customization engine. If this variable is
1743 (variable :tag "Other"))
1755 ;; hacked from `temporary-file-directory' variable in files.el
1943 variable should be nil."
1957 "*Non-nil means spool printing in a buffer."
1994 When this variable is non-nil, the `*-buffer*' commands will behave like
1995 `*-region*' commands, that is, `*-buffer*' commands will print only the region
1996 marked instead of all buffer."
2005 That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*'
2007 `*-buffer*' commands will print the current buffer and `*-region*' commands
2015 '((mh-folder-mode ; mh summary buffer
2022 (mh-letter-mode ; mh letter buffer
2029 (rmail-summary-mode ; rmail summary buffer
2032 (ps-article-subject ps-article-author buffer-name)
2036 (rmail-mode ; rmail buffer
2039 (ps-article-subject ps-article-author buffer-name)
2043 (gnus-summary-mode ; gnus summary buffer
2050 (gnus-article-mode ; gnus article buffer
2057 (Info-mode ; Info buffer
2067 (ps-article-subject ps-article-author buffer-name)
2077 *Summary* buffer, if you forget to switch to the *Article* buffer before
2080 *Summary* buffer first.
2100 Usually LPR-PRINT function prepares the environment or buffer
2102 process the buffer and send it to text printer.
2117 Usually PS-PRINT function prepares the environment or buffer
2119 process the buffer and send it to PostScript printer.
2133 LEFT-HEADER It's the left header part, it's a list of string, variable
2137 RIGHT-HEADER It's the right header part, it's a list of string, variable
2142 Non-nil means to kill all buffer local variable declared in
2153 (set (make-local-variable VARIABLE-SYM) (eval VALUE))
2208 (variable :tag "Other"))
2221 This variable should be modified by customization engine. If this variable is
2258 `pr-ps-utility' variable setting and for menu selection.
2346 This variable should be modified by customization engine. If this variable is
2438 (variable :tag "Other"))
2462 This variable is used to guess which vertical position should be locked the
2478 This variable is used to guess which horizontal position should be locked the
2489 nil nil nil ; inherits local kill-local
2513 nil nil ; local kill-local
2519 nil nil ; local kill-local
2530 `inherits-from:', the variable pr-file-landscape is set to nil
2538 declared local buffer.
2551 (set (make-local-variable VARIABLE) (eval VALUE))
2597 (variable :tag "Other"))
2684 (defcustom pr-buffer-name "*Printing Interface*"
2685 "*Specify the name of the buffer interface for printing package.
2693 (defcustom pr-buffer-name-ignore
2694 (list (regexp-quote pr-buffer-name) ; ignore printing interface buffer
2696 "*Specify a regexp list for buffer names to be ignored in interface buffer.
2707 (defcustom pr-buffer-verbose t
2708 "*Non-nil means to be verbose when editing a field in interface buffer.
2777 (let ((temp (get-buffer-create (make-temp-name " *Temp"))))
2779 (set-buffer temp)
2781 (kill-buffer temp))))
2831 pr-:help "Use buffer interface instead of menu interface")]
2841 :keys "\\[pr-ps-buffer-preview]"])
2843 ["1-up" (pr-ps-buffer-preview 1 t) t]
2844 ["2-up" (pr-ps-buffer-preview 2 t) t]
2845 ["4-up" (pr-ps-buffer-preview 4 t) t]
2846 ["Other..." (pr-ps-buffer-preview nil t)
2847 :keys "\\[pr-ps-buffer-preview]"])
2894 pr-:help "Despool PostScript buffer to printer or file (C-u)")])
2903 :keys "\\[pr-ps-buffer-ps-print]"])
2905 ["1-up" (pr-ps-buffer-ps-print 1 t) t]
2906 ["2-up" (pr-ps-buffer-ps-print 2 t) t]
2907 ["4-up" (pr-ps-buffer-ps-print 4 t) t]
2908 ["Other..." (pr-ps-buffer-ps-print nil t)
2909 :keys "\\[pr-ps-buffer-ps-print]"])
2956 pr-:help "Despool PostScript buffer to printer or file (C-u)")])
2967 ["Buffer" pr-printify-buffer t]
2973 ["Buffer" pr-txt-buffer t]
3105 "print-buffer")
3106 (dolist (item '("print-buffer" "print-region"
3107 "ps-print-buffer-faces" "ps-print-region-faces"
3108 "ps-print-buffer" "ps-print-region"))
3138 ;;;(global-set-key "\C-cbp" 'pr-ps-buffer-print)
3139 ;;;(global-set-key "\C-cbx" 'pr-ps-buffer-preview)
3140 ;;;(global-set-key "\C-cbb" 'pr-ps-buffer-using-ghostscript)
3200 0. You can use a buffer interface instead of menus. It looks like the
3201 customization buffer. Basically, it has the same options found in the
3202 menu and some extra options, all this on a buffer.
3207 menu) or PostScript temporary file for a directory, a buffer, a region
3212 Instead of previewing each buffer, region or major mode at once, you
3213 can save temporarily the PostScript code generated in a buffer and
3215 spooling buffer in a temporary file and uses ghostview to preview it.
3225 or rmail, etc.) and you're in the *Summary* buffer, if you
3226 forget to switch to the *Article* buffer before printing,
3229 switch from gnus *Summary* buffer first.
3250 temporarily in a buffer instead of printing it or saving it in a file.
3252 Instead of printing each buffer, region or major mode at once, you can
3253 save temporarily the PostScript code generated in a buffer and print it
3254 later. The option `Despool...' despools the PostScript spooling buffer
3263 in `pr-ps-printer-alist' variable (see it for documentation).
3269 buffer and you want to print them in a text printer, select this
3270 option. All control characters in your buffer or region will be
3277 5. If you want to print a directory, buffer, region or major mode in a
3282 variable (see it for documentation).
3335 mode. When this option is on, the `*-buffer*' commands will behave
3336 like `*-region*' commands, that is, `*-buffer*' commands will print
3337 only the region marked instead of all buffer.
3340 declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
3367 The printing interface buffer has the same functionality as the printing menu.
3369 file, n-up printing, etc.) are set and saved between priting buffer
3371 PostScript file and directory/buffer/region/mode processing; using menu, there
3372 are different value sets for PostScript file and directory/buffer/region/mode
3375 The printing interface buffer has the following sections:
3379 Here you can choose to print/preview a buffer, a directory or a PostScript
3385 Select a buffer from the current buffer list.
3388 If it's on, this means that the selected buffer has an active region,
3390 If it's off when a buffer is selected, this means that the selected
3391 buffer has no active region, so it'll not be possible to turn it on.
3393 If you want to process the whole buffer, let this option off.
3396 If it's on, this means that the selected buffer major mode is declared
3398 If it's off when a buffer is selected, this means that the selected
3399 buffer major mode isn't declared for major mode processing, so it'll
3408 or rmail, etc.) and you're in the *Summary* buffer, if you
3409 forget to switch to the *Article* buffer before printing,
3412 switch from gnus *Summary* buffer first.
3448 in `pr-ps-printer-alist' variable (see it for documentation).
3454 If it's turned on, specify to despools the PostScript spooling buffer in
3465 Quit from printing interface buffer.
3481 all text printers defined in `pr-txt-printer-alist' variable (see it for
3486 buffer and you want to print them in a text printer, select this
3487 option. All control characters in your buffer or region will be
3495 To print a directory, buffer, region or major mode in a
3499 Quit from printing interface buffer.
3538 mode. When this option is on, the `*-buffer*' commands will behave
3539 like `*-region*' commands, that is, `*-buffer*' commands will print
3540 only the region marked instead of all buffer.
3544 declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
3577 That is, to be verbose when editing a field in interface buffer.
3591 Quick help for printing interface buffer and printing menu layout. You can
3592 also quit the printing interface buffer or kill all printing help buffer.
3594 "Printing buffer interface help message.")
3602 (defun pr-interface (&optional buffer)
3603 "Activate the printing interface buffer.
3605 If BUFFER is nil, the current buffer is used for printing.
3610 (set-buffer (or buffer (current-buffer)))
3721 (defun pr-ps-buffer-preview (n-up &optional filename)
3722 "Preview buffer using ghostview.
3740 (defun pr-ps-buffer-using-ghostscript (n-up &optional filename)
3741 "Print buffer using PostScript through ghostscript.
3759 (defun pr-ps-buffer-print (n-up &optional filename)
3760 "Print buffer using PostScript printer.
3778 (defun pr-ps-buffer-ps-print (n-up &optional filename)
3779 "Print buffer using PostScript printer or through ghostscript.
3807 See also `pr-ps-buffer-preview'."
3819 See also `pr-ps-buffer-using-ghostscript'."
3831 See also `pr-ps-buffer-print'."
3843 See also `pr-ps-buffer-ps-print'."
3859 See also `pr-ps-buffer-preview'."
3872 See also `pr-ps-buffer-using-ghostscript'."
3886 See also `pr-ps-buffer-print'."
3896 See also `pr-ps-buffer-ps-print'."
3918 (pr-file-list dir file-regexp 'pr-printify-buffer))
3922 (defun pr-printify-buffer ()
3923 "Replace nonprinting characters in buffer with printable representations.
3954 (pr-file-list dir file-regexp 'pr-txt-buffer))
3958 (defun pr-txt-buffer ()
3959 "Print buffer using text printer."
4088 (tempfile (pr-dosify-file-name (make-temp-file file))))
4112 (let ((ps-spool-buffer (get-buffer-create ps-spool-buffer-name)))
4114 (set-buffer ps-spool-buffer)
4115 (erase-buffer)
4379 If a region is active, the region will be printed instead of the whole buffer.
4381 `pr-mode-alist' will be used, that is, the current buffer or region will be
4455 (pr-ps-buffer-ps-print
4466 If a region is active, the region will be printed instead of the whole buffer.
4468 `pr-mode-alist' will be used, that is, the current buffer or region will be
4495 (pr-txt-buffer)))
4506 One way to see `printing' setup is to switch to a *Scratch* buffer and type:
4574 '(22 . pr-buffer-verbose)
4575 '(22 . pr-buffer-name)
4576 '(22 . pr-buffer-name-ignore)
4585 One way to see `lpr' setup is to switch to a *Scratch* buffer and type:
4616 (defvar mh-show-buffer nil)
4620 "Find the date of an article or mail message in current buffer.
4626 (buffer-substring (match-beginning 1) (match-end 1))
4634 (set-buffer mh-show-buffer)
4669 'rmail-buffer 'rmail-summary-buffer))
4675 'rmail-buffer 'rmail-summary-buffer))
4679 summary-buffer summary-default)
4681 (let ((buf (or (and (boundp summary-buffer)
4682 (symbol-value summary-buffer))
4684 (and (get-buffer buf)
4686 (set-buffer buf)
4690 (defun pr-lpr-message-from-summary (header-list summary-buffer summary-default)
4692 (let ((buf (or (and (boundp summary-buffer)
4693 (symbol-value summary-buffer))
4695 (and (get-buffer buf)
4697 (set-buffer buf)
4711 'gnus-article-buffer 'pr-gnus-article))
4717 'gnus-article-buffer 'pr-gnus-article))
4730 'vm-mail-buffer 'pr-vm-summary))
4736 'vm-mail-buffer 'pr-vm-summary))
4755 (defmacro pr-local-variable (header-list &rest body)
4761 (let ((local-var-list (pr-eval-local-alist (nthcdr 4 ,header-list))))
4764 (pr-kill-local-variable local-var-list))))))
4769 (pr-local-variable
4788 (pr-local-variable
4853 (pr-x-make-event
5229 "Invalid PostScript utility name `%s' for variable `pr-ps-utility'"
5240 "Invalid PostScript printer name `%s' for variable `pr-ps-name'"
5266 (error "Invalid text printer name `%s' for variable `pr-txt-name'"
5291 (defun pr-eval-local-alist (alist)
5292 (let (local-list)
5296 (setq local-list
5298 (nconc (pr-eval-setting-alist value) local-list)
5299 (set (make-local-variable var-sym) (eval value))
5300 (cons var-sym local-list)))))
5302 local-list))
5309 (local (nth 1 setting))
5311 local-list)
5312 (and local global
5315 (message "There are local buffer settings for `%S'." key)
5320 (setq local-list
5324 (cond ((not local) ; global settings
5329 (kill ; local settings with killing
5333 (setq local-list (cons var-sym local-list))
5334 (set (make-local-variable var-sym)
5336 (t ; local settings without killing
5340 (set (make-local-variable var-sym)
5343 local-list))))
5346 (defun pr-kill-local-variable (local-var-list)
5347 (mapcar 'kill-local-variable local-var-list))
5485 'buffer))
5492 " buffer")))
5495 (defun pr-show-setup (settings buffer-name)
5496 (with-output-to-temp-buffer buffer-name
5620 (let ((buffer (get-buffer-create "*Printing Command Output*"))
5626 (set-buffer buffer)
5633 (apply 'call-process cmd nil buffer nil args)
5638 (set-buffer buffer)
5645 "Printing error status: %s (see *Printing Command Output* buffer)"
5697 (make-temp-file
5723 (let* ((dir-name (file-name-directory (or (buffer-file-name)
5822 (defun pr-find-buffer-visiting (file)
5824 (find-buffer-visiting (if ps-windows-system
5828 (blist (buffer-list))
5832 (set-buffer (car blist))
5836 (string= (buffer-substring-no-properties
5851 (let ((buffer (pr-find-buffer-visiting file))
5854 (and (or buffer
5857 (set-buffer (or buffer
5860 (or buffer
5861 (kill-buffer (current-buffer))))))))
5877 (pr-text2ps 'buffer n-up filename)))))
5892 (cond ((eq kind 'buffer)
5893 (ps-spool-buffer-with-faces))
5899 ((eq kind 'buffer)
5900 (ps-print-buffer-with-faces filename))
5908 (cond ((eq kind 'buffer)
5909 (ps-spool-buffer))
5914 ((eq kind 'buffer)
5915 (ps-print-buffer filename))
6007 (defvar pr-i-buffer nil)
6018 (defvar pr-i-process 'buffer)
6026 (setq pr-interface-map (make-sparse-keymap))
6038 (set-buffer pr-i-buffer)
6044 (setq pr-i-buffer (buffer-name (current-buffer))
6053 (kill-buffer (get-buffer-create pr-buffer-name))
6054 (switch-to-buffer (get-buffer-create pr-buffer-name))
6061 (widget-insert (make-string (- 79 (length versions)) ?\ ) versions))
6070 (widget-insert "\n\n " (make-string 77 ?-))
6077 (use-local-map pr-interface-map)
6091 (pr-insert-radio-button 'pr-i-process 'buffer)
6092 (pr-insert-menu "Buffer List" 'pr-i-buffer
6093 (let ((blist (buffer-list))
6096 (let ((name (buffer-name (car blist)))
6097 (ignore pr-buffer-name-ignore)
6157 "This buffer isn't in a mode that printing treats specially.")
6291 (pr-insert-toggle 'pr-buffer-verbose " Verbose\n ")
6373 "Kill all printing help buffer."
6378 (let ((buffer (get-buffer (car help))))
6380 (when buffer
6381 (delete-windows-on buffer)
6382 (kill-buffer buffer)))))
6387 "Kill the printing buffer interface and quit."
6389 (kill-buffer pr-buffer-name)
6394 "printing buffer interface help."
6408 ((eq pr-i-process 'buffer)
6418 (pr-txt-buffer)))
6432 "Printify a buffer."
6440 ((eq pr-i-process 'buffer)
6444 (pr-printify-buffer))))
6462 'pr-ps-buffer-ps-print))
6471 'pr-ps-buffer-preview))
6475 ps-mode ps-buffer)
6501 ((eq pr-i-process 'buffer)
6511 (funcall ps-buffer pr-i-n-up outfile)))
6547 (and pr-buffer-verbose
6556 (and pr-buffer-verbose
6566 (and pr-buffer-verbose
6575 (and (get-buffer "*Completions*") ; clean frame window
6673 (make-string (- max (length name)) ?_))