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-e.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-e.el')
| -rw-r--r-- | lisp/mh-e/mh-e.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index d929a329c93..09f62466b3c 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -88,7 +88,7 @@ (require 'mh-buffers) (require 'mh-compat) -(mh-font-lock-add-keywords +(font-lock-add-keywords 'emacs-lisp-mode (eval-when-compile `((,(concat "(\\(" @@ -483,7 +483,7 @@ all the strings have been used." (count 0)) (while (and (not (eobp)) (< count mh-index-max-cmdline-args)) (push (buffer-substring-no-properties (point) - (mh-line-end-position)) + (line-end-position)) arg-list) (cl-incf count) (forward-line)) @@ -3239,7 +3239,7 @@ function used to insert the signature with :group 'mh-letter :package-version '(MH-E . "8.0")) -(mh-define-obsolete-variable-alias 'mh-kill-folder-suppress-prompt-hooks +(define-obsolete-variable-alias 'mh-kill-folder-suppress-prompt-hooks 'mh-kill-folder-suppress-prompt-functions "24.3") (defcustom-mh mh-kill-folder-suppress-prompt-functions '(mh-search-p) "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder]. @@ -3555,7 +3555,7 @@ specified colors." (if mh-min-colors-defined-flag spec - (let ((cells (mh-display-color-cells)) + (let ((cells (display-color-cells)) new-spec) ;; Remove entries with min-colors, or delete them if we have ;; fewer colors than they specify. |