From: Miles Bader <miles@gnu.org>
Date: Sun, 1 Oct 2000 03:38:23 +0000 (+0000)
Subject: (easy-mmode-define-navigation):
X-Git-Tag: emacs-pretest-21.0.90~1237
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa0c3dca64c5e6fe893163a3242fe77b35094128;p=emacs.git

(easy-mmode-define-navigation):
  Call `recenter' with an arg to prevent redrawing the display.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f602121d4c7..edcab7157b3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-01  Miles Bader  <miles@gnu.org>
+
+	* emacs-lisp/easy-mmode.el (easy-mmode-define-navigation): Call
+	`recenter' with an arg to prevent redrawing the display.
+
 2000-09-30  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* 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)."
 				,(if endfun `(,endfun)
 				   `(re-search-forward ,re nil t 2)))
 			      (point-max))))
-	       (unless (<= endpt (window-end)) (recenter))))))
+	       (unless (<= endpt (window-end))
+		 (recenter '(0)))))))
        (defun ,prev-sym (&optional count)
 	 ,(format "Go to the previous COUNT'th %s" (or name base-name))
 	 (interactive)