(calc-embedded-update): Finish changing prev-mode to calc-embed-prev-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bbb0e5d951b03447e24c139bdc03360d61859d9e..0bf179e087ee65431405f1c93edd57f20df2b779 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,80 @@
+2004-11-26  Jay Belanger  <belanger@truman.edu>
+
+       * calc-misc.el (calc-last-why-command): Declare it.
+
+       * calc-vec.el (math-grade-vec): New variable.
+       (calcFunc-grade, calcFunc-rgrade, math-grade-beforep):
+       Replace variable grade-vec by declared variable.
+       (math-rb-close): New variable.
+       (math-read-brackets, math-read-vector): Replace variable close by
+       declared variable.
+
+       * calc/calc-yank.el (calc-original-buffer, calc-return-buffer)
+       (calc-one-window, calc-edit-handler, calc-restore-trail)
+       (calc-allow-ret): Declare them.
+
+       * calc/calc-stuff.el (calc-flush-caches): Remove unnecessary
+       variables.
+       (math-lud-cache, math-log2-cache, math-radix-digits-cache)
+       (math-radix-float-cache-tag, math-random-cache)
+       (math-max-digits-cache, math-integral-cache, math-units-table)
+       (math-format-date-cache, math-holidays-cache-tag): Declare them.
+       (math-moc-func): New variable.
+       (math-map-over-constants, math-map-over-constants-rec):
+       Replace variable func by declared variable.
+
+       * calc/calc-store.el (calc-given-value, calc-store-opers):
+       Declare them.
+       (calc-var-name-map): Move declaration to earlier in the file.
+       (calc-pv-pos): New variable.
+       (calc-permanent-variable, calc-insert-permanent-variable):
+       Replace variable pos by declared variable.
+
+       * calc/calc-mtx.el (calc-det-lu): New variable.
+       (math-det-raw, math-det-step): Replace variable lu by declared
+       variable.
+
+       * calc/calc-map.el (math-ms-temp, math-ms-args): New variables.
+       (math-multi-subst, math-multi-subst-rec): Replace variables temp
+       and arg by declared variables.
+       (calcFunc-reducer): Fix incorrect variable.
+       (math-inner-mul-func, math-inner-add-func): New variables.
+       (calcFunc-inner, math-inner-mats): Replace variables mul-func
+       and add-func by declared variables.
+
+       * calc/calc-incom.el (calc-prev-char, calc-prev-prev-char)
+       (calc-digit-value): Declare them.
+
+       * calc/calc-help.el (Info-history): Declare it.
+       (calc-describe-key): Make calc-summary-indentation a local
+       variable.
+       (calc-help-long-names): Move declaration to earlier in file.
+
+       * calc/calc-embed.el (calc-original-buffer): Declare it.
+       (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top)
+       (calc-embed-bot): New variables.
+       (calc-do-embedded, calc-embedded-mark-formula)
+       (calc-embedded-find-bounds, calc-embedded-duplicate)
+       (calc-embedded-new-formula, calc-embedded-make-info): Replace
+       variables outer-top, outer-bot, bot and top by declared
+       variables.
+       (calc-embed-prev-modes): New variable.
+       (calc-embedded-set-modes, calc-embedded-update): Replace variable
+       prev-modes with declared variable.
+       (calc-embed-vars-used): New variable.
+       (calc-embedded-make-info, calc-embedded-evaluate-expr)
+       (calc-embedded-update, calc-embedded-find-vars): Replace variable
+       vars-used by declared variable.
+
+       * calc/calc-bin.el (math-format-radix-float): Make pos a local
+       variable.
+       (math-format-radix-float): Remove unnecessary setq.
+       (math-radix-float-cache): Declare it.
+
+       * calc/calcsel2.el (calc-keep-selection): Declare it.
+
+       * calc/calc-maint.el: Remove file.
+
 2004-11-26  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
 
        * textmodes/bibtex.el (bibtex-sort-entry-class)

diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index ee9c14669239b6734035480163d4108bd3421210..c5d53fb24d91c698d6cca9f636b786c198378148 100644 (file)
--- a/lisp/calc/calc-embed.el
+++ b/lisp/calc/calc-embed.el
@@ -1010,7 +1010,7 @@ The command \\[yank] can retrieve it from there."
              (t
               (set (car (car calc-embed-prev-modes)) 
                     (cdr (car calc-embed-prev-modes)))))
-       (setq calc-embed-prev-modes (cdr prev-modes))))))
+       (setq calc-embed-prev-modes (cdr calc-embed-prev-modes))))))