Commit 26361eae authored by Jay Belanger's avatar Jay Belanger
Browse files

(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.
parent 6347c602
2009-04-26 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc.el (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.
2009-04-25 Chong Yidong <cyd@stupidchicken.com>
 
* simple.el (line-move-visual): If point is stuck moving backwards
......
......@@ -1335,6 +1335,7 @@ Notations: 3.14e6 3.14 * 10^6
(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 @@ See calc-keypad for details."
(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*"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment