From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: jari.aalto@poboxes.com (Jari Aalto+mail.emacs) Newsgroups: gmane.emacs.bugs Subject: [patch] 21.3 filecache.el -- message and error use prefix 'filecache:' Date: Sat, 24 Jan 2004 10:31:09 +0200 Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1074932605 13418 80.91.224.253 (24 Jan 2004 08:23:25 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 24 Jan 2004 08:23:25 +0000 (UTC) Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Jan 24 09:23:19 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AkJ4X-0002ya-00 for ; Sat, 24 Jan 2004 09:23:18 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AkJ31-0008DK-02 for geb-bug-gnu-emacs@m.gmane.org; Sat, 24 Jan 2004 03:21:43 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AkJ28-00088a-Sc for bug-gnu-emacs@prep.ai.mit.edu; Sat, 24 Jan 2004 03:20:48 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AkJ1b-00083y-9Y for bug-gnu-emacs@prep.ai.mit.edu; Sat, 24 Jan 2004 03:20:46 -0500 Original-Received: from [193.229.0.41] (helo=fep01-app.kolumbus.fi) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AkJ1a-00082p-3b for bug-gnu-emacs@prep.ai.mit.edu; Sat, 24 Jan 2004 03:20:14 -0500 Original-Received: from poboxes.com ([81.197.3.110]) by fep01-app.kolumbus.fi with ESMTP id <20040124082012.GWOU9750.fep01-app.kolumbus.fi@poboxes.com> for ; Sat, 24 Jan 2004 10:20:12 +0200 Original-To: gnu.emacs.bug X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:6727 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:6727 2004-01-24 Sat Jari Aalto * filecache.el All message and error commands now use prefix `filecache:' to make it easy to read *Messages* buffer. Index: filecache.el =================================================================== RCS file: /cygdrive/h/data/version-control/cvsroot/emacs/gnu-emacs/lisp213/filecache.el,v retrieving revision 1.1.1.1 diff -u -IId: -b -w -u -r1.1.1.1 filecache.el --- filecache.el 26 Jun 2003 18:06:09 -0000 1.1.1.1 +++ filecache.el 24 Jan 2004 08:21:38 -0000 @@ -293,7 +295,7 @@ "Add FILE to the file cache." (interactive "fAdd File: ") (if (not (file-exists-p file)) - (message "File %s does not exist" file) + (message "Filecache: file %s does not exist" file) (let* ((file-name (file-name-nondirectory file)) (dir-name (file-name-directory file)) (the-entry (funcall file-cache-assoc-function @@ -390,7 +392,8 @@ (setq delete-list (cons (car elt) delete-list)))) file-cache-alist) (file-cache-delete-file-list delete-list) - (message "Deleted %d files from file cache" (length delete-list)))) + (message "Filecache: deleted %d files from file cache" + (length delete-list)))) (defun file-cache-delete-directory (directory) "Delete DIRECTORY from the file cache." @@ -403,8 +406,9 @@ (setq result (1+ result)))) file-cache-alist) (if (zerop result) - (error "No entries containing %s found in cache" directory) - (message "Deleted %d entries" result)))) + (error "Filecache: no entries containing %s found in cache" + directory) + (message "Filecache: deleted %d entries" result)))) (defun file-cache-do-delete-directory (dir entry) (let ((directory-list (cdr entry)) @@ -436,14 +440,14 @@ (num) ) (if (not (listp directory-list)) - (error "Unknown type in file-cache-alist for key %s" file)) + (error "Filecache: unknown type in file-cache-alist for key %s" file)) (cond ;; Single element ((eq 1 len) (setq directory (elt directory-list 0))) ;; No elements ((eq 0 len) - (error "No directory found for key %s" file)) + (error "Filecache: No directory found for key %s" file)) ;; Multiple elements (t (let* ((minibuffer-dir (file-name-directory (minibuffer-contents)))