Mercurial > emacs

comparison lisp/mh-e/mh-utils.el @ 68598:164eb9d4f124

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-image-load-path): New variable to optionally hold the directory where MH-E images are stored. If nil, then the function `mh-image-load-path' will find it. This variable will be used for Debian packaging. (mh-image-load-path function): Use variable `mh-image-load-path' if non-nil and exists.
author Peter Galbraith <galbraith@mixing.qc.dfo.ca>
date Fri, 03 Feb 2006 20:27:35 +0000
parents 7daec5f4a289
children cad657a1f438
comparison
equal deleted inserted replaced
68597:04d228a1b5c8 68598:164eb9d4f124
79 ;;;###mh-autoload 79 ;;;###mh-autoload
80 (defun mh-delete-line (lines) 80 (defun mh-delete-line (lines)
81 "Delete the next LINES lines." 81 "Delete the next LINES lines."
82 (delete-region (point) (progn (forward-line lines) (point)))) 82 (delete-region (point) (progn (forward-line lines) (point))))
83 83
84 (defvar mh-image-load-path nil
85 "Directory where images for MH-E are found.
86 If nil, then the function mh-image-load-path will search in
87 ../../etc/images relative to the files in \"lisp/mh-e\".")
88
84 (defvar mh-image-load-path-called-flag nil) 89 (defvar mh-image-load-path-called-flag nil)
85 90
86 ;;;###mh-autoload 91 ;;;###mh-autoload
87 (defun mh-image-load-path () 92 (defun mh-image-load-path ()
88 "Ensure that the MH-E images are accessible by `find-image'. 93 "Ensure that the MH-E images are accessible by `find-image'.
90 files in \"lisp/mh-e\". If `image-load-path' exists (since Emacs 95 files in \"lisp/mh-e\". If `image-load-path' exists (since Emacs
91 22), then the images directory is added to it if isn't already 96 22), then the images directory is added to it if isn't already
92 there. Otherwise, the images directory is added to the 97 there. Otherwise, the images directory is added to the
93 `load-path' if it isn't already there." 98 `load-path' if it isn't already there."
94 (unless mh-image-load-path-called-flag 99 (unless mh-image-load-path-called-flag
95 (let (mh-library-name mh-image-load-path) 100 (let (mh-library-name)
96 ;; First, find mh-e in the load-path. 101 (when (or (not mh-image-load-path)
97 (setq mh-library-name (locate-library "mh-e")) 102 (not (file-exists-p mh-image-load-path)))
98 (if (not mh-library-name) 103 ;; First, find mh-e in the load-path.
99 (error "Can not find MH-E in load-path")) 104 (setq mh-library-name (locate-library "mh-e"))
100 (setq mh-image-load-path 105 (if (not mh-library-name)
101 (expand-file-name (concat (file-name-directory mh-library-name) 106 (error "Can not find MH-E in load-path"))
102 "../../etc/images"))) 107 (setq mh-image-load-path
108 (expand-file-name (concat (file-name-directory mh-library-name)
109 "../../etc/images"))))
103 (if (not (file-exists-p mh-image-load-path)) 110 (if (not (file-exists-p mh-image-load-path))
104 (error "Can not find image directory %s" mh-image-load-path)) 111 (error "Can not find image directory %s" mh-image-load-path))
105 (if (boundp 'image-load-path) 112 (if (boundp 'image-load-path)
106 (add-to-list 'image-load-path mh-image-load-path) 113 (add-to-list 'image-load-path mh-image-load-path)
107 (add-to-list 'load-path mh-image-load-path))) 114 (add-to-list 'load-path mh-image-load-path)))