From e6945ec7802c66960d0376bdae0b0c7b13d698a7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 04:56:43 +0000 Subject: [PATCH] (pages-copy-header-and-position): Call end-of-line, not forward-line. (pages-directory): Omit space at end of pages-directory-buffer. --- lisp/textmodes/page-ext.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index 1b83a3ae3da..caba12e73ee 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -547,7 +547,7 @@ directory for only the accessible portion of the buffer." (let ((target-buffer (current-buffer)) (pages-directory-buffer - (concat pages-directory-prefix " " (buffer-name) " ")) + (concat pages-directory-prefix " " (buffer-name))) (linenum 1) (pages-buffer-original-position (point)) (pages-buffer-original-page 0)) @@ -658,7 +658,7 @@ Used by `pages-directory' function." (insert (format "%3d: " line-count)))) (terpri)) - (forward-line 1))) + (end-of-line 1))) (defun pages-directory-mode () "Mode for handling the pages-directory buffer. -- 2.39.5