Function: mh-x-image-display

mh-x-image-display is a byte-compiled function defined in mh-xface.el.gz.

Signature

(mh-x-image-display IMAGE MARKER)

Documentation

Display IMAGE at MARKER.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-xface.el.gz
(defun mh-x-image-display (image marker)
  "Display IMAGE at MARKER."
  (with-current-buffer (marker-buffer marker)
    (let ((inhibit-read-only t)
          (buffer-modified-flag (buffer-modified-p)))
      (unwind-protect
          (when (and (file-readable-p image) (not (file-symlink-p image))
                     (eq marker mh-x-image-marker))
            (goto-char marker)
            (insert-image (create-image image 'png)))
        (set-buffer-modified-p buffer-modified-flag)))))