Mercurial > emacs
comparison lisp/mh-e/mh-folder.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 | 0b84cb235f62 |
children | 6afc0d1f682b |
comparison
equal
deleted
inserted
replaced
69471:6f07bf99b6f8 | 69472:5259cc742763 |
---|---|
589 perform the operation on all messages in that region. | 589 perform the operation on all messages in that region. |
590 | 590 |
591 \\{mh-folder-mode-map}" | 591 \\{mh-folder-mode-map}" |
592 (mh-do-in-gnu-emacs | 592 (mh-do-in-gnu-emacs |
593 (unless mh-folder-buttons-init-flag | 593 (unless mh-folder-buttons-init-flag |
594 (let ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm")) | 594 (let* ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm")) |
595 (image-load-path (mh-image-load-path-for-library | 595 (image-load-path (cons (car load-path) image-load-path))) |
596 "mh-e" "mh-logo.xpm" 'image-load-path))) | |
597 (mh-tool-bar-folder-buttons-init) | 596 (mh-tool-bar-folder-buttons-init) |
598 (setq mh-folder-buttons-init-flag t))) | 597 (setq mh-folder-buttons-init-flag t))) |
599 (set (make-local-variable 'tool-bar-map) mh-folder-tool-bar-map)) | 598 (set (make-local-variable 'tool-bar-map) mh-folder-tool-bar-map)) |
600 (mh-do-in-xemacs | 599 (mh-do-in-xemacs |
601 (mh-tool-bar-init :folder)) | 600 (mh-tool-bar-init :folder)) |