mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(calculator-mode-map): Fix typo in menu entry.

Browse Source 
(calculator-prompt): Doc fix.
This commit is contained in:
Juanma Barranquero 2007-02-11 01:14:59 +00:00
parent 4c4e05bb66
commit bd9bb96e15
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/calculator.el
View File

@ -88,9 +88,9 @@ This determines the default behavior of unary operators."
(defcustom calculator-prompt "Calc=%s> " (defcustom calculator-prompt "Calc=%s> "
"*The prompt used by the Emacs calculator. "*The prompt used by the Emacs calculator.
It should contain a \"%s\" somewhere that will indicate the i/o radixes, 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 this will be a two-character string as described in the documentation
documentation for `calculator-mode'." for `calculator-mode'."
:type 'string :type 'string
:group 'calculator) :group 'calculator)
@ -561,7 +561,7 @@ Used for repeating operations in calculator-repR/L.")
calculator-output-radix)))] calculator-output-radix)))]
"---" "---"
,@(mapcar 'car radix-selectors) ,@(mapcar 'car radix-selectors)
("Seperate I/O" ("Separate I/O"
,@(mapcar (lambda (x) (nth 1 x)) radix-selectors) ,@(mapcar (lambda (x) (nth 1 x)) radix-selectors)
"---" "---"
,@(mapcar (lambda (x) (nth 2 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 (select-window
(split-window-vertically (split-window-vertically
;; If the modeline might interfere with the calculator buffer, ;; If the modeline might interfere with the calculator buffer,
;; use 3 lines instead. ;; use 3 lines instead.
(if (and (fboundp 'face-attr-construct) (if (and (fboundp 'face-attr-construct)
(let* ((dh (plist-get (face-attr-construct 'default) :height)) (let* ((dh (plist-get (face-attr-construct 'default) :height))
(mf (face-attr-construct 'modeline)) (mf (face-attr-construct 'modeline))
(mh (plist-get mf :height))) (mh (plist-get mf :height)))
;; If the modeline is shorter than the default, ;; If the modeline is shorter than the default,
;; stick with 2 lines. (It may be necessary to ;; stick with 2 lines. (It may be necessary to
;; check how much shorter.) ;; check how much shorter.)
(and (and
(not (not
@ -766,7 +766,7 @@ See the documentation for `calculator-mode' for more information."
(let* ((bx (plist-get mf :box)) (let* ((bx (plist-get mf :box))
(lh (plist-get bx :line-width))) (lh (plist-get bx :line-width)))
(and bx (and bx
(or (or
(not lh) (not lh)
(> lh 0)))) (> lh 0))))
;; If the modeline has an overline, use 3 lines. ;; If the modeline has an overline, use 3 lines.