Mercurial > emacs
changeset 69286:0b84cb235f62
* mh-folder.el (mh-folder-mode): Drop 'load-path argument when calling
mh-image-load-path-for-library since this is the default.
* mh-letter.el (mh-letter-mode): Ditto.
* mh-utils.el (mh-logo-display): Ditto.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Sun, 05 Mar 2006 20:11:53 +0000 |
| parents | 287868e8ac6f |
| children | eb7108787b50 |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-folder.el lisp/mh-e/mh-letter.el lisp/mh-e/mh-utils.el |
| diffstat | 4 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Sun Mar 05 13:12:42 2006 +0000 +++ b/lisp/mh-e/ChangeLog Sun Mar 05 20:11:53 2006 +0000 @@ -1,3 +1,12 @@ +2006-03-05 Bill Wohler <wohler@newt.com> + + * mh-folder.el (mh-folder-mode): Drop 'load-path argument when + calling mh-image-load-path-for-library since this is the default. + + * mh-letter.el (mh-letter-mode): Ditto. + + * mh-utils.el (mh-logo-display): Ditto. + 2006-03-04 Bill Wohler <wohler@newt.com> * mh-compat.el (mh-image-load-path-for-library): Move here from
--- a/lisp/mh-e/mh-folder.el Sun Mar 05 13:12:42 2006 +0000 +++ b/lisp/mh-e/mh-folder.el Sun Mar 05 20:11:53 2006 +0000 @@ -591,8 +591,7 @@ \\{mh-folder-mode-map}" (mh-do-in-gnu-emacs (unless mh-folder-buttons-init-flag - (let ((load-path (mh-image-load-path-for-library - "mh-e" "mh-logo.xpm" 'load-path)) + (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))) (mh-tool-bar-folder-buttons-init)
--- a/lisp/mh-e/mh-letter.el Sun Mar 05 13:12:42 2006 +0000 +++ b/lisp/mh-e/mh-letter.el Sun Mar 05 20:11:53 2006 +0000 @@ -313,8 +313,7 @@ (make-local-variable 'mh-sent-from-msg) (mh-do-in-gnu-emacs (unless mh-letter-buttons-init-flag - (let ((load-path (mh-image-load-path-for-library - "mh-e" "mh-logo.xpm" 'load-path)) + (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))) (mh-tool-bar-letter-buttons-init)
--- a/lisp/mh-e/mh-utils.el Sun Mar 05 13:12:42 2006 +0000 +++ b/lisp/mh-e/mh-utils.el Sun Mar 05 20:11:53 2006 +0000 @@ -131,8 +131,7 @@ (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" 'load-path)) + (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))) (add-text-properties