Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
103726:9c7b00651e7c 103727:3c4fd8432636
819 (defun calc-embedded-make-info (point cbuf fresh &optional 819 (defun calc-embedded-make-info (point cbuf fresh &optional
820 calc-embed-top calc-embed-bot 820 calc-embed-top calc-embed-bot
821 calc-embed-outer-top calc-embed-outer-bot) 821 calc-embed-outer-top calc-embed-outer-bot)
822 (let* ((bufentry (assq (current-buffer) calc-embedded-active)) 822 (let* ((bufentry (assq (current-buffer) calc-embedded-active))
823 (found bufentry) 823 (found bufentry)
824 (force (and fresh calc-embed-top)) 824 (force (and fresh calc-embed-top (null (equal calc-embed-top '(t)))))
825 (fixed calc-embed-top) 825 (fixed calc-embed-top)
826 (new-info nil) 826 (new-info nil)
827 info str) 827 info str)
828 (or found 828 (or found
829 (and 829 (and