From 5ae629d6e7f26a26508ecb920f43bf24b88365ac Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 17 Apr 2003 03:34:35 +0000 Subject: [PATCH] * dgnushack.el: Remove useless function bindings for XEmacs. (dgnushack-install-package-manifest): Create the pkginfo directory. * lpath.el: Fbind `compare-strings' for Mule 2. --- ChangeLog | 7 +++++++ lisp/dgnushack.el | 55 ++++++----------------------------------------------- lisp/lpath.el | 8 ++++---- 3 files changed, 17 insertions(+), 53 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2ff2e8c..5c77a6a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2003-04-17 Katsumi Yamaoka + + * 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 * 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 -- 1.7.10.4