projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e4ff3f5
)
(mm-inline-image-emacs): Use put-image, remove-images.
author
Dave Love
<fx@gnu.org>
Thu, 27 Apr 2000 21:47:12 +0000
(21:47 +0000)
committer
Dave Love
<fx@gnu.org>
Thu, 27 Apr 2000 21:47:12 +0000
(21:47 +0000)
lisp/mm-view.el
patch
|
blob
|
history
diff --git
a/lisp/mm-view.el
b/lisp/mm-view.el
index
989266f
..
9edee34
100644
(file)
--- a/
lisp/mm-view.el
+++ b/
lisp/mm-view.el
@@
-40,23
+40,13
@@
;;; Functions for displaying various formats inline
;;;
(defun mm-inline-image-emacs (handle)
;;; Functions for displaying various formats inline
;;;
(defun mm-inline-image-emacs (handle)
- (let ((b (point))
- (overlay nil)
- (string (copy-sequence "[MM-INLINED-IMAGE]"))
+ (let ((b (point-marker))
buffer-read-only)
(insert "\n")
buffer-read-only)
(insert "\n")
- (buffer-name)
- (setq overlay (make-overlay (point) (point) (current-buffer)))
- (put-text-property 0 (length string) 'display (mm-get-image handle) string)
- (overlay-put overlay 'before-string string)
-
+ (put-image (mm-get-image handle) b "x")
(mm-handle-set-undisplayer
handle
(mm-handle-set-undisplayer
handle
- `(lambda ()
- (let (buffer-read-only)
- (delete-overlay ,overlay)
- (delete-region ,(set-marker (make-marker) b)
- ,(set-marker (make-marker) (point))))))))
+ `(lambda () (remove-images ,b (1+ ,b))))))
(defun mm-inline-image-xemacs (handle)
(let ((b (point))
(defun mm-inline-image-xemacs (handle)
(let ((b (point))