emacs/lisp/printing.el

102 ;; MESSAGE is an error message returned by PROGRAM (it can have no message, if
143 ;; variables and save the customization by future sessions (see Options
236 ;;    message.  Instead, save the dynamic buffer to a file or copy it in
249 ;;    `somefile.txt' or, instead, it returns the following message:
435 ;; temporary Emacs buffer.  This way you can save banner pages between
444 ;; a file name, and save the PostScript code generated to the file name instead
449 ;; spooling is on, only `pr-despool-*' commands prompt for a file name and save
698 ;;	 can save temporarily the PostScript code generated in a buffer and
739 ;;	 of printing each buffer, region or major mode at once, you can save
2064     (vm-mode				; vm mode
2065      pr-vm-lpr  pr-vm-print
2661 Set `pr-delete-temp-file' to nil, if the following message (or a similar)
2763 (defmacro pr-save-file-modes (&rest body)
2765   `(let ((pr--default-file-modes (default-file-modes)))	; save default
2776   `(save-excursion
3150 (defconst pr-help-message
3213       can save temporarily the PostScript code generated in a buffer and
3253       save temporarily the PostScript code generated in a buffer and print it
3360   "Printing help message.")
3363 (defconst pr-interface-help-message
3594   "Printing buffer interface help message.")
3609   (save-excursion
3626 save the image in a temporary file.  If FILENAME is a string, save the
3652 save the image in a temporary file.  If FILENAME is a string, save the
3678 save the image in a temporary file.  If FILENAME is a string, save the
3706 save the image in a temporary file.  If FILENAME is a string, save the
3729 argument FILENAME is treated as follows: if it's nil, save the image in a
3730 temporary file.  If FILENAME is a string, save the PostScript image in a file
3749 printer.  If FILENAME is a string, save the PostScript image in a file with
3768 printer.  If FILENAME is a string, save the PostScript image in a file with
3789 printer.  If FILENAME is a string, save the PostScript image in a file with
3987       (message "`%s' major mode not declared." major-mode))))
3999 save the image in a temporary file.  If FILENAME is a string, save the
4017 send the image to the printer.  If FILENAME is a string, save the PostScript
4036 send the image to the printer.  If FILENAME is a string, save the PostScript
4039   (pr-save-file-modes
4056 send the image to the printer.  If FILENAME is a string, save the PostScript
4113 	       (save-excursion
4156 nil, send the image to the printer.  If OFILENAME is a string, save the
4320   (pr-show-setup pr-help-message "*Printing Help*"))
4615 (defalias 'pr-mh-start-of-uncleaned-message 'mh-start-of-uncleaned-message)
4620   "Find the date of an article or mail message in current buffer.
4622   (save-excursion
4630 (defun pr-mh-current-message ()
4631   "Go to mh-inbox current message."
4636     (pr-mh-start-of-uncleaned-message)
4637     (message "Printing message %d" msg)))
4641   "Print mh-inbox current message in PostScript."
4642   (save-excursion
4643     (save-window-excursion
4644       (pr-mh-current-message)
4649   "Print mh-inbox current message in text printer."
4650   (save-excursion
4651     (save-window-excursion
4652       (pr-mh-current-message)
4667   "Print RMAIL current message in text printer."
4668   (pr-lpr-message-from-summary header-list
4673   "Print RMAIL current message in PostScript."
4674   (pr-ps-message-from-summary n-up filename header-list
4678 (defun pr-ps-message-from-summary (n-up filename header-list
4680   "Print current message in PostScript."
4685 	 (save-excursion
4690 (defun pr-lpr-message-from-summary (header-list summary-buffer summary-default)
4691   "Print current message in text printer."
4696 	 (save-excursion
4709   "Print *Article* current message in PostScript."
4710   (pr-ps-message-from-summary n-up filename header-list
4715   "Print *Article* current message in text printer."
4716   (pr-lpr-message-from-summary header-list
4721 ;; vm (hacked from ps-print.el)
4724 (defvar pr-vm-summary "")
4727 (defun pr-vm-print (n-up filename header-list)
4728   "Print current vm message in PostScript."
4729   (pr-ps-message-from-summary n-up filename header-list
4730 			      'vm-mail-buffer 'pr-vm-summary))
4733 (defun pr-vm-lpr (header-list)
4734   "Print current vm message in text printer."
4735   (pr-lpr-message-from-summary header-list
4736 			       'vm-mail-buffer 'pr-vm-summary))
4751       (message "`%s' major mode not declared." major-mode)
4756   `(save-excursion
5023     (let ((save-var pr-ps-utility-menu-modified))
5028 		     'save-var
5123     (let ((save-var pr-ps-utility-menu-modified))
5128 		     'save-var
5315 		  (message "There are local buffer settings for `%S'." key)
5357   (message "%s is %s" mess (if (symbol-value var-sym) "on" "off"))
5498     (print-help-return-message)))
5625     (save-excursion
5629     ;; *Printing Command Output* == show any return message from command
5630     (pr-save-file-modes
5635 	      (error-message-string data)))))
5637     (save-excursion
5641     ;; message if error status
5644 	(message
5705   (save-match-data
5831 	(save-excursion
5834 	       (save-excursion
5856 			  (save-excursion
5883   (pr-save-file-modes
6036 (defmacro pr-interface-save (&rest body)
6037   `(save-excursion
6113 		     (pr-interface-save
6124 	    (let ((region-p (pr-interface-save
6134 		     (message "There is no region active")
6145 	    (let ((mode-p (pr-interface-save
6156 		(message
6174 	       (message "Please specify a readable directory")))
6198 	       (message "Please specify a readable PostScript file")))
6224 	      (message "Can despool only when spooling is actually selected")
6250 	       (message "Please specify a writable PostScript file")))
6264 		     (message " ")
6267 		 (message "Please specify an integer between 1 and 100"))))
6396   (pr-show-setup pr-interface-help-message "*Printing Interface Help*"))
6406 	(pr-interface-save
6409 	(pr-interface-save
6428      (message "%s" (error-message-string data)))))
6438 	(pr-interface-save
6441 	(pr-interface-save
6453      (message "%s" (error-message-string data)))))
6481 	  (pr-interface-save
6487 	  (pr-interface-save
6495 		 (pr-interface-save
6498 		 (pr-interface-save
6502 	  (pr-interface-save
6519      (message "%s" (error-message-string data)))))
6548        (message "You can use M-TAB or ESC TAB for file completion"))
6557        (message "You can use M-TAB or ESC TAB for file completion"))
6567        (message "You can use M-TAB or ESC TAB for file completion"))
6577   (message " ")				; clean echo area