Mercurial > emacs

comparison lisp/ps-print.el @ 46712:9423094d3e99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update copyright year. (ps-begin-cut-regexp, ps-end-cut-regexp): Fix type.
author Markus Rost <rost@math.uni-bielefeld.de>
date Sat, 27 Jul 2002 19:50:15 +0000
parents 72a6f9068758
children a41a116523ad
comparison
equal deleted inserted replaced
46711:101b5b0fa2b5 46712:9423094d3e99
1 ;;; ps-print.el --- print text from the buffer as PostScript 1 ;;; ps-print.el --- print text from the buffer as PostScript
2 2
3 ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 3 ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>) 6 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
7 ;; Jacques Duthen (was <duthen@cegelec-red.fr>) 7 ;; Jacques Duthen (was <duthen@cegelec-red.fr>)
8 ;; Vinicius Jose Latorre <vinicius@cpqd.com.br> 8 ;; Vinicius Jose Latorre <vinicius@cpqd.com.br>
3199 manual for more information. 3199 manual for more information.
3200 3200
3201 Variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together what 3201 Variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together what
3202 actually gets printed. Both variables may be set to nil in which case no 3202 actually gets printed. Both variables may be set to nil in which case no
3203 cutting occurs." 3203 cutting occurs."
3204 :type 'regexp 3204 :type '(choice (const :tag "No Delimiter" nil)
3205 (regexp :tag "Delimiter Regexp"))
3205 :version "21.1" 3206 :version "21.1"
3206 :group 'ps-print-miscellany) 3207 :group 'ps-print-miscellany)
3207 3208
3208 (defcustom ps-end-cut-regexp nil 3209 (defcustom ps-end-cut-regexp nil
3209 "*Specify regexp which is end of the region to cut out when printing. 3210 "*Specify regexp which is end of the region to cut out when printing.
3210 3211
3211 See `ps-begin-cut-regexp' for more information." 3212 See `ps-begin-cut-regexp' for more information."
3212 :type 'regexp 3213 :type '(choice (const :tag "No Delimiter" nil)
3214 (regexp :tag "Delimiter Regexp"))
3213 :version "21.1" 3215 :version "21.1"
3214 :group 'ps-print-miscellany) 3216 :group 'ps-print-miscellany)
3215 3217
3216 3218
3217 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3219 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;