# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1171156499 0
# Node ID 8344ba1076b6b660101dd6acafb4e6eb918fcb8b
# Parent  639c59a46c0585a12384b2b5b638fa910e245c98
(calculator-mode-map): Fix typo in menu entry.
(calculator-prompt): Doc fix.

diff -r 639c59a46c05 -r 8344ba1076b6 lisp/calculator.el
--- a/lisp/calculator.el	Sun Feb 11 00:58:12 2007 +0000
+++ b/lisp/calculator.el	Sun Feb 11 01:14:59 2007 +0000
@@ -88,9 +88,9 @@
 
 (defcustom calculator-prompt "Calc=%s> "
   "*The prompt used by the Emacs calculator.
-It should contain a \"%s\" somewhere that will indicate the i/o radixes,
-this string will be a two-character string as described in the
-documentation for `calculator-mode'."
+It should contain a \"%s\" somewhere that will indicate the i/o radixes;
+this will be a two-character string as described in the documentation
+for `calculator-mode'."
   :type  'string
   :group 'calculator)
 
@@ -561,7 +561,7 @@
                                      calculator-output-radix)))]
             "---"
             ,@(mapcar 'car radix-selectors)
-            ("Seperate I/O"
+            ("Separate I/O"
              ,@(mapcar (lambda (x) (nth 1 x)) radix-selectors)
              "---"
              ,@(mapcar (lambda (x) (nth 2 x)) radix-selectors)))
@@ -736,13 +736,13 @@
            (select-window
             (split-window-vertically
              ;; If the modeline might interfere with the calculator buffer,
-             ;; use 3 lines instead. 
+             ;; use 3 lines instead.
              (if (and (fboundp 'face-attr-construct)
                       (let* ((dh (plist-get (face-attr-construct 'default) :height))
                              (mf (face-attr-construct 'modeline))
                              (mh (plist-get mf :height)))
-                        ;; If the modeline is shorter than the default, 
-                        ;; stick with 2 lines.  (It may be necessary to 
+                        ;; If the modeline is shorter than the default,
+                        ;; stick with 2 lines.  (It may be necessary to
                         ;; check how much shorter.)
                         (and
                          (not
@@ -766,7 +766,7 @@
                           (let* ((bx (plist-get mf :box))
                                  (lh (plist-get bx :line-width)))
                             (and bx
-                                 (or 
+                                 (or
                                   (not lh)
                                   (> lh 0))))
                           ;; If the modeline has an overline, use 3 lines.