Re: momentary-string-display

[Stephen Leake]

Richard Stallman <address@hidden> 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