diff options
| author | Gerd Moellmann <[email protected]> | 1999-11-09 13:37:57 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 1999-11-09 13:37:57 +0000 |
| commit | 155fc930d8e8d30c6c2870ca627c57aaf4041f7c (patch) | |
| tree | be197443b99dd9bf59d960395600f5b8e48ae986 /lisp/progmodes/ps-mode.el | |
| parent | 2323760c9c48e8cd79defbbe77a3a89007166b61 (diff) | |
(ps-mode-print-function): Changed default
lpr-command to "lp" for some system-types. (copied from lpr.el
Emacs version 20.2.1).
Diffstat (limited to 'lisp/progmodes/ps-mode.el')
| -rw-r--r-- | lisp/progmodes/ps-mode.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index 2beaf6eff0..82e31226dd 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -5,7 +5,7 @@ ;; Author: Peter Kleiweg <[email protected]> ;; Maintainer: Peter Kleiweg <[email protected]> ;; Created: 20 Aug 1997 -;; Version: 1.1b, 18 Oct 1999 +;; Version: 1.1c, 5 Nov 1999 ;; Keywords: PostScript, languages ;; This file is part of GNU Emacs. @@ -30,7 +30,7 @@ ;;; Code: -(defconst ps-mode-version "1.1b, 18 Oct 1999") +(defconst ps-mode-version "1.1c, 5 Nov 1999") (require 'easymenu) @@ -106,7 +106,8 @@ When the figure is finished these values should be replaced." (defcustom ps-mode-print-function '(lambda () (let ((lpr-switches nil) - (lpr-command "lpr")) + (lpr-command (if (memq system-type '(usg-unix-v dgux hpux irix)) + "lp" "lpr"))) (lpr-buffer))) "*Lisp function to print current buffer as PostScript." :group 'PostScript-edit |