diff options
| author | Deepak Goel | 2007-12-06 00:17:56 +0000 |
|---|---|---|
| committer | Deepak Goel | 2007-12-06 00:17:56 +0000 |
| commit | f6e7ec024870e8ccaaed5bc2e0d92fde7554e16b (patch) | |
| tree | a3477c8e5705009d64f3b58a94e4845639468698 /lisp/complete.el | |
| parent | 8aa8da0595964fc0a0e5980b05afed9050031abe (diff) | |
| download | emacs-f6e7ec024870e8ccaaed5bc2e0d92fde7554e16b.tar.gz emacs-f6e7ec024870e8ccaaed5bc2e0d92fde7554e16b.zip | |
Fix possibly buggy calls to `message'.
Diffstat (limited to 'lisp/complete.el')
| -rw-r--r-- | lisp/complete.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/complete.el b/lisp/complete.el index e1d0ef07df4..b3a4928dd53 100644 --- a/lisp/complete.el +++ b/lisp/complete.el | |||
| @@ -381,9 +381,9 @@ of `minibuffer-completion-table' and the minibuffer contents.") | |||
| 381 | ;; Returns the sequence of non-delimiter characters that follow regexp in string. | 381 | ;; Returns the sequence of non-delimiter characters that follow regexp in string. |
| 382 | (defun PC-chunk-after (string regexp) | 382 | (defun PC-chunk-after (string regexp) |
| 383 | (if (not (string-match regexp string)) | 383 | (if (not (string-match regexp string)) |
| 384 | (let ((message (format "String %s didn't match regexp %s" string regexp))) | 384 | (let ((message "String %s didn't match regexp %s")) |
| 385 | (message message) | 385 | (message message string regexp) |
| 386 | (error message))) | 386 | (error message string regexp))) |
| 387 | (let ((result (substring string (match-end 0)))) | 387 | (let ((result (substring string (match-end 0)))) |
| 388 | ;; result may contain multiple chunks | 388 | ;; result may contain multiple chunks |
| 389 | (if (string-match PC-delim-regex result) | 389 | (if (string-match PC-delim-regex result) |
| @@ -869,7 +869,7 @@ GOTO-END is non-nil, however, it instead replaces up to END." | |||
| 869 | (defun PC-temp-minibuffer-message (message) | 869 | (defun PC-temp-minibuffer-message (message) |
| 870 | "A Lisp version of `temp_minibuffer_message' from minibuf.c." | 870 | "A Lisp version of `temp_minibuffer_message' from minibuf.c." |
| 871 | (cond (PC-not-minibuffer | 871 | (cond (PC-not-minibuffer |
| 872 | (message message) | 872 | (message "%s" message) |
| 873 | (sit-for 2) | 873 | (sit-for 2) |
| 874 | (message "")) | 874 | (message "")) |
| 875 | ((fboundp 'temp-minibuffer-message) | 875 | ((fboundp 'temp-minibuffer-message) |