# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 763680379 0
# Node ID 32cb5a7228ab074ce04f9662ecb8d104a1e8d822
# Parent  d7f922a411f9e780572b531eac943f4716c48260
(original-page-delimiter, set-page-delimiter): Use printable escapes instead of
embedding literal control chars in the source.

diff -r d7f922a411f9 -r 32cb5a7228ab lisp/textmodes/page-ext.el
--- a/lisp/textmodes/page-ext.el	Mon Mar 14 21:20:25 1994 +0000
+++ b/lisp/textmodes/page-ext.el	Mon Mar 14 21:26:19 1994 +0000
@@ -460,7 +460,7 @@
     '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 @@
   
   (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)