# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1021869640 0
# Node ID 1450fcbbad57e263c4b33b0367c1c417bac656d1
# Parent  5d0456e4e35b8ec6065baa29c96ce5949b73e500
(find-file-read-args): Don't trash existing value of
`minibuffer-setup-hook', just add our hook to it.

diff -r 5d0456e4e35b -r 1450fcbbad57 lisp/files.el
--- a/lisp/files.el	Mon May 20 03:09:11 2002 +0000
+++ b/lisp/files.el	Mon May 20 04:40:40 2002 +0000
@@ -773,12 +773,15 @@
   (list (let ((find-file-default
 	       (and buffer-file-name
 		    (abbreviate-file-name buffer-file-name)))
+	      (munge-default-fun
+	       (lambda ()
+		 (setq minibuffer-default find-file-default)
+		 ;; Clear out this hook so it does not interfere
+		 ;; with any recursive minibuffer usage.
+		 (pop minibuffer-setup-hook)))
 	      (minibuffer-setup-hook
-	       '((lambda ()
-		   (setq minibuffer-default find-file-default)
-		   ;; Clear out this hook so it does not interfere
-		   ;; with any recursive minibuffer usage.
-		   (setq minibuffer-setup-hook nil)))))
+	       minibuffer-setup-hook))
+	  (add-hook 'minibuffer-setup-hook munge-default-fun)
 	  (read-file-name prompt nil default-directory))
 	current-prefix-arg))