Thanks to Christopher Allan Webber, fix typo.

[bpt/emacs.git] / lisp / ediff-hook.el

diff --git a/lisp/ediff-hook.el b/lisp/ediff-hook.el
index a505541..7ea6f24 100644 (file)
--- a/lisp/ediff-hook.el
+++ b/lisp/ediff-hook.el
@@ -47,41 +47,42 @@
 ;;;###autoload
 (defvar ediff-window-setup-function)
 
-;; This is used to avoid compilation warnings. When emacs/xemacs forms can
-;; generate compile time warnings, we use this macro.
-;; In this case, the macro will expand into the form that is appropriate to the
-;; compiler at hand.
-;; Suggested by rms.
-;;;###autoload
+;; This macro is used to avoid compilation warnings.
+;; The macro will expand into the form that is appropriate to the
+;; compiler at hand (emacs or xemacs).
+;; The autoload, below, is useless in Emacs because ediff-hook.el
+;; is dumped with emacs, but it is needed in XEmacs
+;;;###autoload (defmacro ediff-cond-compile-for-xemacs-or-emacs (xemacs-form emacs-form) (if (string-match "XEmacs" emacs-version) xemacs-form emacs-form))
+
 (defmacro ediff-cond-compile-for-xemacs-or-emacs (xemacs-form emacs-form)
   (if (string-match "XEmacs" emacs-version)
       xemacs-form emacs-form))
- 
-;; Note we wrap this in a progn so that we pick up the whole def
-;; for auto-autoload. That way we do not load ediff-hook.el when defining
-;; the menus.
-;;;###autoload
-(progn
-  (ediff-cond-compile-for-xemacs-or-emacs
-   ;; xemacs form
-   (defun ediff-xemacs-init-menus ()
-     (if (featurep 'menubar)
-        (progn
-          (add-submenu
-           '("Tools") ediff-menu "OO-Browser...")
-          (add-submenu
-           '("Tools") ediff-merge-menu "OO-Browser...")
-          (add-submenu
-           '("Tools") epatch-menu "OO-Browser...")
-          (add-submenu
-           '("Tools") ediff-misc-menu "OO-Browser...")
-          (add-menu-button
-           '("Tools") "-------" "OO-Browser...")
-          )))
-   nil ; emacs form
-   ))
-
 
+;; This autoload is useless in Emacs because ediff-hook.el is dumped with
+;; emacs, but it is needed in XEmacs
+;;;###autoload
+(ediff-cond-compile-for-xemacs-or-emacs
+ ;; xemacs form
+ (defun ediff-xemacs-init-menus ()
+   (if (featurep 'menubar)
+       (progn
+        (add-submenu
+         '("Tools") ediff-menu "OO-Browser...")
+        (add-submenu
+         '("Tools") ediff-merge-menu "OO-Browser...")
+        (add-submenu
+         '("Tools") epatch-menu "OO-Browser...")
+        (add-submenu
+         '("Tools") ediff-misc-menu "OO-Browser...")
+        (add-menu-button
+         '("Tools") "-------" "OO-Browser...")
+        )))
+ nil ; emacs form
+ )
+
+
+;; This autoload is useless in Emacs because ediff-hook.el is dumped with
+;; emacs, but it is needed in XEmacs
 ;;;###autoload
 (ediff-cond-compile-for-xemacs-or-emacs
  (progn
@@ -146,12 +147,12 @@
        :selected (if (featurep 'ediff-tbar)
                      (ediff-use-toolbar-p))]
        ))
-   
+
    ;; put these menus before Object-Oriented-Browser in Tools menu
    (if (and (featurep 'menubar) (not (featurep 'infodock))
            (not (featurep 'ediff-hook)))
           (ediff-xemacs-init-menus)))
- 
+
  ;; Emacs--only if menu-bar is loaded
  (if (featurep 'menu-bar)
      (progn
@@ -163,7 +164,7 @@
        (defvar menu-bar-epatch-menu (make-sparse-keymap "Apply Patch"))
        (fset 'menu-bar-epatch-menu (symbol-value 'menu-bar-epatch-menu))
        (defvar menu-bar-ediff-merge-menu (make-sparse-keymap "Merge"))
-       (fset 'menu-bar-ediff-merge-menu 
+       (fset 'menu-bar-ediff-merge-menu
             (symbol-value 'menu-bar-ediff-merge-menu))
        (defvar menu-bar-ediff-menu (make-sparse-keymap "Compare"))
        (fset 'menu-bar-ediff-menu (symbol-value 'menu-bar-ediff-menu))
@@ -221,7 +222,7 @@
           . ediff-merge-directories-with-ancestor))
        (define-key menu-bar-ediff-merge-menu [ediff-merge-directories]
         '("Directories..." . ediff-merge-directories))
-       (define-key 
+       (define-key
         menu-bar-ediff-merge-menu [separator-ediff-merge-dirs] '("--"))
        (define-key
         menu-bar-ediff-merge-menu [ediff-merge-buffers-with-ancestor]
@@ -250,7 +251,7 @@
        (define-key menu-bar-ediff-misc-menu [ediff-doc]
         '("Ediff Manual..." . ediff-documentation))
        )
-      
+
       ) ; emacs case
  ) ; ediff-cond-compile-for-xemacs-or-emacs
 
@@ -272,13 +273,13 @@
   (autoload 'ediff-revision "ediff" "Compare versions of a file" t)
 
   ;; compare regions and windows
-  (autoload 'ediff-windows-wordwise 
+  (autoload 'ediff-windows-wordwise
     "ediff" "Compare two windows word-by-word." t)
-  (autoload 'ediff-regions-wordwise 
+  (autoload 'ediff-regions-wordwise
     "ediff" "Compare two regions word-by-word." t)
-  (autoload 'ediff-windows-linewise 
+  (autoload 'ediff-windows-linewise
     "ediff" "Compare two windows line-by-line." t)
-  (autoload 'ediff-regions-linewise 
+  (autoload 'ediff-regions-linewise
     "ediff" "Compare two regions line-by-line." t)
 
   ;; patch
@@ -307,9 +308,9 @@
   (autoload
     'ediff-directories3 "ediff" "Compare files in three directories." t)
 
-  (autoload 'edir-revisions 
+  (autoload 'edir-revisions
     "ediff" "Compare two versions of a file." t)
-  (autoload 'ediff-directory-revisions 
+  (autoload 'ediff-directory-revisions
     "ediff" "Compare two versions of a file." t)
 
   ;; merge directories
@@ -325,9 +326,9 @@
     "Merge files in two directories using files in a third dir as ancestors."
     t)
 
-  (autoload 'edir-merge-revisions 
+  (autoload 'edir-merge-revisions
     "ediff" "Merge versions of files in a directory." t)
-  (autoload 'ediff-merge-directory-revisions 
+  (autoload 'ediff-merge-directory-revisions
     "ediff" "Merge versions of files in a directory." t)
   (autoload 'ediff-merge-directory-revisions-with-ancestor
     "ediff"
@@ -363,10 +364,11 @@
     "ediff-util"
     "Toggle the use of Ediff toolbar."
     t)
-  
+
   ) ; if purify-flag
 
 
 (provide 'ediff-hook)
 
+;;; arch-tag: 512f8656-8a4b-4789-af5d-5c6144498df3
 ;;; ediff-hook.el ends here