diff options
| author | Richard M. Stallman | 2005-09-25 23:58:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-09-25 23:58:28 +0000 |
| commit | 96fdce72bb41205baa8f82abb3580682035805db (patch) | |
| tree | 9860d9b3dea56d04731de1d4e1979310e9dcfeef | |
| parent | c283cff54cba36a5eabd43da4444d9da9d0aa721 (diff) | |
| download | emacs-96fdce72bb41205baa8f82abb3580682035805db.tar.gz emacs-96fdce72bb41205baa8f82abb3580682035805db.zip | |
(c-electric-paren): Call old-blink-paren only for close-paren.
| -rw-r--r-- | lisp/progmodes/cc-cmds.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index 039ef3ccebf..42808c3e307 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el | |||
| @@ -907,7 +907,8 @@ is nil." | |||
| 907 | ;; be most disruptive. We'll blink it ourselves | 907 | ;; be most disruptive. We'll blink it ourselves |
| 908 | ;; afterwards. | 908 | ;; afterwards. |
| 909 | (old-blink-paren blink-paren-function) | 909 | (old-blink-paren blink-paren-function) |
| 910 | blink-paren-function) | 910 | blink-paren-function |
| 911 | (noblink (eq last-input-event ?\())) | ||
| 911 | (self-insert-command (prefix-numeric-value arg)) | 912 | (self-insert-command (prefix-numeric-value arg)) |
| 912 | (if c-syntactic-indentation | 913 | (if c-syntactic-indentation |
| 913 | (indent-according-to-mode)) | 914 | (indent-according-to-mode)) |
| @@ -982,6 +983,7 @@ is nil." | |||
| 982 | (delete-region beg end)))) | 983 | (delete-region beg end)))) |
| 983 | (and (not executing-kbd-macro) | 984 | (and (not executing-kbd-macro) |
| 984 | old-blink-paren | 985 | old-blink-paren |
| 986 | (not noblink) | ||
| 985 | (funcall old-blink-paren)))))) | 987 | (funcall old-blink-paren)))))) |
| 986 | 988 | ||
| 987 | (defun c-electric-continued-statement () | 989 | (defun c-electric-continued-statement () |