mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

* bytecomp.el: Declare unread-command-char an obsolete variable.

Browse Source 
* 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.
This commit is contained in:
Jim Blandy 1992-11-16 01:42:04 +00:00
parent f4c7ad34be
commit ca3e10c715
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/progmodes/simula.el
View File

@ -401,7 +401,7 @@ The relative indentation among the lines of the statement are preserved."
(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 @@ If COUNT is negative, move forward instead (simula-next-statement)"
(not (eq (preceding-char) ?\;))
(if (memq (preceding-char) '(?N ?n))
(save-excursion
(backward-word)
(backward-word 1)
(not (looking-at "begin\\>")))
t))
(progn