diff options
| -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." | |||
| 1961 | Overlays might be moved and/or split. | 1961 | Overlays might be moved and/or split. |
| 1962 | BEG and END default respectively to the beginning and end of buffer." | 1962 | BEG and END default respectively to the beginning and end of buffer." |
| 1963 | ;; This speeds up the loops over overlays. | 1963 | ;; This speeds up the loops over overlays. |
| 1964 | (overlay-recenter (point-max)) | ||
| 1965 | (unless beg (setq beg (point-min))) | 1964 | (unless beg (setq beg (point-min))) |
| 1966 | (unless end (setq end (point-max))) | 1965 | (unless end (setq end (point-max))) |
| 1966 | (overlay-recenter end) | ||
| 1967 | (if (< end beg) | 1967 | (if (< end beg) |
| 1968 | (setq beg (prog1 end (setq end beg)))) | 1968 | (setq beg (prog1 end (setq end beg)))) |
| 1969 | (save-excursion | 1969 | (save-excursion |