calc-misc.el (calc-record-why): Don't record a message twice.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a220293eac7000feabbb2f3e627293ea73eedf1..a770e64b84f22740352ca9562a7ef5cfa7af6780 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-08-08  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc/calc-misc.el (calc-record-why): Don't record a message twice.
+
 2012-08-07  Andreas Schwab  <schwab@linux-m68k.org>
 
        * emacs-lisp/lisp-mode.el (eval-defun-1): Handle standard value of

diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index ac1b2621605c89ebdc983aba557c1696e616992f..1d9c02a47a5ad432f5ecff0af29f08f3b79a4a0b 100644 (file)
--- a/lisp/calc/calc-misc.el
+++ b/lisp/calc/calc-misc.el
@@ -305,7 +305,8 @@ Calc user interface as before (either C-x * C or C-x * K; initially C-x * C).
               (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]