mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +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)) (let ((target-buffer (current-buffer))
(pages-directory-buffer (pages-directory-buffer
(concat pages-directory-prefix " " (buffer-name) " ")) (concat pages-directory-prefix " " (buffer-name)))
(linenum 1) (linenum 1)
(pages-buffer-original-position (point)) (pages-buffer-original-position (point))
(pages-buffer-original-page 0)) (pages-buffer-original-page 0))
@ -658,7 +658,7 @@ Used by `pages-directory' function."
(insert (format "%3d: " line-count)))) (insert (format "%3d: " line-count))))
(terpri)) (terpri))
(forward-line 1))) (end-of-line 1)))
(defun pages-directory-mode () (defun pages-directory-mode ()
"Mode for handling the pages-directory buffer. "Mode for handling the pages-directory buffer.