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)) |