Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
255:cdf87250ed27 | 256:7e4c7ef44243 |
---|---|
16 ;; You should have received a copy of the GNU General Public License | 16 ;; You should have received a copy of the GNU General Public License |
17 ;; along with GNU Emacs; see the file COPYING. If not, write to | 17 ;; along with GNU Emacs; see the file COPYING. If not, write to |
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
19 | 19 |
20 | 20 |
21 ;(defconst lpr-switches nil | 21 ;;;###autoload |
22 ; "*List of strings to pass as extra switch args to lpr when it is invoked.") | 22 (defconst lpr-switches nil |
23 "*List of strings to pass as extra switch args to lpr when it is invoked.") | |
23 | 24 |
24 (defvar lpr-command (if (eq system-type 'usg-unix-v) | 25 (defvar lpr-command (if (eq system-type 'usg-unix-v) |
25 "lp" "lpr") | 26 "lp" "lpr") |
26 "Shell command for printing a file") | 27 "Shell command for printing a file") |
27 | 28 |
28 (defvar print-region-function nil | 29 (defvar print-region-function nil |
29 "Function to call to print the region on a printer. | 30 "Function to call to print the region on a printer. |
30 See definition of `print-region-1' for calling conventions.") | 31 See definition of `print-region-1' for calling conventions.") |
31 | 32 |
33 ;;;###autoload | |
32 (defun lpr-buffer () | 34 (defun lpr-buffer () |
33 "Print buffer contents as with Unix command `lpr'. | 35 "Print buffer contents as with Unix command `lpr'. |
34 `lpr-switches' is a list of extra switches (strings) to pass to lpr." | 36 `lpr-switches' is a list of extra switches (strings) to pass to lpr." |
35 (interactive) | 37 (interactive) |
36 (print-region-1 (point-min) (point-max) lpr-switches nil)) | 38 (print-region-1 (point-min) (point-max) lpr-switches nil)) |
37 | 39 |
40 ;;;###autoload | |
38 (defun print-buffer () | 41 (defun print-buffer () |
39 "Print buffer contents as with Unix command `lpr -p'. | 42 "Print buffer contents as with Unix command `lpr -p'. |
40 `lpr-switches' is a list of extra switches (strings) to pass to lpr." | 43 `lpr-switches' is a list of extra switches (strings) to pass to lpr." |
41 (interactive) | 44 (interactive) |
42 (print-region-1 (point-min) (point-max) lpr-switches t)) | 45 (print-region-1 (point-min) (point-max) lpr-switches t)) |
43 | 46 |
47 ;;;###autoload | |
44 (defun lpr-region (start end) | 48 (defun lpr-region (start end) |
45 "Print region contents as with Unix command `lpr'. | 49 "Print region contents as with Unix command `lpr'. |
46 `lpr-switches' is a list of extra switches (strings) to pass to lpr." | 50 `lpr-switches' is a list of extra switches (strings) to pass to lpr." |
47 (interactive "r") | 51 (interactive "r") |
48 (print-region-1 start end lpr-switches nil)) | 52 (print-region-1 start end lpr-switches nil)) |
49 | 53 |
54 ;;;###autoload | |
50 (defun print-region (start end) | 55 (defun print-region (start end) |
51 "Print region contents as with Unix command `lpr -p'. | 56 "Print region contents as with Unix command `lpr -p'. |
52 `lpr-switches' is a list of extra switches (strings) to pass to lpr." | 57 `lpr-switches' is a list of extra switches (strings) to pass to lpr." |
53 (interactive "r") | 58 (interactive "r") |
54 (print-region-1 start end lpr-switches t)) | 59 (print-region-1 start end lpr-switches t)) |