;; You may use these commands to handle an address list or other
;; small data base.
-;; Copyright (C) 1990, 1991, 1993 Free Software Foundation
+;; Copyright (C) 1990, 1991, 1993, 1994 Free Software Foundation
;; Maintainer: Robert J. Chassell <bob@gnu.ai.mit.edu>
'pages-directory-goto)
(define-key pages-directory-map "\C-c\C-p\C-a" 'add-new-page))
-(defvar original-page-delimiter "^\f"
+(defvar original-page-delimiter "^\f"
"Default page delimiter.")
(defun set-page-delimiter (regexp reset-p)
(interactive
(if current-prefix-arg
- (list original-page-delimiter "^\f")
+ (list original-page-delimiter "^\f")
(list (read-string "Set page-delimiter to regexp: " page-delimiter)
nil)))
(make-local-variable 'original-page-delimiter)