[Emacs-diffs] /srv/bzr/emacs/trunk r103432: * calc/calc-ext.el (calc-init-extensions): Autoload `calc-l-prefix-help'

[Jay Belanger]

------------------------------------------------------------
revno: 103432
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Sat 2011-02-26 19:33:37 -0600
message:
  * 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.
modified:
  lisp/ChangeLog
  lisp/calc/calc-ext.el
  lisp/calc/calc-math.el
  lisp/calc/calc-vec.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-26 21:09:03 +0000
+++ b/lisp/ChangeLog    2011-02-27 01:33:37 +0000
@@ -1,3 +1,14 @@
+2011-02-27  Jay Belanger  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/assoc.el: Remove misleading `sort' (bug#8126).

=== modified file 'lisp/calc/calc-ext.el'
--- a/lisp/calc/calc-ext.el     2011-02-07 00:54:23 +0000
+++ b/lisp/calc/calc-ext.el     2011-02-27 01:33:37 +0000
@@ -1061,7 +1061,7 @@
 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

=== modified file 'lisp/calc/calc-math.el'
--- a/lisp/calc/calc-math.el    2011-01-25 04:08:28 +0000
+++ b/lisp/calc/calc-math.el    2011-02-27 01:33:37 +0000
@@ -1574,7 +1574,7 @@
         (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)))

=== modified file 'lisp/calc/calc-vec.el'
--- a/lisp/calc/calc-vec.el     2011-01-25 04:08:28 +0000
+++ b/lisp/calc/calc-vec.el     2011-02-27 01:33:37 +0000
@@ -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)