* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d4ccfbf65284e883c71997d60a0127822d9e3f2..d9f4c3c3ea255f349c11f9021dc2e639ab17c7ff 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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).

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index fcc3ecc1ab1aef0c1372eca7844b0334054c7cd8..ec4e902f33dc34bd9b18a0af12125b925730d492 100644 (file)
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -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

diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el
index 185ed18ed4259a140d2d45a76c1ea4a03a147f18..92af9263b2857cdfe9ec6feca5ca2154fc368f1f 100644 (file)
--- a/lisp/calc/calc-math.el
+++ b/lisp/calc/calc-math.el
@@ -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)))

diff --git a/lisp/calc/calc-vec.el b/lisp/calc/calc-vec.el
index 5dfbc2d51f5f5a6f6d97703e259abd61aa52c538..401a4f516c6508f2de39ce7bcf81d60c99991d2d 100644 (file)
--- a/lisp/calc/calc-vec.el
+++ b/lisp/calc/calc-vec.el
@@ -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)