diff options
| author | Bill Wohler <wohler@newt.com> | 2006-03-14 19:21:48 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2006-03-14 19:21:48 +0000 |
| commit | 44e3f44013ee5d526d2666e2ec8ed4962f9a6c77 (patch) | |
| tree | 159a8f63cdce362b039861c2e196fe0749ab38b4 /lisp/mh-e/mh-utils.el | |
| parent | 5248a565cad8ca4a489fb8e8cd1bd21a2cf8f006 (diff) | |
| download | emacs-44e3f44013ee5d526d2666e2ec8ed4962f9a6c77.tar.gz | |
* 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.
Diffstat (limited to 'lisp/mh-e/mh-utils.el')
| -rw-r--r-- | lisp/mh-e/mh-utils.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el index 15f71f4ee73..44e15f3cb19 100644 --- a/lisp/mh-e/mh-utils.el +++ b/lisp/mh-e/mh-utils.el @@ -131,9 +131,8 @@ Ignores case when searching for OLD." (defun mh-logo-display () "Modify mode line to display MH-E logo." (mh-do-in-gnu-emacs - (let ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm")) - (image-load-path (mh-image-load-path-for-library - "mh-e" "mh-logo.xpm" 'image-load-path))) + (let* ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm")) + (image-load-path (cons (car load-path) image-load-path))) (add-text-properties 0 2 `(display ,(or mh-logo-cache |