diff options
author | Glenn Morris <[email protected]> | 2009-01-09 04:23:38 +0000 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2009-01-09 04:23:38 +0000 |
commit | 1ba983e8d9da561ccbdf15fb1544895fad40cce8 (patch) | |
tree | 88210d37a85f0ef4a8d3341074b185c9d0187dad /lisp/progmodes/cc-align.el | |
parent | e93c003eb15f85f744a39c28a8fb43b8c6da9904 (diff) |
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/progmodes/cc-align.el')
-rw-r--r-- | lisp/progmodes/cc-align.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/cc-align.el b/lisp/progmodes/cc-align.el index c8d23d6d91..df0f988387 100644 --- a/lisp/progmodes/cc-align.el +++ b/lisp/progmodes/cc-align.el @@ -1245,7 +1245,7 @@ newline is added. In either case, checking is stopped. This supports exactly the old newline insertion behavior." ;; newline only after semicolon, but only if that semicolon is not ;; inside a parenthesis list (e.g. a for loop statement) - (if (not (eq last-command-char ?\;)) + (if (not (eq last-command-event ?\;)) nil ; continue checking (if (condition-case nil (save-excursion @@ -1262,7 +1262,7 @@ If a comma was inserted, no determination is made. If a semicolon was inserted, and the following line is not blank, no newline is inserted. Otherwise, no determination is made." (save-excursion - (if (and (= last-command-char ?\;) + (if (and (= last-command-event ?\;) ;;(/= (point-max) ;; (save-excursion (skip-syntax-forward " ") (point)) (zerop (forward-line 1)) @@ -1282,7 +1282,7 @@ For other semicolon contexts, no determination is made." (if (c-safe (up-list -1) t) (c-point 'bol) -1)))) - (if (and (eq last-command-char ?\;) + (if (and (eq last-command-event ?\;) (eq (car (car syntax)) 'inclass) (eq (car (car (cdr syntax))) 'topmost-intro) (= (c-point 'bol) bol)) |