diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-10-12 14:04:21 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-10-12 14:22:11 +0200 |
| commit | 3e0b2a353519f849093086e777bde359175c4547 (patch) | |
| tree | eb70675cec83e1200a26cb6127bf83707ff53e93 /lisp/mh-e/mh-show.el | |
| parent | 1a02683ceeb6fbcebd0d7bb71dce448177f1d228 (diff) | |
| download | emacs-3e0b2a353519f849093086e777bde359175c4547.tar.gz | |
Remove more MH-E compat code
* lisp/mh-e/mh-e.el (mh-strip-package-version, defgroup-mh)
(defcustom-mh, defface-mh): Make Emacs 21 compat aliases obsolete.
Update callers.
* lisp/mh-e/mh-e.el:
(mh-exchange-point-and-mark-preserving-active-mark)
* lisp/mh-e/mh-folder.el (desktop-buffer-mode-handlers):
* lisp/mh-e/mh-mime.el (mh-mm-inline-media-tests)
(mh-have-file-command, mh-mime-security-button-map):
* lisp/mh-e/mh-show.el (mh-summary-height):
* lisp/mh-e/mh-speed.el (mh-process-kill-without-query):
* lisp/mh-e/mh-xface.el (mh-uncompface-executable)
(mh-face-to-png, mh-uncompface, mh-picon-file-contents): Remove
XEmacs and Emacs 21 and older compat code.
Diffstat (limited to 'lisp/mh-e/mh-show.el')
| -rw-r--r-- | lisp/mh-e/mh-show.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mh-e/mh-show.el b/lisp/mh-e/mh-show.el index d2122523744..4b98d6c4879 100644 --- a/lisp/mh-e/mh-show.el +++ b/lisp/mh-e/mh-show.el @@ -328,8 +328,7 @@ ignored if VISIBLE-HEADERS is non-nil." (defun mh-summary-height () "Return ideal value for the variable `mh-summary-height'. The current frame height is taken into consideration." - (or (and (fboundp 'frame-height) - (> (frame-height) 24) + (or (and (> (frame-height) 24) (min 10 (/ (frame-height) 6))) 4)) |