# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1246838909 0
# Node ID 3c4fd8432636898b6b7b8a55e1be46abdf606073
# Parent  9c7b00651e7c62a60c21baff696da1aaec5eda68
(calc-embedded-make-info): Don't force when `calc-embedded-word' is
called twice.

diff -r 9c7b00651e7c -r 3c4fd8432636 lisp/calc/calc-embed.el
--- a/lisp/calc/calc-embed.el	Sun Jul 05 22:15:34 2009 +0000
+++ b/lisp/calc/calc-embed.el	Mon Jul 06 00:08:29 2009 +0000
@@ -821,7 +821,7 @@
                                       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)