summaryrefslogtreecommitdiff
path: root/lisp/mh-e/mh-compat.el
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2021-10-07 15:33:52 +0200
committerStefan Kangas <stefan@marxist.se>2021-10-07 15:40:15 +0200
commit7459a8d70f7e56da7f9dd27678f21eedd3f8f36a (patch)
treed2b096c14f9870a257cf7afa9ea53f12dd6b8f88 /lisp/mh-e/mh-compat.el
parenta067fa72ad7b2936b775210e0de2fd8ce52adcda (diff)
downloademacs-7459a8d70f7e56da7f9dd27678f21eedd3f8f36a.tar.gz
Declare compat macro mh-do-in-xemacs obsolete
* lisp/mh-e/mh-identity.el (mh-identity-add-menu): * lisp/mh-e/mh-acros.el (mh-do-in-xemacs): Declare obsolete. * lisp/mh-e/mh-compat.el: * lisp/mh-e/mh-e.el (mh-xemacs-use-tool-bar-flag): * lisp/mh-e/mh-folder.el (mh-folder-mode): * lisp/mh-e/mh-letter.el (mh-letter-mode): * lisp/mh-e/mh-mime.el (mh-mime-button-map) (mh-mime-security-button-map, mh-small-image-p) (mh-signature-highlight): * lisp/mh-e/mh-search.el (mh-search-mode): * lisp/mh-e/mh-seq.el: * lisp/mh-e/mh-show.el (mh-show-mode): * lisp/mh-e/mh-tool-bar.el (mh-tool-bar-define): * lisp/mh-e/mh-utils.el (mh-logo-display) (mh-hidden-header-keymap): * lisp/mh-e/mh-xface.el (mh-face-display-function) (mh-picon-image-types, mh-x-image-display): Delete calls to 'mh-do-in-xemacs'.
Diffstat (limited to 'lisp/mh-e/mh-compat.el')
-rw-r--r--lisp/mh-e/mh-compat.el15
1 files changed, 0 insertions, 15 deletions
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el
index ade80e8b95e..26e5576fe64 100644
--- a/lisp/mh-e/mh-compat.el
+++ b/lisp/mh-e/mh-compat.el
@@ -42,21 +42,6 @@
(mh-do-in-gnu-emacs
(defalias 'mh-require #'require))
-(mh-do-in-xemacs
- (defun mh-require (feature &optional filename noerror)
- "If feature FEATURE is not loaded, load it from FILENAME.
-If FEATURE is not a member of the list `features', then the feature
-is not loaded; so load the file FILENAME.
-If FILENAME is omitted, the printname of FEATURE is used as the file name.
-If the optional third argument NOERROR is non-nil,
-then return nil if the file is not found instead of signaling an error.
-
-Simulate NOERROR argument in XEmacs which lacks it."
- (if (not (featurep feature))
- (if filename
- (load filename noerror t)
- (load (format "%s" feature) noerror t)))))
-
(defun-mh mh-assoc-string assoc-string (key list case-fold)
"Like `assoc' but specifically for strings.
Case is ignored if CASE-FOLD is non-nil.