Mercurial > emacs

changeset 14349:96692e2ba103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shadow-shadows, shadow-add-to-todo): Pass proper format string to message. (shadow-cancel, shadow-copy-file): Delete format call inside message.
author Karl Heuer <kwzh@gnu.org>
date Thu, 25 Jan 1996 01:16:55 +0000
parents a5a7213294d9
children 654081a41047
files lisp/shadowfile.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/shadowfile.el	Thu Jan 25 01:16:14 1996 +0000
+++ b/lisp/shadowfile.el	Thu Jan 25 01:16:55 1996 +0000
@@ -25,7 +25,7 @@
 ;; LCD Archive Entry:
 ;; shadowfile|Boris Goldowsky|boris@gnu.ai.mit.edu|
 ;; Helps you keep identical copies of files in multiple places.|
-;; $Date: 1995/10/30 17:23:17 $ |$Revision: 1.6 $|~/misc/shadowfile.el.Z|
+;; $Date: 1996/01/14 07:34:30 $ |$Revision: 1.7 $|~/misc/shadowfile.el.Z|
 
 ;; Commentary:
 
@@ -501,7 +501,8 @@
   (let ((msg (shadow-join (mapcar (function cdr)
 				  (shadow-shadows-of (buffer-file-name)))
 			  " ")))
-    (message (if (zerop (length msg)) 
+    (message "%s"
+	     (if (zerop (length msg)) 
 		 "No shadows."
 	       msg))))
 
@@ -539,8 +540,8 @@
 			    (shadow-remove-from-todo pair)))
 		shadow-files-to-copy
 		'("shadow" "shadows" "cancel copy"))
-  (message (format "There are %d shadows to be updated." 
-		   (length shadow-files-to-copy)))
+  (message "There are %d shadows to be updated." 
+	   (length shadow-files-to-copy))
   (shadow-write-todo-file))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -582,8 +583,7 @@
 	    (progn
 	      (write-region (point-min) (point-max) to)
 	      (shadow-remove-from-todo s))
-	  (error (message (format "Shadow %s not updated!" 
-				  (cdr s)))))))))
+	  (error (message "Shadow %s not updated!" (cdr s))))))))
 
 (defun shadow-shadows-of (file)
   "Returns copy operations needed to update FILE.
@@ -634,8 +634,8 @@
       (setq shadow-files-to-copy
 	    (shadow-union shadows shadow-files-to-copy))
       (shadow-when (not shadow-inhibit-message)
-	(message (substitute-command-keys
-		  "Use \\[shadow-copy-files] to update shadows."))
+	(message "%s" (substitute-command-keys
+		       "Use \\[shadow-copy-files] to update shadows."))
 	(sit-for 1))
       (shadow-write-todo-file)))
   nil)     ; Return nil for write-file-hooks