unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* [patch] 21.3 filecache.el -- message and error use prefix 'filecache:'
@ 2004-01-24  8:31 Jari Aalto+mail.emacs
  0 siblings, 0 replies; only message in thread
From: Jari Aalto+mail.emacs @ 2004-01-24  8:31 UTC (permalink / raw)



2004-01-24 Sat  Jari Aalto  <jari.aalto@poboxes.com>

        * 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)))

^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2004-01-24  8:31 UTC | newest]

Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2004-01-24  8:31 [patch] 21.3 filecache.el -- message and error use prefix 'filecache:' Jari Aalto+mail.emacs

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).