put-image.
(mm-inline-image): Defalias, not fset.
(let ((b (point-marker))
buffer-read-only)
(insert "\n")
- (put-image (mm-get-image handle) b "x")
+ (put-image (mm-get-image handle) b)
(mm-handle-set-undisplayer
handle
`(lambda () (remove-images ,b (1+ ,b))))))
(eval-and-compile
(if (string-match "XEmacs" (emacs-version))
- (fset 'mm-inline-image 'mm-inline-image-xemacs)
- (fset 'mm-inline-image 'mm-inline-image-emacs)))
+ (defalias 'mm-inline-image 'mm-inline-image-xemacs)
+ (defalias 'mm-inline-image 'mm-inline-image-emacs)))
(defvar mm-w3-setup nil)
(defun mm-setup-w3 ()