From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 19 Nov 2004 22:17:25 +0000 (+0000)
Subject: (calc-edit-disp-trail): New variable.
X-Git-Tag: ttn-vms-21-2-B4~3832
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7fc684b3920b7b0f5e71a73065fa2c421fe0984c;p=emacs.git

(calc-edit-disp-trail): New variable.
(calc-edit-finish, calc-finish-stack-edit): Replace variable
disp-trail by declared variable.
---

diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el
index 6d9db84c369..eff391e81b8 100644
--- a/lisp/calc/calc-yank.el
+++ b/lisp/calc/calc-yank.el
@@ -492,6 +492,10 @@ To cancel the edit, simply kill the *Calc Edit* buffer."
       (newline)
     (calc-edit-finish)))
 
+;; The variable calc-edit-disp-trail is local to calc-edit finish, but
+;; is used by calc-finish-selection-edit and calc-finish-stack-edit.
+(defvar calc-edit-disp-trail)
+
 (defun calc-edit-finish (&optional keep)
   "Finish calc-edit mode.  Parse buffer contents and push them on the stack."
   (interactive "P")
@@ -507,7 +511,7 @@ To cancel the edit, simply kill the *Calc Edit* buffer."
 	(original calc-original-buffer)
 	(return calc-return-buffer)
 	(one-window calc-one-window)
-	(disp-trail calc-restore-trail))
+	(calc-edit-disp-trail calc-restore-trail))
     (save-excursion
       (when (or (null (buffer-name original))
 		(progn
@@ -527,7 +531,7 @@ To cancel the edit, simply kill the *Calc Edit* buffer."
     (if keep
 	(bury-buffer buf)
       (kill-buffer buf))
-    (if disp-trail
+    (if calc-edit-disp-trail
 	(calc-wrapper
 	 (calc-trail-display 1 t)))
     (message "")))
@@ -561,7 +565,7 @@ To cancel the edit, simply kill the *Calc Edit* buffer."
 	   (progn
 	     (set num (car vals))
 	     (calc-refresh-evaltos num))
-	 (if disp-trail
+	 (if calc-edit-disp-trail
 	     (calc-trail-display 1 t))
 	 (and vals
 	      (let ((calc-simplify-mode (if (eq last-command-char ?\C-j)