Mercurial > emacs

changeset 103074:be74cb571117

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-set-mode-line): Check to make sure that the correct Calc buffer gets "Embed" in the mode line. (calc-mode): Copy stack list for additional Calc buffers.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sun, 26 Apr 2009 01:36:39 +0000
parents 056e34bacfbc
children 1fe870379d8e
files lisp/calc/calc.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc.el	Sat Apr 25 21:13:35 2009 +0000
+++ b/lisp/calc/calc.el	Sun Apr 26 01:36:39 2009 +0000
@@ -1335,6 +1335,7 @@
   (calc-refresh t)
   (calc-set-mode-line)
   (calc-check-defines)
+  (if calc-buffer-list (setq calc-stack (copy-list calc-stack)))
   (add-to-list 'calc-buffer-list (current-buffer) t))
 
 (defvar calc-check-defines 'calc-check-defines)  ; suitable for run-hooks
@@ -1657,7 +1658,9 @@
 	   (figs (nth 1 calc-float-format))
 	   (new-mode-string
 	    (format "Calc%s%s: %d %s %-14s"
-		    (if calc-embedded-info "Embed" "")
+		    (if (and calc-embedded-info
+                             (eq (aref calc-embedded-info 1) (current-buffer)))
+                        "Embed" "")
 		    (if (and (> (length (buffer-name)) 12)
 			     (equal (substring (buffer-name) 0 12)
 				    "*Calculator*"))