(momentary-string-display): After moving point, set POS variable to it to avoid

later errors once the buffer is modified.  Doc fix.

2 files changed, 13 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4e634ae460..687dabb2b94 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-01-02  Juanma Barranquero  <lekktu@gmail.com>
+
+        * subr.el (momentary-string-display): After moving point, set POS
+        variable to it to avoid later errors once the buffer is modified.
+        Doc fix.
+
 2007-01-02  Alan Mackenzie  <acm@muc.de>
 
         * progmodes/cc-cmds.el (c-mask-paragraph): In a block comment,
@@ -7,13 +13,13 @@
 
         * wid-edit.el (widget-choose): Avoid ugly error for function keys.
 
-        * progmodes/cfengine.el (cfengine-font-lock-syntactic-keywords): 
+        * progmodes/cfengine.el (cfengine-font-lock-syntactic-keywords):
         Fix format of value.
 
         * cus-edit.el (customize-unsaved): Renamed from customize-customized.
         Change messages accordingly.
         (customize-customized): Now alias.
-        
+
 2007-01-02  Juanma Barranquero  <lekktu@gmail.com>
 
         * files.el (version-control): Doc fix.
@@ -2317,8 +2323,8 @@
 
 2006-10-19  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
-        * select.el (ccl-check-utf-8, string-utf-8-p): New functions
-        (by Kenichi Handa).
+        * select.el (ccl-check-utf-8, string-utf-8-p): New functions (by
+        Kenichi Handa).
         (xselect-convert-to-string): Decline requests for UTF8_STRING if
         the selection is not UTF-8.
 
diff --git a/lisp/subr.el b/lisp/subr.el
index 086163cca72..c98e14b6334 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1887,6 +1887,7 @@ menu bar menus and the frame title."
 (defun momentary-string-display (string pos &optional exit-char message)
   "Momentarily display STRING in the buffer at POS.
 Display remains until next event is input.
+If POS is a marker, only its position is used; its buffer is ignored.
 Optional third arg EXIT-CHAR can be a character, event or event
 description list.  EXIT-CHAR defaults to SPC.  If the input is
 EXIT-CHAR it is swallowed; otherwise it is then available as
@@ -1904,6 +1905,8 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
         (progn
           (save-excursion
             (goto-char pos)
+            ;; To avoid trouble with out-of-bounds position
+            (setq pos (point))
             ;; defeat file locking... don't try this at home, kids!
             (setq buffer-file-name nil)
             (insert-before-markers string)