Mercurial > emacs

comparison lisp/progmodes/ps-mode.el @ 91327:606f2d163a64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-312
author Miles Bader <miles@gnu.org>
date Wed, 09 Jan 2008 01:21:15 +0000
parents 53108e6cea98 107ccd98fa12
children
comparison
equal deleted inserted replaced
91326:b1a63d7fa09c 91327:606f2d163a64
1 ;;; ps-mode.el --- PostScript mode for GNU Emacs 1 ;;; ps-mode.el --- PostScript mode for GNU Emacs
2 2
3 ;; Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2006, 2007 3 ;; Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Peter Kleiweg <p.c.j.kleiweg@rug.nl> 6 ;; Author: Peter Kleiweg <p.c.j.kleiweg@rug.nl>
7 ;; Maintainer: Peter Kleiweg <p.c.j.kleiweg@rug.nl> 7 ;; Maintainer: Peter Kleiweg <p.c.j.kleiweg@rug.nl>
8 ;; Created: 20 Aug 1997 8 ;; Created: 20 Aug 1997
107 (const :tag "esheet" (2448 3168)))) 107 (const :tag "esheet" (2448 3168))))
108 108
109 (defcustom ps-mode-print-function 109 (defcustom ps-mode-print-function
110 (lambda () 110 (lambda ()
111 (let ((lpr-switches nil) 111 (let ((lpr-switches nil)
112 (lpr-command (if (memq system-type '(usg-unix-v dgux hpux irix)) 112 (lpr-command (if (memq system-type '(usg-unix-v hpux irix))
113 "lp" "lpr"))) 113 "lp" "lpr")))
114 (lpr-buffer))) 114 (lpr-buffer)))
115 "*Lisp function to print current buffer as PostScript." 115 "*Lisp function to print current buffer as PostScript."
116 :group 'PostScript-edit 116 :group 'PostScript-edit
117 :type 'function) 117 :type 'function)