diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-02-11 01:14:59 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-02-11 01:14:59 +0000 |
| commit | bd9bb96e15cb9c36523210260a6d863a1606eb89 (patch) | |
| tree | c4df2bf597397e7a058b8215359e1c43b9558b14 /lisp/calculator.el | |
| parent | 4c4e05bb6617282a664f5eda7399948ee20e2f85 (diff) | |
| download | emacs-bd9bb96e15cb9c36523210260a6d863a1606eb89.tar.gz | |
(calculator-mode-map): Fix typo in menu entry.
(calculator-prompt): Doc fix.
Diffstat (limited to 'lisp/calculator.el')
| -rw-r--r-- | lisp/calculator.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el index 98fd5634663..53a3c96d948 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -88,9 +88,9 @@ This determines the default behavior of unary operators." (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 @@ Used for repeating operations in calculator-repR/L.") 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 @@ See the documentation for `calculator-mode' for more information." (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 @@ See the documentation for `calculator-mode' for more information." (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. |