diff options
| author | Dave Love <fx@gnu.org> | 2000-08-16 21:24:00 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-08-16 21:24:00 +0000 |
| commit | 7def2f92b258a46cb3c2fd25c1bbe59aedff347b (patch) | |
| tree | 6726af77f19615b61c90394df53e3c3c1a387925 /lisp/calculator.el | |
| parent | c0df1972b22ef1521ee8f25e33bfc7dc7ab1ad78 (diff) | |
(calculator): Add :version.
(calculator): Use two lines for calculator window if `modeline'
face is boxed.
Diffstat (limited to 'lisp/calculator.el')
| -rw-r--r-- | lisp/calculator.el | 14 |
1 files 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) |