From: yamaoka <yamaoka>
Date: Mon, 28 Apr 2003 11:30:19 +0000 (+0000)
Subject: * dgnushack.el: Require `advice' before `path-util';
X-Git-Tag: t-gnus-6_15_21-00-quimby~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ec36d732488fafe805eb4270be8e35b451d00345;p=elisp%2Fgnus.git-

* dgnushack.el: Require `advice' before `path-util';
 revoke the bogus change of 2003-04-17 (removing function bindings for XEmacs).
---

diff --git a/ChangeLog b/ChangeLog
index 5537c5f..16944db 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,8 @@
 2003-04-28  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-	* lisp/dgnushack.el: Make sure `dolist' is available.
+	* lisp/dgnushack.el: Make sure `dolist' is available; require
+	`advice' before `path-util'; revoke the bogus change of 2003-04-17
+	(removing function bindings for XEmacs).
 
 	* texi/infohack.el: Load dgnushack.el and ptexinfmt.el first.
 
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index e113833..196bd0f 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -50,10 +50,6 @@
 
 (require 'cl)
 
-(and (fboundp 'dolist)
-     (dolist (var nil t)))
-
-
 (unless (and
 	 ;; `dolist' might not be available because of ``-no-autoloads''.
 	 (fboundp 'dolist)
@@ -218,6 +214,7 @@ It has already been fixed in XEmacs since 1999-12-06."
 	  (unless (or (member parent load-path)
 		      (member (file-name-as-directory parent) load-path))
 	    (push parent (cdr load-path))))
+	(require 'advice)
 	(require 'path-util))
     (error "
 APEL modules are not found in %s.
@@ -469,6 +466,57 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
 (defalias 'ange-ftp-re-read-dir 'ignore)
 (defalias 'define-mail-user-agent 'ignore)
 
+(eval-and-compile
+  (when (featurep 'xemacs)
+    (autoload 'Info-directory "info" nil t)
+    (autoload 'Info-menu "info" nil t)
+    (autoload 'annotations-at "annotations")
+    (autoload 'apropos "apropos" nil t)
+    (autoload 'apropos-command "apropos" nil t)
+    (autoload 'bbdb-complete-name "bbdb-com" nil t)
+    (autoload 'browse-url "browse-url" nil t)
+    (autoload 'c-mode "cc-mode" nil t)
+    (autoload 'customize-apropos "cus-edit" nil t)
+    (autoload 'customize-save-variable "cus-edit" nil t)
+    (autoload 'customize-variable "cus-edit" nil t)
+    (autoload 'delete-annotation "annotations")
+    (autoload 'dolist "cl-macs" nil nil 'macro)
+    (autoload 'enriched-decode "enriched")
+    (autoload 'info "info" nil t)
+    (autoload 'make-annotation "annotations")
+    (autoload 'make-display-table "disp-table")
+    (autoload 'pp "pp")
+    (autoload 'ps-despool "ps-print" nil t)
+    (autoload 'ps-spool-buffer "ps-print" nil t)
+    (autoload 'ps-spool-buffer-with-faces "ps-print" nil t)
+    (autoload 'read-kbd-macro "edmacro" nil t)
+    (autoload 'read-passwd "passwd")
+    (autoload 'regexp-opt "regexp-opt")
+    (autoload 'reporter-submit-bug-report "reporter")
+    (if (emacs-version>= 21 5)
+	(autoload 'setenv "process" nil t)
+      (autoload 'setenv "env" nil t))
+    (autoload 'smtpmail-send-it "smtpmail")
+    (autoload 'sort-numeric-fields "sort" nil t)
+    (autoload 'sort-subr "sort")
+    (autoload 'trace-function-background "trace" nil t)
+    (autoload 'w3-do-setup "w3")
+    (autoload 'w3-prepare-buffer "w3-display")
+    (autoload 'w3-region "w3-display" nil t)
+    (defalias 'frame-char-height 'frame-height)
+    (defalias 'frame-char-width 'frame-width)
+    (defalias 'frame-parameter 'frame-property)
+    (defalias 'make-overlay 'ignore)
+    (defalias 'overlay-end 'ignore)
+    (defalias 'overlay-get 'ignore)
+    (defalias 'overlay-put 'ignore)
+    (defalias 'overlay-start 'ignore)
+    (defalias 'overlays-in 'ignore)
+    (defalias 'replace-dehighlight 'ignore)
+    (defalias 'replace-highlight 'ignore)
+    (defalias 'run-with-idle-timer 'ignore)
+    (defalias 'w3-coding-system-for-mime-charset 'ignore)))
+
 (defconst dgnushack-unexporting-files
   (append '("dgnushack.el" "dgnuspath.el" "dgnuskwds.el" "lpath.el")
 	  (condition-case nil