Mercurial > emacs

changeset 1621:ec2c000b8b69

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* bytecomp.el: Declare unread-command-char an obsolete variable. * vip.el (vip-escape-to-emacs, vip-prefix-arg-value, vip-prefix-arg-com): Use unread-command-event instead of unread-command-char; respect its new semantics. * simula.el (simula-electric-label): Same. * simula.el (simula-calculate-indent): Call backward-word with the appropriate argument.
author Jim Blandy <jimb@redhat.com>
date Mon, 16 Nov 1992 01:42:04 +0000
parents 787f816e1f4b
children dd7b72d023ad
files lisp/progmodes/simula.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/simula.el	Mon Nov 16 01:40:51 1992 +0000
+++ b/lisp/progmodes/simula.el	Mon Nov 16 01:42:04 1992 +0000
@@ -401,7 +401,7 @@
 	(case-fold-search t)
 	;; don't mix a label with an assignment operator := :-
 	;; therefore look at next typed character...
-	(next-char (setq unread-command-char (read-char)))
+	(next-char (setq unread-command-event (read-char)))
 	(com-char last-command-char))
     (unwind-protect
 	;; Problem: find out if character just read is a command char
@@ -721,7 +721,7 @@
 		 (not (eq (preceding-char) ?\;))
 		 (if (memq (preceding-char) '(?N ?n))
 		     (save-excursion
-		       (backward-word)
+		       (backward-word 1)
 		       (not (looking-at "begin\\>")))
 		   t))
 	    (progn