diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-10-07 15:33:52 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-10-07 15:40:15 +0200 |
commit | 7459a8d70f7e56da7f9dd27678f21eedd3f8f36a (patch) | |
tree | d2b096c14f9870a257cf7afa9ea53f12dd6b8f88 /lisp/mh-e/mh-folder.el | |
parent | a067fa72ad7b2936b775210e0de2fd8ce52adcda (diff) | |
download | emacs-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-folder.el')
-rw-r--r-- | lisp/mh-e/mh-folder.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el index 35277ae46a1..c22f95a7970 100644 --- a/lisp/mh-e/mh-folder.el +++ b/lisp/mh-e/mh-folder.el @@ -527,8 +527,6 @@ font-lock is done highlighting.") ;; Shush compiler. (defvar desktop-save-buffer) (defvar font-lock-auto-fontify) -(mh-do-in-xemacs - (defvar font-lock-defaults)) ;; Ensure new buffers won't get this mode if default major-mode is nil. (put 'mh-folder-mode 'mode-class 'special) @@ -595,8 +593,6 @@ perform the operation on all messages in that region. (mh-tool-bar-folder-buttons-init)) (if (boundp 'tool-bar-map) (set (make-local-variable 'tool-bar-map) mh-folder-tool-bar-map))) - (mh-do-in-xemacs - (mh-tool-bar-init :folder)) (make-local-variable 'font-lock-defaults) (setq font-lock-defaults '(mh-folder-font-lock-keywords t)) (make-local-variable 'desktop-save-buffer) @@ -655,10 +651,6 @@ perform the operation on all messages in that region. (mh-funcall-if-exists hl-line-mode 1) (setq revert-buffer-function #'mh-undo-folder) (add-to-list 'minor-mode-alist '(mh-showing-mode " Show")) - (mh-do-in-xemacs - (easy-menu-add mh-folder-sequence-menu) - (easy-menu-add mh-folder-message-menu) - (easy-menu-add mh-folder-folder-menu)) (mh-inc-spool-make) (mh-set-help mh-folder-mode-help-messages) (if (and (featurep 'xemacs) |