(ps-mode-print-function): Changed default

lpr-command to "lp" for some system-types. (copied from lpr.el
Emacs version 20.2.1).

diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 2beaf6eff03d5fcc8e53d3d9336b87e581373582..82e31226dd90dfad9fc602af349033e33a36e445 100644 (file)
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -5,7 +5,7 @@
 ;; Author:     Peter Kleiweg <kleiweg@let.rug.nl>
 ;; Maintainer: Peter Kleiweg <kleiweg@let.rug.nl>
 ;; 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 @@
 \f
 ;;; 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