# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1100902645 0
# Node ID 4e7e96bc6b95c91be05239b0180ab6e5abe4fc67
# Parent  3e50ecebe82136b5d5edc325f04ffa978590d090
(calc-edit-disp-trail): New variable.
(calc-edit-finish, calc-finish-stack-edit): Replace variable
disp-trail by declared variable.

diff -r 3e50ecebe821 -r 4e7e96bc6b95 lisp/calc/calc-yank.el
--- a/lisp/calc/calc-yank.el	Fri Nov 19 21:12:32 2004 +0000
+++ b/lisp/calc/calc-yank.el	Fri Nov 19 22:17:25 2004 +0000
@@ -492,6 +492,10 @@
       (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 @@
 	(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 @@
     (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 @@
 	   (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)