From 4d4a399249f4ecb6582748281b416999e35f82b7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 2 Jul 1999 13:09:06 +0000 Subject: [PATCH] (dgnushack-make-package): Suppress verbose messages while generating auto-autoloads.el. (TopLevel): Set coding priority of Shift-JIS to the bottom. --- lisp/dgnushack.el | 33 +++++++++++++++++++++++++++++++-- 1 file changed, 31 insertions(+), 2 deletions(-) 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 -- 1.7.10.4