From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 14 Mar 1994 21:26:19 +0000 (+0000)
Subject: (original-page-delimiter, set-page-delimiter): Use printable escapes instead of
X-Git-Tag: emacs-19.34~9515
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98526426f434315be161dfc6016b5c6cb50de0d1;p=emacs.git

(original-page-delimiter, set-page-delimiter): Use printable escapes instead of
embedding literal control chars in the source.
---

diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index caba12e73ee..6cf2496e016 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -460,7 +460,7 @@ contain matches to the regexp.\)")
     'pages-directory-goto)
   (define-key pages-directory-map "\C-c\C-p\C-a" 'add-new-page))
 
-(defvar original-page-delimiter "^"
+(defvar original-page-delimiter "^\f"
   "Default page delimiter.")
 
 (defun set-page-delimiter (regexp reset-p)
@@ -473,7 +473,7 @@ resets the page-delimiter to the original value."
   
   (interactive
    (if current-prefix-arg
-       (list original-page-delimiter "^")
+       (list original-page-delimiter "^\f")
      (list (read-string "Set page-delimiter to regexp: " page-delimiter)
            nil)))
   (make-local-variable 'original-page-delimiter)