diff lisp/lpr.el @ 256:7e4c7ef44243

*** empty log message ***
author Roland McGrath <roland@gnu.org>
date Thu, 09 May 1991 21:50:34 +0000
parents 2c663336acaf
children 990d2229354c
line wrap: on
line diff
--- a/lisp/lpr.el	Thu May 09 17:10:09 1991 +0000
+++ b/lisp/lpr.el	Thu May 09 21:50:34 1991 +0000
@@ -18,8 +18,9 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-;(defconst lpr-switches nil
-;  "*List of strings to pass as extra switch args to lpr when it is invoked.")
+;;;###autoload
+(defconst lpr-switches nil
+  "*List of strings to pass as extra switch args to lpr when it is invoked.")
 
 (defvar lpr-command (if (eq system-type 'usg-unix-v)
 			"lp" "lpr")
@@ -29,24 +30,28 @@
   "Function to call to print the region on a printer.
 See definition of `print-region-1' for calling conventions.")
 
+;;;###autoload
 (defun lpr-buffer ()
   "Print buffer contents as with Unix command `lpr'.
 `lpr-switches' is a list of extra switches (strings) to pass to lpr."
   (interactive)
   (print-region-1 (point-min) (point-max) lpr-switches nil))
 
+;;;###autoload
 (defun print-buffer ()
   "Print buffer contents as with Unix command `lpr -p'.
 `lpr-switches' is a list of extra switches (strings) to pass to lpr."
   (interactive)
   (print-region-1 (point-min) (point-max) lpr-switches t))
 
+;;;###autoload
 (defun lpr-region (start end)
   "Print region contents as with Unix command `lpr'.
 `lpr-switches' is a list of extra switches (strings) to pass to lpr."
   (interactive "r")
   (print-region-1 start end lpr-switches nil))
 
+;;;###autoload
 (defun print-region (start end)
   "Print region contents as with Unix command `lpr -p'.
 `lpr-switches' is a list of extra switches (strings) to pass to lpr."