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-identity.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-identity.el')
| -rw-r--r-- | lisp/mh-e/mh-identity.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mh-e/mh-identity.el b/lisp/mh-e/mh-identity.el index cd7f089dc14..4e639f1f747 100644 --- a/lisp/mh-e/mh-identity.el +++ b/lisp/mh-e/mh-identity.el @@ -121,7 +121,7 @@ The field name is downcased. If the FIELD begins with the character \":\", then it must have a special handler defined in `mh-identity-handlers', else return an error since it is not a valid header field." - (or (cdr (mh-assoc-string field mh-identity-handlers t)) + (or (cdr (assoc-string field mh-identity-handlers t)) (and (eq (aref field 0) ?:) (error "Field %s not found in `mh-identity-handlers'" field)) (cdr (assoc ":default" mh-identity-handlers)) |