changeset 80651:a656c149eace

(next-error): Do a redisplay to prevent incorrect recentering (workaround for bug#197).
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 28 Jul 2008 20:02:04 +0000
parents dccdef827de2
children 3d0f5d74bca9
files lisp/simple.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Mon Jul 28 20:01:45 2008 +0000
+++ b/lisp/simple.el	Mon Jul 28 20:02:04 2008 +0000
@@ -306,7 +306,10 @@
     ;; we know here that next-error-function is a valid symbol we can funcall
     (with-current-buffer next-error-last-buffer
       (funcall next-error-function (prefix-numeric-value arg) reset)
-      (run-hooks 'next-error-hook))))
+      (run-hooks 'next-error-hook)))
+  ;; This is a workaround for a redisplay bug (bug#197).  The proper
+  ;; fix is in the trunk: see the 2008-07-28 change to xdisp.c by cyd.
+  (redisplay))
 
 (defun next-error-internal ()
   "Visit the source code corresponding to the `next-error' message at point."