Mercurial > emacs

diff lisp/calc/calc-embed.el @ 103727:3c4fd8432636

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-embedded-make-info): Don't force when `calc-embedded-word' is called twice.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 06 Jul 2009 00:08:29 +0000
parents b5ba1407f9a1
children 2c12fbae77c2
line wrap: on
line diff
--- 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)