Mercurial > hg > xemacs-beta

diff lisp/mode-motion.el @ 255:084402c475ba r20-5b26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b26
author cvs
date Mon, 13 Aug 2007 10:21:18 +0200
parents 41ff10fd062f
children 57709be46d1b
line wrap: on
line diff
--- a/lisp/mode-motion.el	Mon Aug 13 10:20:29 2007 +0200
+++ b/lisp/mode-motion.el	Mon Aug 13 10:21:18 2007 +0200
@@ -80,7 +80,12 @@
 	    (set-buffer buffer)
 	    (mode-motion-ensure-extent-ok event)
 	    (if point
-		(progn
+		;; Use save-excursion here to avoid
+		;; save-window-excursion seeing a change in
+		;; window point's value which would make the
+		;; display code do a whole lot of useless work
+		;; and making the display flicker horribly.
+		(save-excursion
 		  (goto-char point)
 		  (condition-case nil (funcall backward) (error nil))
 		  (setq point (point))