diff options
Diffstat (limited to 'lisp/textmodes/page-ext.el')
| -rw-r--r-- | lisp/textmodes/page-ext.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index c2b7b66b9f7..b357bbbbe97 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -429,20 +429,19 @@ REVERSE (non-nil means reverse order), BEG and END (region to sort)." ;; NEXTRECFUN is called with point at the end of the ;; previous record. It moves point to the start of the ;; next record. - (function (lambda () - (re-search-forward page-delimiter nil t) - (skip-chars-forward " \t\n") - )) + (lambda () + (re-search-forward page-delimiter nil t) + (skip-chars-forward " \t\n")) ;; ENDRECFUN is called with point within the record. ;; It should move point to the end of the record. - (function (lambda () - (if (re-search-forward - page-delimiter - nil - t) - (goto-char (match-beginning 0)) - (goto-char (point-max)))))))) + (lambda () + (if (re-search-forward + page-delimiter + nil + t) + (goto-char (match-beginning 0)) + (goto-char (point-max))))))) (define-obsolete-function-alias 'sort-pages-buffer #'pages-sort-buffer "27.1") (defun pages-sort-buffer (&optional reverse) |