diff options
| author | Miles Bader | 2000-10-01 03:38:23 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-10-01 03:38:23 +0000 |
| commit | aa0c3dca64c5e6fe893163a3242fe77b35094128 (patch) | |
| tree | 6ddd6dd19cf7cc32985ada6e7f988fe91c33b923 | |
| parent | 6a0b07524858037f28da740b781a38422cd7439b (diff) | |
| download | emacs-aa0c3dca64c5e6fe893163a3242fe77b35094128.tar.gz emacs-aa0c3dca64c5e6fe893163a3242fe77b35094128.zip | |
(easy-mmode-define-navigation):
Call `recenter' with an arg to prevent redrawing the display.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f602121d4c7..edcab7157b3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2000-10-01 Miles Bader <miles@gnu.org> | ||
| 2 | |||
| 3 | * emacs-lisp/easy-mmode.el (easy-mmode-define-navigation): Call | ||
| 4 | `recenter' with an arg to prevent redrawing the display. | ||
| 5 | |||
| 1 | 2000-09-30 Stefan Monnier <monnier@cs.yale.edu> | 6 | 2000-09-30 Stefan Monnier <monnier@cs.yale.edu> |
| 2 | 7 | ||
| 3 | * emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name): Prettier. | 8 | * emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name): Prettier. |
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 6b8ab0503f0..46402aa53b1 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -515,7 +515,8 @@ ENDFUN should return the end position (with or without moving point)." | |||
| 515 | ,(if endfun `(,endfun) | 515 | ,(if endfun `(,endfun) |
| 516 | `(re-search-forward ,re nil t 2))) | 516 | `(re-search-forward ,re nil t 2))) |
| 517 | (point-max)))) | 517 | (point-max)))) |
| 518 | (unless (<= endpt (window-end)) (recenter)))))) | 518 | (unless (<= endpt (window-end)) |
| 519 | (recenter '(0))))))) | ||
| 519 | (defun ,prev-sym (&optional count) | 520 | (defun ,prev-sym (&optional count) |
| 520 | ,(format "Go to the previous COUNT'th %s" (or name base-name)) | 521 | ,(format "Go to the previous COUNT'th %s" (or name base-name)) |
| 521 | (interactive) | 522 | (interactive) |