From a1ff7705dcd0f6d010ab356b562850c4abb1b998 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Nov 2008 00:30:47 +0000 Subject: [PATCH] * calculator.el (calculator-op-or-exp): Reflow docstring. (calculator-remove-zeros, calculator-repR, calculator-repL): Fix typos in docstrings. --- lisp/ChangeLog | 6 ++++++ lisp/calculator.el | 13 ++++++------- 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c3fc10c4bec..6063ff945b0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-11-25 Juanma Barranquero + + * calculator.el (calculator-op-or-exp): Reflow docstring. + (calculator-remove-zeros, calculator-repR, calculator-repL): + Fix typos in docstrings. + 2008-11-24 Chong Yidong * log-view.el (log-view-annotate-version): Let vc-annotate manage diff --git a/lisp/calculator.el b/lisp/calculator.el index def2c540cd4..c843a3d0290 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -996,8 +996,8 @@ If radix output mode is active, decrease the grouping size." (calculator-standard-displayer 'right (cadr disp)))))))) (defun calculator-remove-zeros (numstr) - "Get a number string NUMSTR and remove unnecessary zeroes. -the behavior of this function is controlled by + "Get a number string NUMSTR and remove unnecessary zeros. +The behavior of this function is controlled by `calculator-remove-zeros'." (cond ((and (eq calculator-remove-zeros t) (string-match "\\.0+\\([eE][+-]?[0-9]*\\)?$" numstr)) @@ -1457,8 +1457,7 @@ Optional string argument KEYS will force using it as the keys entered." (defun calculator-op-or-exp () "Either enter an operator or a digit. Used with +/- for entering them as digits in numbers like 1e-3 (there is -no need for negative numbers since these are handled by unary -operators)." +no need for negative numbers since these are handled by unary operators)." (interactive) (if (and (not calculator-display-fragile) calculator-curnum @@ -1755,7 +1754,7 @@ Used by `calculator-paste' and `get-register'." (calculator-quit)) (defun calculator-repR (x) - "Repeats the last binary operation with its second argument and X. + "Repeat the last binary operation with its second argument and X. To use this, apply a binary operator (evaluate it), then call this." (if calculator-last-opXY ;; avoid rebinding calculator-last-opXY @@ -1765,7 +1764,7 @@ To use this, apply a binary operator (evaluate it), then call this." x)) (defun calculator-repL (x) - "Repeats the last binary operation with its first argument and X. + "Repeat the last binary operation with its first argument and X. To use this, apply a binary operator (evaluate it), then call this." (if calculator-last-opXY ;; avoid rebinding calculator-last-opXY @@ -1807,7 +1806,7 @@ To use this, apply a binary operator (evaluate it), then call this." ;; If y is odd -1.0e+INF) (t - ;; + ;; 1.0e+INF))) (error 0.0e+NaN))) -- 2.39.2