* calc/calc-ext.el (calc-init-extensions): Autoload `calc-l-prefix-help'
instead of `calc-ul-prefix-help'. * calc/calc-math.el (calcFunc-log10): Don't signal an error in symbolic mode. * calc/calc-vec.el (calcFunc-subscr): Don't do anything if the first argument is a variable.
This commit is contained in:
parent
e573299d40
commit
b49df7426b
4 changed files with 14 additions and 2 deletions
|
@ -1,3 +1,14 @@
|
|||
2011-02-27 Jay Belanger <jay.p.belanger@gmail.com>
|
||||
|
||||
* calc/calc-ext.el (calc-init-extensions):
|
||||
Autoload `calc-l-prefix-help' instead of `calc-ul-prefix-help'.
|
||||
|
||||
* calc/calc-math.el (calcFunc-log10): Don't signal an error in
|
||||
symbolic mode.
|
||||
|
||||
* calc/calc-vec.el (calcFunc-subscr): Return nil if the first
|
||||
argument is a variable.
|
||||
|
||||
2011-02-26 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* emacs-lisp/assoc.el: Remove misleading `sort' (bug#8126).
|
||||
|
|
|
@ -1061,7 +1061,7 @@ calc-full-help calc-g-prefix-help calc-help-prefix
|
|||
calc-hyperbolic-prefix-help calc-inv-hyp-prefix-help calc-option-prefix-help
|
||||
calc-inverse-prefix-help calc-j-prefix-help calc-k-prefix-help
|
||||
calc-m-prefix-help calc-r-prefix-help calc-s-prefix-help
|
||||
calc-t-prefix-help calc-u-prefix-help calc-ul-prefix-help
|
||||
calc-t-prefix-help calc-u-prefix-help calc-l-prefix-help
|
||||
calc-v-prefix-help)
|
||||
|
||||
("calc-incom" calc-begin-complex calc-begin-vector calc-comma
|
||||
|
|
|
@ -1574,7 +1574,7 @@ If this can't be done, return NIL."
|
|||
(if calc-infinite-mode
|
||||
'(neg (var inf var-inf))
|
||||
(math-reject-arg x "*Logarithm of zero")))
|
||||
(calc-symbolic-mode (signal 'inexact-result nil))
|
||||
;;(calc-symbolic-mode (signal 'inexact-result nil))
|
||||
((Math-numberp x)
|
||||
(math-with-extra-prec 2
|
||||
(let ((xf (math-float x)))
|
||||
|
|
|
@ -759,6 +759,7 @@
|
|||
(math-reject-arg n "*Index out of range")))))
|
||||
|
||||
(defun calcFunc-subscr (mat n &optional m)
|
||||
(if (eq (car-safe mat) 'var) nil)
|
||||
(setq mat (calcFunc-mrow mat n))
|
||||
(if m
|
||||
(if (math-num-integerp n)
|
||||
|
|
Loading…
Add table
Reference in a new issue