From 155fc930d8e8d30c6c2870ca627c57aaf4041f7c Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 9 Nov 1999 13:37:57 +0000 Subject: [PATCH] (ps-mode-print-function): Changed default lpr-command to "lp" for some system-types. (copied from lpr.el Emacs version 20.2.1). --- lisp/progmodes/ps-mode.el | 7 ++++--- 1 file 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 @@ ;; Author: Peter Kleiweg ;; Maintainer: Peter Kleiweg ;; 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 -- 2.39.5