diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2012-08-07 20:30:58 -0500 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2012-08-07 20:30:58 -0500 |
| commit | 2bd255dd8f047650e4c4441061b25532d6290289 (patch) | |
| tree | 5c4c676d6b1113963ff196b05f6a1c0976eaa23c /lisp/calc/calc-misc.el | |
| parent | 6125983ea69b948a3419cec4526f9ea9ef4268b8 (diff) | |
| download | emacs-2bd255dd8f047650e4c4441061b25532d6290289.tar.gz | |
calc-misc.el (calc-record-why): Don't record a message twice.
Diffstat (limited to 'lisp/calc/calc-misc.el')
| -rw-r--r-- | lisp/calc/calc-misc.el | 3 |
1 files changed, 2 insertions, 1 deletions
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] |