(calc-embedded-make-info): Don't force when `calc-embedded-word' is

called twice.

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)