mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-29 11:02:01 +00:00
Code Issues Releases Activity

(pages-copy-header-and-position): Call end-of-line, not forward-line.

Browse Source 
(pages-directory): Omit space at end of pages-directory-buffer.
This commit is contained in:
Richard M. Stallman 1993-12-23 04:56:43 +00:00
parent 23e62b22f5
commit e6945ec780
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

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