procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add `provide'.

Browse source 
(narrow-to-page): Enable page-delimiter to span lines.
This commit is contained in:
Richard M. Stallman 1993-11-15 06:48:23 +00:00
parent 98d873522c
commit 8105b77ee3
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/textmodes/page.el
View file

@ -87,8 +87,9 @@ thus showing a page other than the one point was originally in."
;; If we stopped due to end of buffer, stay there.
;; If we stopped after a page delimiter, put end of restriction
;; at the beginning of that line.
(if (save-excursion (beginning-of-line)
(looking-at page-delimiter))
(if (save-excursion
(goto-char (match-beginning 0)) ; was (beginning-of-line)
(looking-at page-delimiter))
(beginning-of-line))
(narrow-to-region (point)
(progn
@ -136,5 +137,8 @@ thus showing a page other than the one point was originally in."
(message "Page %d, line %d"
count
(1+ (count-lines (point) opoint)))))))
;;; Place `provide' at end of file.
(provide 'page)
;;; page.el ends here