Commit dada660a authored by Richard M. Stallman's avatar Richard M. Stallman

(image-load-path): Use eval-at-startup to initialize.

parent adbe2d11
...@@ -64,9 +64,7 @@ When the name of an image file match REGEXP, it is assumed to ...@@ -64,9 +64,7 @@ When the name of an image file match REGEXP, it is assumed to
be of image type IMAGE-TYPE.") be of image type IMAGE-TYPE.")
(defvar image-load-path (defvar image-load-path nil
(list (file-name-as-directory (expand-file-name "images" data-directory))
'data-directory 'load-path)
"List of locations in which to search for image files. "List of locations in which to search for image files.
If an element is a string, it defines a directory to search. If an element is a string, it defines a directory to search.
If an element is a variable symbol whose value is a string, that If an element is a variable symbol whose value is a string, that
...@@ -74,6 +72,11 @@ value defines a directory to search. ...@@ -74,6 +72,11 @@ value defines a directory to search.
If an element is a variable symbol whose value is a list, the If an element is a variable symbol whose value is a list, the
value is used as a list of directories to search.") value is used as a list of directories to search.")
(eval-at-startup
(setq image-load-path
(list (file-name-as-directory (expand-file-name "images" data-directory))
'data-directory 'load-path)))
(defun image-jpeg-p (data) (defun image-jpeg-p (data)
"Value is non-nil if DATA, a string, consists of JFIF image data. "Value is non-nil if DATA, a string, consists of JFIF image data.
We accept the tag Exif because that is the same format." We accept the tag Exif because that is the same format."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment