summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2008-11-25 00:30:47 +0000
committerJuanma Barranquero <lekktu@gmail.com>2008-11-25 00:30:47 +0000
commita1ff7705dcd0f6d010ab356b562850c4abb1b998 (patch)
tree5057c7ecb18db795edea7c72a18b121ad454bcf0
parent923dfbaa56324aab7b62d8c9c6ec51fc78165d95 (diff)
downloademacs-a1ff7705dcd0f6d010ab356b562850c4abb1b998.tar.gz
* calculator.el (calculator-op-or-exp): Reflow docstring.
(calculator-remove-zeros, calculator-repR, calculator-repL): Fix typos in docstrings.
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/calculator.el13
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 <lekktu@gmail.com>
+
+ * calculator.el (calculator-op-or-exp): Reflow docstring.
+ (calculator-remove-zeros, calculator-repR, calculator-repL):
+ Fix typos in docstrings.
+
2008-11-24 Chong Yidong <cyd@stupidchicken.com>
* 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)))