From 1d52da10bc882366a964948ca1dbf00536a51e93 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 11 Jul 2011 16:52:48 +0200 Subject: [PATCH] * printing.el: Add documentation to all the `pr-toggle-' commands. --- lisp/ChangeLog | 4 ++++ lisp/printing.el | 17 +++++++++++++++++ 2 files changed, 21 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 26a5131feaa..ffba716f189 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-07-11 Lars Magne Ingebrigtsen + + * printing.el: Add documentation to all the `pr-toggle-' commands. + 2011-07-11 Leo (tiny change) * files.el (toggle-read-only): Only do the `C-x C-q' warning on VC diff --git a/lisp/printing.el b/lisp/printing.el index e66cca25933..76fdeaec500 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -5346,102 +5346,119 @@ If menu binding was not done, calls `pr-menu-bind'." (defun pr-toggle-file-duplex-menu (&optional no-menu) + "Toggle whether to print PostScript files in duplex mode." (interactive) (pr-toggle 'pr-file-duplex "PS file duplex" nil 7 5 nil '("PostScript Print" "File") no-menu)) (defun pr-toggle-file-tumble-menu (&optional no-menu) + "Toggle whether to print PostScript files in tumble mode." (interactive) (pr-toggle 'pr-file-tumble "PS file tumble" nil 8 5 nil '("PostScript Print" "File") no-menu)) (defun pr-toggle-file-landscape-menu (&optional no-menu) + "Toggle whether to print PostScript files in landscape orientation." (interactive) (pr-toggle 'pr-file-landscape "PS file landscape" nil 6 5 nil '("PostScript Print" "File") no-menu)) (defun pr-toggle-ghostscript-menu (&optional no-menu) + "Toggle whether to print using ghostscript." (interactive) (pr-toggle 'pr-print-using-ghostscript "Printing using ghostscript" 'postscript-process 2 12 'toggle nil no-menu)) (defun pr-toggle-faces-menu (&optional no-menu) + "Toggle whether to print with face attributes." (interactive) (pr-toggle 'pr-faces-p "Printing with faces" 'postscript-process 1 12 'toggle nil no-menu)) (defun pr-toggle-spool-menu (&optional no-menu) + "Toggle whether to spool printing in a buffer." (interactive) (pr-toggle 'pr-spool-p "Spooling printing" 'postscript-process 0 12 'toggle nil no-menu)) (defun pr-toggle-duplex-menu (&optional no-menu) + "Toggle whether to generate PostScript for a two-sided printer." (interactive) (pr-toggle 'ps-spool-duplex "Printing duplex" 'postscript-options 5 12 'toggle nil no-menu)) (defun pr-toggle-tumble-menu (&optional no-menu) + "Toggle how pages on opposite sides of a sheet are oriented." (interactive) (pr-toggle 'ps-spool-tumble "Tumble" 'postscript-options 6 12 'toggle nil no-menu)) (defun pr-toggle-landscape-menu (&optional no-menu) + "Toggle whether to print in landscape mode." (interactive) (pr-toggle 'ps-landscape-mode "Landscape" 'postscript-options 0 12 'toggle nil no-menu)) (defun pr-toggle-upside-down-menu (&optional no-menu) + "Toggle whether to print upside-down (that is, rotated by 180 degrees)." (interactive) (pr-toggle 'ps-print-upside-down "Upside-Down" 'postscript-options 7 12 'toggle nil no-menu)) (defun pr-toggle-line-menu (&optional no-menu) + "Toggle whether to means print line numbers." (interactive) (pr-toggle 'ps-line-number "Line number" 'postscript-options 3 12 'toggle nil no-menu)) (defun pr-toggle-zebra-menu (&optional no-menu) + "Toggle whether to print zebra stripes." (interactive) (pr-toggle 'ps-zebra-stripes "Zebra stripe" 'postscript-options 4 12 'toggle nil no-menu)) (defun pr-toggle-header-menu (&optional no-menu) + "Toggle whether to print a header at the top of each page." (interactive) (pr-toggle 'ps-print-header "Print header" 'postscript-options 1 12 'toggle nil no-menu)) (defun pr-toggle-header-frame-menu (&optional no-menu) + "Toggle whether to draw a gaudy frame around the header." (interactive) (pr-toggle 'ps-print-header-frame "Print header frame" 'postscript-options 2 12 'toggle nil no-menu)) (defun pr-toggle-lock-menu (&optional no-menu) + "Toggle whether the menu is locked while selecting toggle options." (interactive) (pr-toggle 'pr-menu-lock "Menu lock" 'printing 2 12 'toggle nil no-menu)) (defun pr-toggle-region-menu (&optional no-menu) + "Toggle whether the region is automagically detected." (interactive) (pr-toggle 'pr-auto-region "Auto region" 'printing 0 12 'toggle nil no-menu)) (defun pr-toggle-mode-menu (&optional no-menu) + "Toggle whether major-mode specific printing is prefered over normal printing." (interactive) (pr-toggle 'pr-auto-mode "Auto mode" 'printing 1 12 'toggle nil no-menu))