Update copyright year.

(ps-begin-cut-regexp, ps-end-cut-regexp): Fix type.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d12e77242e34fb4a43e8748e90173ce00020052c..9df45c77ea1e212991be499383a34e4c0b436c20 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-27  Markus Rost  <rost@math.ohio-state.edu>
+
+       * ps-print.el: Update copyright year.
+       (ps-begin-cut-regexp, ps-end-cut-regexp): Fix type.
+
 2002-07-26  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * eshell/eshell.el (eshell): Numeric prefix arg means to switch

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 5873bc7be375acf36342c5c3fa2dba6184cdc470..f474453d7525f5f34da4ea822c3b6b3944a705e9 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -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 @@ manual for more information.
 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 @@ cutting occurs."
   "*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)