+2010-03-03 Štěpán Němec <stepnem@gmail.com>
+
+ * subr.el (momentary-string-display): Don't overwrite the MESSAGE
+ argument with a local variable. (Bug#5670)
+
2010-03-02 Juri Linkov <juri@jurta.org>
* info.el (Info-index-next): Decrement line number by 2. (Bug#5652)
If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
(or exit-char (setq exit-char ?\s))
(let ((ol (make-overlay pos pos))
- (message (copy-sequence string)))
+ (str (copy-sequence string)))
(unwind-protect
(progn
(save-excursion
- (overlay-put ol 'after-string message)
+ (overlay-put ol 'after-string str)
(goto-char pos)
;; To avoid trouble with out-of-bounds position
(setq pos (point))
- ;; If the message end is off screen, recenter now.
+ ;; If the string end is off screen, recenter now.
(if (<= (window-end nil t) pos)
(recenter (/ (window-height) 2))))
(message (or message "Type %s to continue editing.")