# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1027799415 0
# Node ID 9423094d3e99544d1d9b9e38c449577e7b8fafa9
# Parent  101b5b0fa2b5633d0d167ad28e52665fb0c3e3a9
Update copyright year.
(ps-begin-cut-regexp, ps-end-cut-regexp): Fix type.

diff -r 101b5b0fa2b5 -r 9423094d3e99 lisp/ps-print.el
--- a/lisp/ps-print.el	Sat Jul 27 19:11:14 2002 +0000
+++ b/lisp/ps-print.el	Sat Jul 27 19:50:15 2002 +0000
@@ -1,6 +1,6 @@
 ;;; ps-print.el --- print text from the buffer as PostScript
 
-;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
+;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
 ;; Free Software Foundation, Inc.
 
 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
@@ -3201,7 +3201,8 @@
 Variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together what
 actually gets printed.  Both variables may be set to nil in which case no
 cutting occurs."
-  :type 'regexp
+  :type '(choice (const :tag "No Delimiter" nil)
+		 (regexp :tag "Delimiter Regexp"))
   :version "21.1"
   :group 'ps-print-miscellany)
 
@@ -3209,7 +3210,8 @@
   "*Specify regexp which is end of the region to cut out when printing.
 
 See `ps-begin-cut-regexp' for more information."
-  :type 'regexp
+  :type '(choice (const :tag "No Delimiter" nil)
+		 (regexp :tag "Delimiter Regexp"))
   :version "21.1"
   :group 'ps-print-miscellany)