From: Glenn Morris <rgm@gnu.org>
Date: Tue, 27 Nov 2007 04:05:08 +0000 (+0000)
Subject: Load dired and ediff-*.el files silently.
X-Git-Tag: emacs-pretest-23.0.90~9443
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76d0c4088f4ba7db7e74e5622f22e3b95060965a;p=emacs.git

Load dired and ediff-*.el files silently.
Don't load info, pcl-cvs when compiling.
(Info-goto-node): Declare as a function.
---

diff --git a/lisp/ediff.el b/lisp/ediff.el
index 1ccfdcc7d6c..5974f23d64a 100644
--- a/lisp/ediff.el
+++ b/lisp/ediff.el
@@ -113,22 +113,20 @@
 (defvar ediff-last-dir-patch)
 (defvar ediff-patch-default-directory)
 
-(and noninteractive
-     (eval-when-compile
-	 (load-library "dired")
-	 (load-library "info")
-	 (load "pcl-cvs" 'noerror)))
+
 (eval-when-compile
+  (and noninteractive
+       (load "dired" nil t))
   (let ((load-path (cons (expand-file-name ".") load-path)))
     (provide 'ediff) ; to break recursive load cycle
     (or (featurep 'ediff-init)
-	(load "ediff-init.el" nil nil 'nosuffix))
+	(load "ediff-init.el" nil t 'nosuffix))
     (or (featurep 'ediff-mult)
-	(load "ediff-mult.el" nil nil 'nosuffix))
+	(load "ediff-mult.el" nil t 'nosuffix))
     (or (featurep 'ediff-ptch)
-	(load "ediff-ptch.el" nil nil 'nosuffix))
+	(load "ediff-ptch.el" nil t 'nosuffix))
     (or (featurep 'ediff-vers)
-	(load "ediff-vers.el" nil nil 'nosuffix))
+	(load "ediff-vers.el" nil t 'nosuffix))
     ))
 ;; end pacifier
 
@@ -1428,6 +1426,8 @@ When called interactively, displays the version."
       (message (ediff-version))
     (format "Ediff %s of %s" ediff-version ediff-date)))
 
+;; info is run first, and will autoload info.el.
+(declare-function Info-goto-node "info" (nodename &optional fork))
 
 ;;;###autoload
 (defun ediff-documentation (&optional node)