[Emacs-diffs] Changes to emacs/lisp/image.el

[Richard M . Stallman]

Index: emacs/lisp/image.el
diff -c emacs/lisp/image.el:1.52 emacs/lisp/image.el:1.53
*** emacs/lisp/image.el:1.52    Fri Oct 21 23:42:21 2005
--- emacs/lisp/image.el Sat Oct 22 15:26:36 2005
***************
*** 64,78 ****
  be of image type IMAGE-TYPE.")
  
  
! (defvar image-load-path
!   (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.
  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
  value defines a directory to search.
  If an element is a variable symbol whose value is a list, the
  value is used as a list of directories to search.")
  
  (defun image-jpeg-p (data)
    "Value is non-nil if DATA, a string, consists of JFIF image data.
--- 64,81 ----
  be of image type IMAGE-TYPE.")
  
  
! (defvar image-load-path nil
    "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 variable symbol whose value is a string, that
  value defines a directory to search.
  If an element is a variable symbol whose value is a list, the
  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)
    "Value is non-nil if DATA, a string, consists of JFIF image data.