emacs/lisp/ps-print.el

553 ;; The variable `ps-error-handler-message' specifies where the error handler
554 ;; message should be sent.
558 ;; none			catch the error and *DON'T* send any message.
560 ;; paper		catch the error and print on paper the error message.
563 ;; system		catch the error and send back the error message to
569 ;; paper-and-system	catch the error, print on paper the error message and
570 ;;			send back the error message to printing system.
885 ;; error message is printed into the `*Messages*' buffer, which lists the
1251 ;;	 `ps-user-defined-prologue' and `ps-error-handler-message'.
1645 (defcustom ps-error-handler-message 'paper
1646   "*Specify where the error handler message should be sent.
1650    `none'		catch the error and *DON'T* send any message.
1652    `paper'		catch the error and print on paper the error message.
1654    `system'		catch the error and send back the error message to
1660    `paper-and-system'	catch the error, print on paper the error message and
1661 			send back the error message to printing system.
3468   (ps-print-without-faces (point-min) (point-max) filename))
3478   (ps-print-with-faces (point-min) (point-max) filename))
3507   (ps-spool-without-faces (point-min) (point-max)))
3519   (ps-spool-with-faces (point-min) (point-max)))
3569   (interactive (ps-count-lines-preprint (point-min) (point-max)))
3631       '(29 . ps-error-handler-message)
4253 (defun ps-message-log-max ()
4255        (boundp 'message-log-max)
4256        message-log-max))
4271   (let ((message-log-max (ps-message-log-max)))	; to print *Messages* buffer
4283   (let ((message-log-max (ps-message-log-max)))	; to print *Messages* buffer
4292   (let ((message-log-max (ps-message-log-max)))	; to count lines of *Messages*
4322 	      (ps-count-lines (point-min) (point-max)))))
4397 	 nb-cpl-max			; maximum nb of characters per line
4398 	 (fs-max 14)			; maximum font size
4399 	 cw-max				; maximum character width
4406 	  nb-cpl-max (floor (/ print-width cw-min))
4407 	  cw-max     (/ (* icw fs-max) ifs)
4408 	  nb-cpl-min (floor (/ print-width cw-max))
4411     (goto-char (point-max))
4415     (while (<= nb-cpl nb-cpl-max)
4448 	 nb-lpp-max			; maximum nb of lines per page
4450 	 (fs-max 14)			; maximum font size
4451 	 lh-max				; maximum line height
4453 	 nb-page-max			; maximum nb of pages
4460 	  nb-lpp-max  (floor (/ page-height lh-min))
4461 	  nb-page-min (ceiling (/ (float nb-lines) nb-lpp-max))
4462 	  lh-max      (/ (- (* (+ ilh ils) fs-max) ils) ifs)
4463 	  nb-lpp-min  (floor (/ page-height lh-max))
4464 	  nb-page-max (ceiling (/ (float nb-lines) nb-lpp-min))
4467     (goto-char (point-max))
4472     (while (<= nb-page nb-page-max)
4729   (goto-char (point-max))
4791     (goto-char (point-max))
4813     (goto-char (point-max))
5376   (setq ps-n-up-printing (max (min ps-n-up-printing 100) 1))
5494   "Alist for error handler message.")
5551 		       (or (cdr (assoc ps-error-handler-message
5880 	ps-line-number-start (max 1 (min ps-line-number-start
5887     (goto-char (point-max))
5889 	 (delete-region (match-beginning 0) (point-max))))
6131       (let* ((q-todo (- (point-max) (point-min)))
6138 	      (message "Formatting...%3d%%"
6513     (message "Collecting face information...")
6555 		 (ps-plot-with-face from (min position (point-max)) face))
6652 	  (to (max to from))
6659 	     (message "Formatting...%3d%%" (setq ps-razchunk 0)))
6673 		(set-marker safe-marker (point-max))
6705 		   (delete-region (marker-position safe-marker) (point-max))))))
6707 	(and ps-razzle-dazzle (message "Formatting...done"))))))
6720 	  (goto-char (point-max))
6757       (message "No spooled PostScript to print")
6760 	  (and ps-razzle-dazzle (message "Saving..."))
6764 	    (write-region (point-min) (point-max) filename))
6765 	  (and ps-razzle-dazzle (message "Wrote %s" filename)))
6767       (and ps-razzle-dazzle (message "Printing..."))
6785 		 (point-min) (point-max) ps-lpr-command nil
6790       (and ps-razzle-dazzle (message "Printing...done")))
6801 ;; `ps-flatten-list' is defined here (copied from "message.el" and
6833        (message "Won't override existing `kill-emacs-hook'"))
6855   (local-set-key [(f22)] 'ps-rmail-print-message-from-summary)
6858 	;; The left headers will display the message's subject, its
6864 (defun ps-rmail-print-message-from-summary ()
6866   (ps-print-message-from-summary 'rmail-summary-buffer "RMAIL"))
6869 ;; `ps-gnus-print-article-from-summary' and `ps-vm-print-message-from-summary'.
6870 (defun ps-print-message-from-summary (summary-buffer summary-default)
6879 ;; Look in an article or mail message for the Subject: line.  To be
6888 ;; Look in an article or mail message for the From: line.  Sorta-kinda
6929   (local-set-key [(f22)] 'ps-vm-print-message-from-summary)
6932 	;; The left headers will display the message's subject, its
6944   (ps-print-message-from-summary 'gnus-article-buffer "*Article*"))
6948 (defun ps-vm-print-message-from-summary ()
6950   (ps-print-message-from-summary 'vm-mail-buffer ""))
6957 ;; Look in an article or mail message for the Subject: line.  To be
6966 ;; Look in an article or mail message for the Subject: line.  To be