diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 4748b4d8dcb..87ba9d5833e 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1961,9 +1961,9 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." Overlays might be moved and/or split. BEG and END default respectively to the beginning and end of buffer." ;; This speeds up the loops over overlays. - (overlay-recenter (point-max)) (unless beg (setq beg (point-min))) (unless end (setq end (point-max))) + (overlay-recenter end) (if (< end beg) (setq beg (prog1 end (setq end beg)))) (save-excursion |