Mercurial > hg > xemacs-beta

diff lisp/packages/generic-sc.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 0293115a14e9
children 34a5b81f86ba
line wrap: on
line diff
--- a/lisp/packages/generic-sc.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/packages/generic-sc.el	Mon Aug 13 09:02:59 2007 +0200
@@ -539,7 +539,7 @@
 (defun sc-do-command (buffer message command file sc-file &rest flags)
   "Execute a command, notifying the user and checking for errors."
   (setq file (expand-file-name file))
-  (message (format "Running %s on %s..." message file))
+  (message "Running %s on %s..." message file)
   (let ((status
 	 (save-excursion
 	   (set-buffer (get-buffer-create buffer))
@@ -549,7 +549,7 @@
 	   (let ((default-directory (file-name-directory (or file "./"))))
 	     (eq (apply 'call-process command nil t nil flags) 0)))))
     (if status
-	(message (format "Running %s...OK" message))
+	(message "Running %s...OK" message)
       (save-excursion
 	(set-buffer buffer)
 	(goto-char (point-min))
@@ -558,7 +558,7 @@
 	(insert "\n\n")
 	(goto-char (point-min)))
       (display-buffer buffer)
-      (error (format "Running %s...FAILED" message)))))
+      (error "Running %s...FAILED" message))))
 
 (defun sc-enter-comment ()
   "Enter a comment. Return it as a string."