mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(original-page-delimiter, set-page-delimiter): Use printable escapes instead of

Browse Source 
embedding literal control chars in the source.
This commit is contained in:
Karl Heuer 1994-03-14 21:26:19 +00:00
parent cbd4993c58
commit 98526426f4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/textmodes/page-ext.el
View File

@ -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)