From: Dave Love <fx@gnu.org>
Date: Wed, 16 Aug 2000 21:24:00 +0000 (+0000)
Subject: (calculator): Add :version.
X-Git-Tag: emacs-pretest-21.0.90~2229
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7def2f92b258a46cb3c2fd25c1bbe59aedff347b;p=emacs.git

(calculator): Add :version.
(calculator): Use two lines for calculator window if `modeline'
face is boxed.
---

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)