Function: html-mode--image-yank-handler

html-mode--image-yank-handler is a byte-compiled function defined in sgml-mode.el.gz.

Signature

(html-mode--image-yank-handler TYPE IMAGE)

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/sgml-mode.el.gz
(defun html-mode--image-yank-handler (type image)
  (let ((file (read-file-name (format "Save %s image to: " type))))
    (when (file-directory-p file)
      (user-error "%s is a directory" file))
    (when (and (file-exists-p file)
               (not (yes-or-no-p (format "%s exists; overwrite?" file))))
      (user-error "%s exists" file))
    (let ((coding-system-for-write 'emacs-internal))
      (with-temp-file file
        (insert image)))
    (insert (format "<img src=%S>\n" (file-relative-name file)))
    (insert-image
     (create-image file (mailcap-mime-type-to-extension type) nil
		   :max-width 200
		   :max-height 200)
     " ")))