From bbc66b08e1b5d029b0e304ba28c01809dcdeca77 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 16 Feb 2004 13:41:03 +0000 Subject: [PATCH] All message and error commands now use prefix `filecache:' to make it easy to read *Messages* buffer. --- lisp/ChangeLog | 5 +++++ lisp/filecache.el | 13 +++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fa8a64ce752..3d1ac20a4ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-02-16 Jari Aalto (tiny change) + + * filecache.el: All message and error commands now use prefix + "Filecache:" to make it easy to read *Messages* buffer. + 2004-02-16 Jari Aalto Autorevert: Add support to detect changed dired buffers. diff --git a/lisp/filecache.el b/lisp/filecache.el index ea8bdaaf232..bd0b0f77781 100644 --- a/lisp/filecache.el +++ b/lisp/filecache.el @@ -310,7 +310,7 @@ in each directory, not to the directory list itself." "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 (assoc-string @@ -441,7 +441,8 @@ or the optional REGEXP argument." (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." @@ -454,8 +455,8 @@ or the optional REGEXP argument." (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)) @@ -488,14 +489,14 @@ or the optional REGEXP argument." (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))) -- 2.39.2