Re: momentary-string-display

[Stephen Leake <stephen_leake@member.fsf.org>]

Richard Stallman <rms@gnu.org> writes:

> Does this patch fix that bug?

No, since the problem is the "move-to-window-line".

This fixes it; there may be a more elegant way:

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.542
diff -c -r1.542 subr.el
*** subr.el	5 Jan 2007 17:49:43 -0000	1.542
--- subr.el	6 Jan 2007 07:35:08 -0000
***************
*** 1905,1915 ****
  	      (recenter (/ (window-height) 2)))
  	  ;; If that pushed message start off the screen,
  	  ;; scroll to start it at the top of the screen.
! 	  (move-to-window-line 0)
! 	  (if (> (point) pos)
! 	      (progn
! 		(goto-char pos)
! 		(recenter 0)))
  	  (message (or message "Type %s to continue editing.")
  		   (single-key-description exit-char))
  	  (let (char)
--- 1905,1917 ----
  	      (recenter (/ (window-height) 2)))
  	  ;; If that pushed message start off the screen,
  	  ;; scroll to start it at the top of the screen.
!           (let ((start-pos (point)))
!             (move-to-window-line 0)
!             (if (> (point) pos)
!                 (progn
!                   (goto-char pos)
!                   (recenter 0))
!               (goto-char start-pos)))
  	  (message (or message "Type %s to continue editing.")
  		   (single-key-description exit-char))
  	  (let (char)

-- 
-- Stephe