From 7def2f92b258a46cb3c2fd25c1bbe59aedff347b Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 16 Aug 2000 21:24:00 +0000 Subject: [PATCH] (calculator): Add :version. (calculator): Use two lines for calculator window if `modeline' face is boxed. --- lisp/calculator.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/calculator.el b/lisp/calculator.el index cfe459341f8..ad385a9de4d 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -51,6 +51,7 @@ (defgroup calculator nil "Simple pocket calculator." :prefix "calculator" + :version "21.1" :group 'tools :group 'convenience) @@ -155,8 +156,8 @@ operators. It is probably not a good idea to modify this value with Examples: -* A very simple one, adding a postfix \"x-to-y\" convertion keys, using - `t' as a prefix key: +* A very simple one, adding a postfix \"x-to-y\" conversion keys, using + t as a prefix key: (setq calculator-user-operators '((\"tf\" cl-to-fr (+ 32 (/ (* X 9) 5)) 1) @@ -631,7 +632,14 @@ See the documentation for `calculator-mode' for more information." (let ((split-window-keep-point nil) (window-min-height 2)) (select-window - (split-window-vertically (- (window-height) 2))) + ;; Maybe leave two lines for our window because + ;; of the normal `raised' modeline in Emacs 21. + (split-window-vertically + (- (window-height) + (if (plist-get (face-attr-construct 'modeline) + :box) + 3 + 2)))) (switch-to-buffer (get-buffer-create "*calculator*")))))) (set-buffer calculator-buffer) -- 2.39.2