Mercurial > emacs
comparison lisp/mh-e/mh-utils.el @ 69472:5259cc742763
* mh-compat.el (mh-image-load-path-for-library): Incorporate changes
from image-load-path-for-library, which are:
(image-load-path-for-library): Pass value of path rather than symbol.
Always return list of directories. Guarantee that image directory
comes first.
* mh-e.el (image-load-path): Define on those Emacsen that lack it to
avoid compile and run-time errors.
* mh-folder.el (mh-folder-mode): Use new idiom for setting
image-load-path.
* mh-letter.el (mh-letter-mode): Ditto.
* mh-utils.el (mh-logo-display): Ditto.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Tue, 14 Mar 2006 19:21:48 +0000 |
parents | 6c89c044a798 |
children | 6afc0d1f682b |
comparison
equal
deleted
inserted
replaced
69471:6f07bf99b6f8 | 69472:5259cc742763 |
---|---|
129 | 129 |
130 ;;;###mh-autoload | 130 ;;;###mh-autoload |
131 (defun mh-logo-display () | 131 (defun mh-logo-display () |
132 "Modify mode line to display MH-E logo." | 132 "Modify mode line to display MH-E logo." |
133 (mh-do-in-gnu-emacs | 133 (mh-do-in-gnu-emacs |
134 (let ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm")) | 134 (let* ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm")) |
135 (image-load-path (mh-image-load-path-for-library | 135 (image-load-path (cons (car load-path) image-load-path))) |
136 "mh-e" "mh-logo.xpm" 'image-load-path))) | |
137 (add-text-properties | 136 (add-text-properties |
138 0 2 | 137 0 2 |
139 `(display ,(or mh-logo-cache | 138 `(display ,(or mh-logo-cache |
140 (setq mh-logo-cache | 139 (setq mh-logo-cache |
141 (mh-funcall-if-exists | 140 (mh-funcall-if-exists |