[Emacs-diffs] /srv/bzr/emacs/trunk r109500: calc-misc.el (calc-record-why): Don't record a message twice.

[Jay Belanger]

------------------------------------------------------------
revno: 109500
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Tue 2012-08-07 20:30:58 -0500
message:
  calc-misc.el (calc-record-why):  Don't record a message twice.
modified:
  lisp/ChangeLog
  lisp/calc/calc-misc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-07 21:52:54 +0000
+++ b/lisp/ChangeLog    2012-08-08 01:30:58 +0000
@@ -1,3 +1,7 @@
+2012-08-08  Jay Belanger  <address@hidden>
+
+       * calc/calc-misc.el (calc-record-why): Don't record a message twice.
+
 2012-08-07  Andreas Schwab  <address@hidden>
 
        * emacs-lisp/lisp-mode.el (eval-defun-1): Handle standard value of

=== modified file 'lisp/calc/calc-misc.el'
--- a/lisp/calc/calc-misc.el    2012-01-19 07:21:25 +0000
+++ b/lisp/calc/calc-misc.el    2012-08-08 01:30:58 +0000
@@ -305,7 +305,8 @@
               (string-match "\\`\\*" (car stuff)))
          (setq stuff (cons '* (cons (substring (car stuff) 1)
                                     (cdr stuff)))))))
-  (setq calc-next-why (cons stuff calc-next-why))
+  (unless (member stuff calc-next-why)
+    (setq calc-next-why (cons stuff calc-next-why)))
   nil)
 
 ;; True if A is a constant or vector of constants.  [P x] [Public]