# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 966461040 0
# Node ID 5f9c434a6e8891a639adfe396190d18a652dc20b
# Parent  e559f0aa6b2d7dd1bc07d9a735753b6a7669d123
(calculator): Add :version.
(calculator): Use two lines for calculator window if `modeline'
face is boxed.

diff -r e559f0aa6b2d -r 5f9c434a6e88 lisp/calculator.el
--- a/lisp/calculator.el	Wed Aug 16 21:05:37 2000 +0000
+++ b/lisp/calculator.el	Wed Aug 16 21:24:00 2000 +0000
@@ -51,6 +51,7 @@
 (defgroup calculator nil
   "Simple pocket calculator."
   :prefix "calculator"
+  :version "21.1"
   :group 'tools
   :group 'convenience)
 
@@ -155,8 +156,8 @@
 
 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 @@
                   (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)