diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-10-07 17:10:07 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-10-08 03:38:12 +0200 |
| commit | b506c5b217d4adf68013c15be0d1b16189de089b (patch) | |
| tree | 9b0345b06d3ce78b4e383a658d619182a0504f04 /lisp/mh-e/mh-tool-bar.el | |
| parent | 36d7c4af7c83c4f3ea9ab9fdd0822b986564d78e (diff) | |
| download | emacs-b506c5b217d4adf68013c15be0d1b16189de089b.tar.gz emacs-b506c5b217d4adf68013c15be0d1b16189de089b.tar.bz2 emacs-b506c5b217d4adf68013c15be0d1b16189de089b.zip | |
Make mh-* XEmacs compat aliases obsolete
* lisp/mh-e/mh-acros.el (mh-make-local-hook): Make XEmacs and Emacs 20
macro obsolete. Update all callers
* lisp/mh-e/mh-compat.el (mh-require): Make XEmacs compat alias
obsolete. Update all callers
(mh-write-file-functions): Make XEmacs compat macro obsolete. Update
all callers
(mh-assoc-string, mh-display-color-cells, mh-face-foreground)
(mh-face-foreground, mh-face-background)
(mh-font-lock-add-keywords, mh-image-load-path-for-library)
(mh-image-search-load-path, mh-line-beginning-position)
(mh-line-end-position, mh-mail-abbrev-make-syntax-table)
(mh-define-obsolete-variable-alias, mh-make-obsolete-variable)
(mh-match-string-no-properties, mh-replace-regexp-in-string)
(mh-test-completion, mh-url-hexify-string, mh-view-mode-enter)
(mh-window-full-height-p): Make XEmacs compat definitions into
obsolete function aliases for the same names but without the "mh-"
prefix. Update all callers.
Diffstat (limited to 'lisp/mh-e/mh-tool-bar.el')
| -rw-r--r-- | lisp/mh-e/mh-tool-bar.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mh-e/mh-tool-bar.el b/lisp/mh-e/mh-tool-bar.el index 4e795d96000..e4cd01c2229 100644 --- a/lisp/mh-e/mh-tool-bar.el +++ b/lisp/mh-e/mh-tool-bar.el @@ -216,8 +216,8 @@ where, ;; Tool bar initialization functions (defun mh-tool-bar-folder-buttons-init () (when (mh-buffer-exists-p 'mh-folder-mode) - (let* ((load-path (mh-image-load-path-for-library "mh-e" - "mh-logo.xpm")) + (let* ((load-path (image-load-path-for-library "mh-e" + "mh-logo.xpm")) (image-load-path (cons (car load-path) (when (boundp 'image-load-path) image-load-path)))) @@ -239,8 +239,8 @@ where, tool-bar-map))))) (defun mh-tool-bar-letter-buttons-init () (when (mh-buffer-exists-p 'mh-letter-mode) - (let* ((load-path (mh-image-load-path-for-library "mh-e" - "mh-logo.xpm")) + (let* ((load-path (image-load-path-for-library "mh-e" + "mh-logo.xpm")) (image-load-path (cons (car load-path) (when (boundp 'image-load-path) image-load-path)))) |