# HG changeset patch
# User ben
# Date 989428712 0
# Node ID a5ee2ca8672caa6e70d542647768e8b35c8c8df7
# Parent  77fb0aa0e69f20a0e3e532f110548fc69eaffbf1
[xemacs-hg @ 2001-05-09 17:18:32 by ben]
	fix byte-compilation warnings.

diff -r 77fb0aa0e69f -r a5ee2ca8672c lisp/ChangeLog
--- a/lisp/ChangeLog	Wed May 09 14:31:56 2001 +0000
+++ b/lisp/ChangeLog	Wed May 09 17:18:32 2001 +0000
@@ -1,3 +1,9 @@
+2001-05-09  Ben Wing  <ben@xemacs.org>
+
+	* files.el (find-file-noselect):
+	* files.el (recover-session-finish):
+	fix byte-compilation warnings.
+
 2001-05-09  Ben Wing  <ben@xemacs.org>
 
 	* font.el (bold): New.
diff -r 77fb0aa0e69f -r a5ee2ca8672c lisp/files.el
--- a/lisp/files.el	Wed May 09 14:31:56 2001 +0000
+++ b/lisp/files.el	Wed May 09 17:18:32 2001 +0000
@@ -920,9 +920,10 @@
   (setq filename (abbreviate-file-name (expand-file-name filename)))
   (if (file-directory-p filename)
       (if (and (fboundp 'dired-noselect) find-file-run-dired)
-	  (dired-noselect (if find-file-use-truenames
-			      (abbreviate-file-name (file-truename filename))
-			    filename))
+	  (declare-fboundp
+	   (dired-noselect (if find-file-use-truenames
+			       (abbreviate-file-name (file-truename filename))
+			     filename)))
 	(error "%s is a directory" filename))
     (let* ((buf (get-file-buffer filename))
 	   (truename (abbreviate-file-name (file-truename filename)))
@@ -2883,14 +2884,14 @@
 \\[recover-session]."
   (interactive)
   ;; Get the name of the session file to recover from.
-  (let ((file (dired-get-filename))
+  (let ((file (declare-fboundp (dired-get-filename)))
 	files
 	(buffer (get-buffer-create " *recover*")))
     ;; #### dired-do-flagged-delete in FSF.
     ;; This version is for ange-ftp
     ;;(dired-do-deletions t)
     ;; This version is for efs
-    (dired-expunge-deletions)
+    (declare-fboundp (dired-expunge-deletions))
     (unwind-protect
 	(save-excursion
 	  ;; Read in the auto-save-list file.