From: Jay Belanger Date: Wed, 8 Aug 2012 01:30:58 +0000 (-0500) Subject: calc-misc.el (calc-record-why): Don't record a message twice. X-Git-Tag: emacs-24.2.90~789 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bd255dd8f047650e4c4441061b25532d6290289;p=emacs.git calc-misc.el (calc-record-why): Don't record a message twice. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7a220293eac..a770e64b84f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-08-08 Jay Belanger + + * calc/calc-misc.el (calc-record-why): Don't record a message twice. + 2012-08-07 Andreas Schwab * 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 ac1b2621605..1d9c02a47a5 100644 --- 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]