Function: mh--with-image-load-path

mh--with-image-load-path is an autoloaded macro defined in mh-utils.el.gz.

Signature

(mh--with-image-load-path &rest BODY)

Documentation

Load image and eval BODY with image-load-path set appropriately.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-utils.el.gz
;;; Logo Display

;;;###mh-autoload
(defmacro mh--with-image-load-path (&rest body)
  "Load `image' and eval BODY with `image-load-path' set appropriately."
  (declare (debug t) (indent 0))
  `(progn
     ;; Not preloaded in without-x builds.
     (require 'image)
     (defvar image-load-path)
     (declare-function image-load-path-for-library "image")
     (let* ((load-path (image-load-path-for-library "mh-e" "mh-logo.xpm"))
            (image-load-path (cons (car load-path) image-load-path)))
       ,@body)))