aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/ps-mode.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 2beaf6eff03..82e31226dd9 100644
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -5,7 +5,7 @@
5;; Author: Peter Kleiweg <kleiweg@let.rug.nl> 5;; Author: Peter Kleiweg <kleiweg@let.rug.nl>
6;; Maintainer: Peter Kleiweg <kleiweg@let.rug.nl> 6;; Maintainer: Peter Kleiweg <kleiweg@let.rug.nl>
7;; Created: 20 Aug 1997 7;; Created: 20 Aug 1997
8;; Version: 1.1b, 18 Oct 1999 8;; Version: 1.1c, 5 Nov 1999
9;; Keywords: PostScript, languages 9;; Keywords: PostScript, languages
10 10
11;; This file is part of GNU Emacs. 11;; This file is part of GNU Emacs.
@@ -30,7 +30,7 @@
30 30
31;;; Code: 31;;; Code:
32 32
33(defconst ps-mode-version "1.1b, 18 Oct 1999") 33(defconst ps-mode-version "1.1c, 5 Nov 1999")
34 34
35(require 'easymenu) 35(require 'easymenu)
36 36
@@ -106,7 +106,8 @@ When the figure is finished these values should be replaced."
106(defcustom ps-mode-print-function 106(defcustom ps-mode-print-function
107 '(lambda () 107 '(lambda ()
108 (let ((lpr-switches nil) 108 (let ((lpr-switches nil)
109 (lpr-command "lpr")) 109 (lpr-command (if (memq system-type '(usg-unix-v dgux hpux irix))
110 "lp" "lpr")))
110 (lpr-buffer))) 111 (lpr-buffer)))
111 "*Lisp function to print current buffer as PostScript." 112 "*Lisp function to print current buffer as PostScript."
112 :group 'PostScript-edit 113 :group 'PostScript-edit