Mercurial > emacs
changeset 75773:8344ba1076b6
(calculator-mode-map): Fix typo in menu entry.
(calculator-prompt): Doc fix.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 11 Feb 2007 01:14:59 +0000 |
| parents | 639c59a46c05 |
| children | dc23aaa67696 |
| files | lisp/calculator.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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.