[Emacs-diffs] Changes to emacs/lisp/complete.el,v

[D. Goel]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     D. Goel <deego> 07/12/06 00:17:57

Index: complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/complete.el,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -b -r1.80 -r1.81
--- complete.el 22 Oct 2007 09:45:07 -0000      1.80
+++ complete.el 6 Dec 2007 00:17:56 -0000       1.81
@@ -381,9 +381,9 @@
 ;; Returns the sequence of non-delimiter characters that follow regexp in 
string.
 (defun PC-chunk-after (string regexp)
   (if (not (string-match regexp string))
-      (let ((message (format "String %s didn't match regexp %s" string 
regexp)))
-       (message message)
-       (error message)))
+      (let ((message "String %s didn't match regexp %s"))
+       (message message string regexp)
+       (error message string regexp)))
   (let ((result (substring string (match-end 0))))
     ;; result may contain multiple chunks
     (if (string-match PC-delim-regex result)
@@ -869,7 +869,7 @@
 (defun PC-temp-minibuffer-message (message)
   "A Lisp version of `temp_minibuffer_message' from minibuf.c."
   (cond (PC-not-minibuffer
-        (message message)
+        (message "%s" message)
         (sit-for 2)
         (message ""))
        ((fboundp 'temp-minibuffer-message)