diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:23:38 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:23:38 +0000 |
| commit | 1ba983e8d9da561ccbdf15fb1544895fad40cce8 (patch) | |
| tree | 88210d37a85f0ef4a8d3341074b185c9d0187dad /lisp/progmodes/ada-mode.el | |
| parent | e93c003eb15f85f744a39c28a8fb43b8c6da9904 (diff) | |
| download | emacs-1ba983e8d9da561ccbdf15fb1544895fad40cce8.tar.gz | |
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/progmodes/ada-mode.el')
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index af1430a90ba..5750fd9da2b 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -1628,7 +1628,7 @@ ARG is the prefix the user entered with \\[universal-argument]." (interactive "P") (if ada-auto-case - (let ((lastk last-command-char) + (let ((lastk last-command-event) (previous-syntax-table (syntax-table))) (unwind-protect @@ -1662,9 +1662,9 @@ ARG is the prefix the user entered with \\[universal-argument]." ;; Else, no auto-casing (cond - ((eq last-command-char ?\n) + ((eq last-command-event ?\n) (funcall ada-lfd-binding)) - ((eq last-command-char ?\r) + ((eq last-command-event ?\r) (funcall ada-ret-binding)) (t (self-insert-command (prefix-numeric-value arg)))) |