diff options
| author | Pontus Michael | 2015-05-01 13:20:18 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2015-05-01 13:20:18 -0400 |
| commit | 5b0b0ad8303fb2e47298e4d0f946cff461ea3426 (patch) | |
| tree | 07432a2ded2b9296339b3734a06df75d24baa59b | |
| parent | 7e7fd3010b73b45369328924fe5d9734f20161de (diff) | |
| download | emacs-5b0b0ad8303fb2e47298e4d0f946cff461ea3426.tar.gz emacs-5b0b0ad8303fb2e47298e4d0f946cff461ea3426.zip | |
* lisp/simple.el (blink-matching-open): Better behavior in minibuffer
| -rw-r--r-- | lisp/simple.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index cf1912ade4f..31efe3896d4 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -6992,8 +6992,9 @@ The function should return non-nil if the two tokens do not match.") | |||
| 6992 | (buffer-substring blinkpos (1+ blinkpos)))) | 6992 | (buffer-substring blinkpos (1+ blinkpos)))) |
| 6993 | ;; There is nothing to show except the char itself. | 6993 | ;; There is nothing to show except the char itself. |
| 6994 | (t (buffer-substring blinkpos (1+ blinkpos)))))) | 6994 | (t (buffer-substring blinkpos (1+ blinkpos)))))) |
| 6995 | (message "Matches %s" | 6995 | (minibuffer-message |
| 6996 | (substring-no-properties open-paren-line-string))))))))) | 6996 | "Matches %s" |
| 6997 | (substring-no-properties open-paren-line-string))))))))) | ||
| 6997 | 6998 | ||
| 6998 | (defvar blink-paren-function 'blink-matching-open | 6999 | (defvar blink-paren-function 'blink-matching-open |
| 6999 | "Function called, if non-nil, whenever a close parenthesis is inserted. | 7000 | "Function called, if non-nil, whenever a close parenthesis is inserted. |