From: yamaoka <yamaoka>
Date: Fri, 2 Jul 1999 13:09:06 +0000 (+0000)
Subject: (dgnushack-make-package): Suppress verbose messages while generating
X-Git-Tag: et-gnus-6_11_04-02~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d4a399249f4ecb6582748281b416999e35f82b7;p=elisp%2Fgnus.git-

(dgnushack-make-package): Suppress verbose messages while generating
auto-autoloads.el.
(TopLevel): Set coding priority of Shift-JIS to the bottom.
---

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 0877080..556ee7d 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -27,6 +27,25 @@
 
 ;;; Code:
 
+;; Set coding priority of Shift-JIS to the bottom.
+(defvar *predefined-category*)
+(defvar coding-category-list)
+(if (featurep 'xemacs)
+    (fset 'set-coding-priority 'ignore)
+  (fset 'coding-priority-list 'ignore)
+  (fset 'set-coding-priority-list 'ignore))
+(cond ((and (featurep 'xemacs) (featurep 'mule))
+       (if (memq 'shift-jis (coding-priority-list))
+	   (set-coding-priority-list
+	    (nconc (delq 'shift-jis (coding-priority-list)) '(shift-jis)))))
+      ((boundp 'MULE)
+       (put '*coding-category-sjis* 'priority (length *predefined-category*)))
+      ((featurep 'mule)
+       (if (memq 'coding-category-sjis coding-category-list)
+	   (set-coding-priority
+	    (nconc (delq 'coding-category-sjis coding-category-list)
+		   '(coding-category-sjis))))))
+
 (fset 'facep 'ignore)
 
 (require 'cl)
@@ -183,8 +202,18 @@ Modify to suit your needs."))
 
     (message "Updating autoloads for directory %s..." default-directory)
     (let ((generated-autoload-file "auto-autoloads.el")
-	  noninteractive)
-      (update-autoloads-from-directory default-directory))
+	  noninteractive
+	  (omsg (symbol-function 'message)))
+      (defun message (fmt &rest args)
+	(cond ((and (string-equal "Generating autoloads for %s..." fmt)
+		    (file-exists-p (file-name-nondirectory (car args))))
+	       (funcall omsg fmt (file-name-nondirectory (car args))))
+	      ((string-equal "No autoloads found in %s" fmt))
+	      ((string-equal "Generating autoloads for %s...done" fmt))
+	      (t (apply omsg fmt args))))
+      (unwind-protect
+	  (update-autoloads-from-directory default-directory)
+	(fset 'message omsg)))
     (byte-compile-file "auto-autoloads.el")
 
     (with-temp-buffer