(mm-inline-image-xemacs): Insert newline, then move

back, then insert glyph.  (Before, the glyph was inserted first,
then the newline.)  This works around a behavior in XEmacs where
it is not possible to insert a character after a glyph which is at
the end of a buffer.  Patch by Lloyd Zusman <ljz@asfast.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 60f6a70..e2ed8f4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2001-05-30  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * mm-view.el (mm-inline-image-xemacs): Insert newline, then move
+       back, then insert glyph.  (Before, the glyph was inserted first,
+       then the newline.)  This works around a behavior in XEmacs where
+       it is not possible to insert a character after a glyph which is at
+       the end of a buffer.  Patch by Lloyd Zusman <ljz@asfast.com>.
+
 2001-05-28  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        From Jaap-Henk Hoepman (jhh@xs4all.nl).

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 976cdff..4a92e80 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -49,10 +49,11 @@
      `(lambda () (remove-images ,b (1+ ,b))))))
 
 (defun mm-inline-image-xemacs (handle)
+  (insert "\n")
+  (forward-char -1)
   (let ((b (point))
        (annot (make-annotation (mm-get-image handle) nil 'text))
        buffer-read-only)
-    (insert "\n")
     (mm-handle-set-undisplayer
      handle
      `(lambda ()