Mercurial > emacs

diff lisp/progmodes/ada-mode.el @ 101002:3b3c7e10cd97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace last-command-char with last-command-event.
author Glenn Morris <rgm@gnu.org>
date Fri, 09 Jan 2009 04:15:52 +0000
parents e7407b3eef86
children 740cb01b8b8f
line wrap: on
line diff
--- a/lisp/progmodes/ada-mode.el	Fri Jan 09 03:57:12 2009 +0000
+++ b/lisp/progmodes/ada-mode.el	Fri Jan 09 04:15:52 2009 +0000
@@ -1628,7 +1628,7 @@
   (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 @@
 
     ;; 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))))