comparison lisp/progmodes/octave-mod.el @ 101002:3b3c7e10cd97

Replace last-command-char with last-command-event.

101001:14b421290b2f

(defun octave-electric-space ()
  "Insert a space in Octave mode.
Maybe expand abbrevs and blink matching block open keywords.
Reindent the line of `octave-auto-indent' is non-nil."
  (interactive)
  (setq last-command-char ? )
  (if (and octave-auto-indent
	   (not (octave-not-in-string-or-comment-p)))
      (progn
	(indent-according-to-mode)
	(self-insert-command 1))

Note that all Octave mode abbrevs start with a grave accent."
  (interactive)
  (if (not abbrev-mode)
      (self-insert-command 1)
    (let (c)
      (insert last-command-char)
      (if (if (featurep 'xemacs)
	      (or (eq (event-to-character (setq c (next-event))) ??)
		  (eq (event-to-character c) help-char))
	    (or (eq (setq c (read-event)) ??)
		(eq c help-char)))

101002:3b3c7e10cd97

(defun octave-electric-space ()
  "Insert a space in Octave mode.
Maybe expand abbrevs and blink matching block open keywords.
Reindent the line of `octave-auto-indent' is non-nil."
  (interactive)
  (setq last-command-event ? )
  (if (and octave-auto-indent
	   (not (octave-not-in-string-or-comment-p)))
      (progn
	(indent-according-to-mode)
	(self-insert-command 1))

Note that all Octave mode abbrevs start with a grave accent."
  (interactive)
  (if (not abbrev-mode)
      (self-insert-command 1)
    (let (c)
      (insert last-command-event)
      (if (if (featurep 'xemacs)
	      (or (eq (event-to-character (setq c (next-event))) ??)
		  (eq (event-to-character c) help-char))
	    (or (eq (setq c (read-event)) ??)
		(eq c help-char)))