[Emacs-diffs] emacs/lisp/calc calc-embed.el

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      09/07/06 00:08:29

Modified files:
        lisp/calc      : calc-embed.el 

Log message:
        (calc-embedded-make-info): Don't force when `calc-embedded-word' is
        called twice.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-embed.el?cvsroot=emacs&r1=1.46&r2=1.47

Patches:
Index: calc-embed.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-embed.el,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -b -r1.46 -r1.47
--- calc-embed.el       30 Mar 2009 02:17:40 -0000      1.46
+++ calc-embed.el       6 Jul 2009 00:08:29 -0000       1.47
@@ -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)