From: yamaoka <yamaoka>
Date: Thu, 17 Apr 2003 03:34:35 +0000 (+0000)
Subject: * dgnushack.el: Remove useless function bindings for XEmacs.
X-Git-Tag: t-gnus-6_15_20-00-quimby~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5ae629d6e7f26a26508ecb920f43bf24b88365ac;p=elisp%2Fgnus.git-

* dgnushack.el: Remove useless function bindings for XEmacs.
(dgnushack-install-package-manifest): Create the pkginfo directory.

* lpath.el: Fbind `compare-strings' for Mule 2.
---

diff --git a/ChangeLog b/ChangeLog
index 2ff2e8c..5c77a6a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2003-04-17  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/dgnushack.el: Remove useless function bindings for XEmacs.
+	(dgnushack-install-package-manifest): Create the pkginfo directory.
+
+	* lisp/lpath.el: Fbind `compare-strings' for Mule 2.
+
 2003-04-17  Kevin Greiner  <kgreiner@xpediantsolutions.com>
 
 	* make.bat: Cleaned up end-of-line characters.
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index ca1f675..43f6d02 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -551,53 +551,6 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
     "mml-smime.el" "mml.el" "mml1991.el" "mml2015.el")
   "Files which should not be byte-compiled.")
 
-(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 '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-passwd "passwd")
-    (autoload 'regexp-opt "regexp-opt")
-    (autoload 'reporter-submit-bug-report "reporter")
-    (autoload 'setenv "process" 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)))
-
 (defun dgnushack-compile (&optional warn)
   ;;(setq byte-compile-dynamic t)
   (unless warn
@@ -869,9 +822,13 @@ Re-splitting gnus-load.el into custom-load.el and auto-autoloads.el...done
   "Install MANIFEST file as an XEmacs package."
   (let* ((package-dir (car command-line-args-left))
 	 (product-name (cadr command-line-args-left))
-	 (name (expand-file-name (concat "pkginfo/MANIFEST." product-name)
-				 package-dir))
+	 (pkginfo-dir (expand-file-name "pkginfo" package-dir))
+	 (name (expand-file-name (concat "MANIFEST." product-name)
+				 pkginfo-dir))
 	 make-backup-files)
+    (unless (file-directory-p pkginfo-dir)
+      (message "Creating directory %s/..." pkginfo-dir)
+      (make-directory pkginfo-dir))
     (message "Generating %s..." name)
     (with-temp-file name
       (insert "pkginfo/MANIFEST." product-name "\n")
diff --git a/lisp/lpath.el b/lisp/lpath.el
index ef3f63c..bbb0eb9 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -81,10 +81,10 @@
 	((boundp 'MULE)
 	 '(charsetp
 	   coding-system-base coding-system-get coding-system-list
-	   coding-system-to-mime-charset compose-mail file-name-extension
-	   find-coding-systems-for-charsets find-coding-systems-region
-	   function-max-args get-charset-property smiley-encode-buffer
-	   smtpmail-send-it))
+	   coding-system-to-mime-charset compare-strings compose-mail
+	   file-name-extension find-coding-systems-for-charsets
+	   find-coding-systems-region function-max-args get-charset-property
+	   smiley-encode-buffer smtpmail-send-it))
 	(t
 	 '(function-max-args smiley-encode-buffer))))
       (common-fns