diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-15 06:48:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-15 06:48:23 +0000 |
| commit | 8105b77ee3d636aa4dadcd729ffec8e10f60da0d (patch) | |
| tree | c0435cd2299e2475552841980f33a8c656cb91cb /lisp/textmodes/page.el | |
| parent | 98d873522c4344184834ab940eeacdd9a2b4bdd3 (diff) | |
| download | emacs-8105b77ee3d636aa4dadcd729ffec8e10f60da0d.tar.gz | |
Add `provide'.
(narrow-to-page): Enable page-delimiter to span lines.
Diffstat (limited to 'lisp/textmodes/page.el')
| -rw-r--r-- | lisp/textmodes/page.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el index 32e505eaae6..dc86e6997be 100644 --- a/lisp/textmodes/page.el +++ b/lisp/textmodes/page.el @@ -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 |