diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/calc/calc-embed.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 92f6b62b73c..9bde54d5044 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-07-06 Vincent Belaïche <vincent.belaiche@gmail.com> + + * calc/calc-embed.el (calc-embedded-make-info): Don't force when + `calc-embedded-word' is called twice. + 2009-07-05 Stefan Monnier <monnier@iro.umontreal.ca> * files.el (find-alternate-file-other-window, find-alternate-file): diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index 1f84bb66412..ed8734a28bf 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el @@ -821,7 +821,7 @@ The command \\[yank] can retrieve it from there." calc-embed-outer-top calc-embed-outer-bot) (let* ((bufentry (assq (current-buffer) calc-embedded-active)) (found bufentry) - (force (and fresh calc-embed-top)) + (force (and fresh calc-embed-top (null (equal calc-embed-top '(t))))) (fixed calc-embed-top) (new-info nil) info str) |