Mercurial > emacs

changeset 6337:32cb5a7228ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(original-page-delimiter, set-page-delimiter): Use printable escapes instead of embedding literal control chars in the source.
author Karl Heuer <kwzh@gnu.org>
date Mon, 14 Mar 1994 21:26:19 +0000
parents d7f922a411f9
children 63033f2867fd
files lisp/textmodes/page-ext.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)