Mercurial > emacs
diff lisp/progmodes/idlwave.el @ 91239:2fcaae6177a5
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 16 Dec 2007 05:08:49 +0000 |
| parents | 53108e6cea98 e50a2e215441 |
| children | 56a72e2bd635 |
line wrap: on
line diff
--- a/lisp/progmodes/idlwave.el Fri Dec 14 12:53:04 2007 +0000 +++ b/lisp/progmodes/idlwave.el Sun Dec 16 05:08:49 2007 +0000 @@ -3799,7 +3799,7 @@ (if (not noindent) (indent-region beg end nil)) (if (stringp prompt) - (message prompt))))) + (message "%s" prompt))))) (defun idlwave-rw-case (string) "Make STRING have the case required by `idlwave-reserved-word-upcase'." @@ -7038,7 +7038,7 @@ (select-window win) (eval idlwave-complete-after-success-form)) (set-window-start cwin (point-min))))) - (and message (message message))) + (and message (message "%s" message))) (select-window win)))) (defun idlwave-display-completion-list (list &optional message beg complete) @@ -7069,7 +7069,7 @@ (run-hooks 'idlwave-completion-setup-hook) ;; Display the message - (message (or message "Making completion list...done"))) + (message "%s" (or message "Making completion list...done"))) (defun idlwave-choose (function &rest args) "Call FUNCTION as a completion chooser and pass ARGS to it."