Mercurial > emacs
comparison lisp/lpr.el @ 1671:b2a50ea75eea
* lpr.el (lpr-switches, lpr-command): Make these defvars, not
defconsts.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sat, 12 Dec 1992 15:21:21 +0000 |
parents | 21e2defc55c0 |
children | 10e417efb12a |
comparison
equal
deleted
inserted
replaced
1670:174817d23858 | 1671:b2a50ea75eea |
---|---|
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
23 | 23 |
24 ;;; Code: | 24 ;;; Code: |
25 | 25 |
26 ;;;###autoload | 26 ;;;###autoload |
27 (defconst lpr-switches nil | 27 (defvar lpr-switches nil |
28 "*List of strings to pass as extra switch args to lpr when it is invoked.") | 28 "*List of strings to pass as extra switch args to lpr when it is invoked.") |
29 | 29 |
30 ;;;###autoload | 30 ;;;###autoload |
31 (defconst lpr-command | 31 (defvar lpr-command |
32 (if (memq system-type '(usg-unix-v dgux-unix hpux silicon-graphics-unix)) | 32 (if (memq system-type '(usg-unix-v dgux-unix hpux silicon-graphics-unix)) |
33 "lp" "lpr") | 33 "lp" "lpr") |
34 "*Shell command for printing a file") | 34 "*Shell command for printing a file") |
35 | 35 |
36 (defvar print-region-function nil | 36 (defvar print-region-function nil |