[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog progmodes/ada-mode.el prog...
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog progmodes/ada-mode.el prog... |
Date: |
Fri, 09 Jan 2009 04:16:06 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/01/09 04:16:05
Modified files:
lisp : ChangeLog
lisp/progmodes : ada-mode.el antlr-mode.el cc-align.el
cc-cmds.el cperl-mode.el f90.el fortran.el
icon.el idlwave.el octave-mod.el pascal.el
perl-mode.el prolog.el sh-script.el simula.el
tcl.el vera-mode.el verilog-mode.el
vhdl-mode.el xscheme.el
Log message:
Replace last-command-char with last-command-event.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15065&r2=1.15066
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/ada-mode.el?cvsroot=emacs&r1=1.100&r2=1.101
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/antlr-mode.el?cvsroot=emacs&r1=1.40&r2=1.41
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/cc-align.el?cvsroot=emacs&r1=1.41&r2=1.42
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/cc-cmds.el?cvsroot=emacs&r1=1.78&r2=1.79
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/cperl-mode.el?cvsroot=emacs&r1=1.109&r2=1.110
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/f90.el?cvsroot=emacs&r1=1.118&r2=1.119
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/fortran.el?cvsroot=emacs&r1=1.152&r2=1.153
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/icon.el?cvsroot=emacs&r1=1.40&r2=1.41
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/idlwave.el?cvsroot=emacs&r1=3.76&r2=3.77
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/octave-mod.el?cvsroot=emacs&r1=1.49&r2=1.50
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/pascal.el?cvsroot=emacs&r1=1.57&r2=1.58
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/perl-mode.el?cvsroot=emacs&r1=1.80&r2=1.81
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/prolog.el?cvsroot=emacs&r1=1.39&r2=1.40
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/sh-script.el?cvsroot=emacs&r1=1.220&r2=1.221
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/simula.el?cvsroot=emacs&r1=1.46&r2=1.47
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/tcl.el?cvsroot=emacs&r1=1.95&r2=1.96
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/vera-mode.el?cvsroot=emacs&r1=1.13&r2=1.14
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/verilog-mode.el?cvsroot=emacs&r1=1.25&r2=1.26
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/vhdl-mode.el?cvsroot=emacs&r1=1.77&r2=1.78
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/xscheme.el?cvsroot=emacs&r1=1.18&r2=1.19
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15065
retrieving revision 1.15066
diff -u -b -r1.15065 -r1.15066
--- ChangeLog 9 Jan 2009 03:57:12 -0000 1.15065
+++ ChangeLog 9 Jan 2009 04:15:52 -0000 1.15066
@@ -7,6 +7,13 @@
* calc/calc-keypd.el, calc/calc-misc.el, calc/calc-prog.el:
* calc/calc-sel.el, calc/calc-store.el, calc/calc-stuff.el:
* calc/calc-units.el, calc/calc-yank.el, calc/calc.el:
+ * progmodes/ada-mode.el, progmodes/antlr-mode.el, progmodes/cc-align.el:
+ * progmodes/cc-cmds.el, progmodes/cperl-mode.el, progmodes/f90.el:
+ * progmodes/fortran.el, progmodes/icon.el, progmodes/idlwave.el:
+ * progmodes/octave-mod.el, progmodes/pascal.el, progmodes/perl-mode.el:
+ * progmodes/prolog.el, progmodes/sh-script.el, progmodes/simula.el:
+ * progmodes/tcl.el, progmodes/vera-mode.el, progmodes/verilog-mode.el:
+ * progmodes/vhdl-mode.el, progmodes/xscheme.el:
Replace last-command-char with last-command-event.
2009-01-09 Dave Love <address@hidden>
Index: progmodes/ada-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/ada-mode.el,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -b -r1.100 -r1.101
--- progmodes/ada-mode.el 4 Jan 2009 19:39:15 -0000 1.100
+++ progmodes/ada-mode.el 9 Jan 2009 04:15:56 -0000 1.101
@@ -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))))
Index: progmodes/antlr-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/antlr-mode.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- progmodes/antlr-mode.el 5 Jan 2009 03:23:14 -0000 1.40
+++ progmodes/antlr-mode.el 9 Jan 2009 04:15:56 -0000 1.41
@@ -2512,7 +2512,7 @@
(let ((context (antlr-syntactic-context)))
(not (and (numberp context)
(or (zerop context)
- (memq last-command-char '(?\{ ?\}))))))))
+ (memq last-command-event '(?\{ ?\}))))))))
(self-insert-command (prefix-numeric-value arg))
(self-insert-command (prefix-numeric-value arg))
(antlr-indent-line)))
Index: progmodes/cc-align.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/cc-align.el,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- progmodes/cc-align.el 5 Jan 2009 03:23:16 -0000 1.41
+++ progmodes/cc-align.el 9 Jan 2009 04:15:57 -0000 1.42
@@ -1245,7 +1245,7 @@
exactly the old newline insertion behavior."
;; newline only after semicolon, but only if that semicolon is not
;; inside a parenthesis list (e.g. a for loop statement)
- (if (not (eq last-command-char ?\;))
+ (if (not (eq last-command-event ?\;))
nil ; continue checking
(if (condition-case nil
(save-excursion
@@ -1262,7 +1262,7 @@
inserted, and the following line is not blank, no newline is inserted.
Otherwise, no determination is made."
(save-excursion
- (if (and (= last-command-char ?\;)
+ (if (and (= last-command-event ?\;)
;;(/= (point-max)
;; (save-excursion (skip-syntax-forward " ") (point))
(zerop (forward-line 1))
@@ -1282,7 +1282,7 @@
(if (c-safe (up-list -1) t)
(c-point 'bol)
-1))))
- (if (and (eq last-command-char ?\;)
+ (if (and (eq last-command-event ?\;)
(eq (car (car syntax)) 'inclass)
(eq (car (car (cdr syntax))) 'topmost-intro)
(= (c-point 'bol) bol))
Index: progmodes/cc-cmds.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/cc-cmds.el,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -b -r1.78 -r1.79
--- progmodes/cc-cmds.el 5 Jan 2009 03:23:16 -0000 1.78
+++ progmodes/cc-cmds.el 9 Jan 2009 04:15:57 -0000 1.79
@@ -476,7 +476,7 @@
(bolp (bolp)))
(beginning-of-line)
(delete-horizontal-space)
- (insert last-command-char)
+ (insert last-command-event)
(and (not bolp)
(goto-char (- (point-max) pos)))
)))
@@ -735,7 +735,7 @@
;; `}': clean up empty defun braces
(when (c-save-buffer-state ()
(and (memq 'empty-defun-braces c-cleanup-list)
- (eq last-command-char ?\})
+ (eq last-command-event ?\})
(c-intersect-lists '(defun-close class-close
inline-close)
syntax)
(progn
@@ -751,14 +751,14 @@
;; `}': compact to a one-liner defun?
(save-match-data
(when
- (and (eq last-command-char ?\})
+ (and (eq last-command-event ?\})
(memq 'one-liner-defun c-cleanup-list)
(c-intersect-lists '(defun-close) syntax)
(c-try-one-liner))
(setq here (- (point-max) pos))))
;; `{': clean up brace-else-brace and brace-elseif-brace
- (when (eq last-command-char ?\{)
+ (when (eq last-command-event ?\{)
(cond
((and (memq 'brace-else-brace c-cleanup-list)
(re-search-backward
@@ -812,7 +812,7 @@
))))
;; blink the paren
- (and (eq last-command-char ?\})
+ (and (eq last-command-event ?\})
(not executing-kbd-macro)
old-blink-paren
(save-excursion
@@ -849,7 +849,7 @@
(when (and (not arg)
(eq literal 'c)
(memq 'comment-close-slash c-cleanup-list)
- (eq last-command-char ?/)
+ (eq last-command-event ?/)
(looking-at (concat "[ \t]*\\("
(regexp-quote comment-end) "\\)?$"))
; (eq c-block-comment-ender "*/") ; C-style comments ALWAYS end in */
@@ -865,7 +865,7 @@
(setq indentp (and (not arg)
c-syntactic-indentation
c-electric-flag
- (eq last-command-char ?/)
+ (eq last-command-event ?/)
(eq (char-before) (if literal ?* ?/))))
(self-insert-command (prefix-numeric-value arg))
(if indentp
@@ -939,10 +939,10 @@
(let ((pos (- (point-max) (point))))
(if (c-save-buffer-state ()
(and (or (and
- (eq last-command-char ?,)
+ (eq last-command-event ?,)
(memq 'list-close-comma c-cleanup-list))
(and
- (eq last-command-char ?\;)
+ (eq last-command-event ?\;)
(memq 'defun-close-semi c-cleanup-list)))
(progn
(forward-char -1)
@@ -1097,7 +1097,7 @@
<-pos)
(when c-recognize-<>-arglists
- (if (eq last-command-char ?<)
+ (if (eq last-command-event ?<)
(when (and (progn
(backward-char)
(= (point)
@@ -1220,7 +1220,7 @@
;; clean up brace-elseif-brace
(when
(and (memq 'brace-elseif-brace c-cleanup-list)
- (eq last-command-char ?\()
+ (eq last-command-event ?\()
(re-search-backward
(concat "}"
"\\([ \t\n]\\|\\\\\n\\)*"
@@ -1238,7 +1238,7 @@
;; clean up brace-catch-brace
(when
(and (memq 'brace-catch-brace c-cleanup-list)
- (eq last-command-char ?\()
+ (eq last-command-event ?\()
(re-search-backward
(concat "}"
"\\([ \t\n]\\|\\\\\n\\)*"
@@ -1259,7 +1259,7 @@
;; space-before-funcall clean-up?
((and (memq 'space-before-funcall c-cleanup-list)
- (eq last-command-char ?\()
+ (eq last-command-event ?\()
(save-excursion
(backward-char)
(skip-chars-backward " \t")
@@ -1277,7 +1277,7 @@
;; compact-empty-funcall clean-up?
((c-save-buffer-state ()
(and (memq 'compact-empty-funcall c-cleanup-list)
- (eq last-command-char ?\))
+ (eq last-command-event ?\))
(save-excursion
(c-safe (backward-char 2))
(when (looking-at "()")
@@ -1306,7 +1306,7 @@
(when (c-save-buffer-state ()
(and c-electric-flag
c-syntactic-indentation
- (not (eq last-command-char ?_))
+ (not (eq last-command-event ?_))
(= (save-excursion
(skip-syntax-backward "w")
(point))
Index: progmodes/cperl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/cperl-mode.el,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -b -r1.109 -r1.110
--- progmodes/cperl-mode.el 5 Jan 2009 03:23:24 -0000 1.109
+++ progmodes/cperl-mode.el 9 Jan 2009 04:15:58 -0000 1.110
@@ -2037,11 +2037,11 @@
(save-excursion
(setq insertpos (point-marker))
(goto-char other-end)
- (setq last-command-char ?\{)
+ (setq last-command-event ?\{)
(cperl-electric-lbrace arg insertpos))
(forward-char 1))
;; Check whether we close something "usual" with `}'
- (if (and (eq last-command-char ?\})
+ (if (and (eq last-command-event ?\})
(not
(condition-case nil
(save-excursion
@@ -2059,7 +2059,7 @@
(save-excursion
(skip-chars-backward " \t")
(bolp)))
- (and (eq last-command-char ?\{) ; Do not insert newline
+ (and (eq last-command-event ?\{) ; Do not insert newline
;; if after ")" and `cperl-extra-newline-before-brace'
;; is nil, do not insert extra newline.
(not cperl-extra-newline-before-brace)
@@ -2080,7 +2080,7 @@
(save-excursion
(if insertpos (progn (goto-char insertpos)
(search-forward (make-string
- 1 last-command-char))
+ 1 last-command-event))
(setq insertpos (1- (point)))))
(delete-char -1))))
(if insertpos
@@ -2119,12 +2119,12 @@
(setq cperl-auto-newline nil))
(cperl-electric-brace arg)
(and (cperl-val 'cperl-electric-parens)
- (eq last-command-char ?{)
- (memq last-command-char
+ (eq last-command-event ?{)
+ (memq last-command-event
(append cperl-electric-parens-string nil))
(or (if other-end (goto-char (marker-position other-end)))
t)
- (setq last-command-char ?} pos (point))
+ (setq last-command-event ?} pos (point))
(progn (cperl-electric-brace arg t)
(goto-char pos)))))
@@ -2141,11 +2141,11 @@
(point-marker))
nil)))
(if (and (cperl-val 'cperl-electric-parens)
- (memq last-command-char
+ (memq last-command-event
(append cperl-electric-parens-string nil))
(>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
;;(not (save-excursion (search-backward "#" beg t)))
- (if (eq last-command-char ?<)
+ (if (eq last-command-event ?<)
(progn
(and abbrev-mode ; later it is too late, may be after `for'
(expand-abbrev))
@@ -2156,7 +2156,7 @@
(if other-end (goto-char (marker-position other-end)))
(insert (make-string
(prefix-numeric-value arg)
- (cdr (assoc last-command-char '((?{ .?})
+ (cdr (assoc last-command-event '((?{ .?})
(?[ . ?])
(?( . ?))
(?< . ?>))))))
@@ -2171,7 +2171,7 @@
(let ((beg (save-excursion (beginning-of-line) (point)))
(other-end (if (and cperl-electric-parens-mark
(cperl-val 'cperl-electric-parens)
- (memq last-command-char
+ (memq last-command-event
(append cperl-electric-parens-string nil))
(cperl-mark-active)
(< (mark) (point)))
@@ -2180,7 +2180,7 @@
p)
(if (and other-end
(cperl-val 'cperl-electric-parens)
- (memq last-command-char '( ?\) ?\] ?\} ?\> ))
+ (memq last-command-event '( ?\) ?\] ?\} ?\> ))
(>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
;;(not (save-excursion (search-backward "#" beg t)))
)
@@ -2190,7 +2190,7 @@
(if other-end (goto-char other-end))
(insert (make-string
(prefix-numeric-value arg)
- (cdr (assoc last-command-char '((?\} . ?\{)
+ (cdr (assoc last-command-event '((?\} . ?\{)
(?\] . ?\[)
(?\) . ?\()
(?\> . ?\<))))))
@@ -2202,9 +2202,9 @@
Help message may be switched off by setting `cperl-message-electric-keyword'
to nil."
(let ((beg (save-excursion (beginning-of-line) (point)))
- (dollar (and (eq last-command-char ?$)
+ (dollar (and (eq last-command-event ?$)
(eq this-command 'self-insert-command)))
- (delete (and (memq last-command-char '(?\s ?\n ?\t ?\f))
+ (delete (and (memq last-command-event '(?\s ?\n ?\t ?\f))
(memq this-command '(self-insert-command newline))))
my do)
(and (save-excursion
@@ -2258,7 +2258,7 @@
(forward-char 1)
(delete-char 1)))
(search-backward ")")
- (if (eq last-command-char ?\()
+ (if (eq last-command-event ?\()
(progn ; Avoid "if (())"
(delete-backward-char 1)
(delete-backward-char -1))))
@@ -2279,7 +2279,7 @@
(defun cperl-electric-pod ()
"Insert a POD chunk appropriate after a =POD directive."
- (let ((delete (and (memq last-command-char '(?\s ?\n ?\t ?\f))
+ (let ((delete (and (memq last-command-event '(?\s ?\n ?\t ?\f))
(memq this-command '(self-insert-command newline))))
head1 notlast name p really-delete over)
(and (save-excursion
@@ -2499,7 +2499,7 @@
(interactive "P")
(let ((end (point))
(auto (and cperl-auto-newline
- (or (not (eq last-command-char ?:))
+ (or (not (eq last-command-event ?:))
cperl-auto-newline-after-colon)))
insertpos)
(if (and ;;(not arg)
@@ -2513,7 +2513,7 @@
;; Colon is special only after a label
;; So quickly rule out most other uses of colon
;; and do no indentation for them.
- (and (eq last-command-char ?:)
+ (and (eq last-command-event ?:)
(save-excursion
(forward-word 1)
(skip-chars-forward " \t")
Index: progmodes/f90.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/f90.el,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -b -r1.118 -r1.119
--- progmodes/f90.el 5 Jan 2009 03:23:34 -0000 1.118
+++ progmodes/f90.el 9 Jan 2009 04:15:58 -0000 1.119
@@ -2093,7 +2093,7 @@
"Typing `\\[help-command] or `? lists all the F90 abbrevs.
Any other key combination is executed normally."
(interactive "*")
- (insert last-command-char)
+ (insert last-command-event)
(let (char event)
(if (fboundp 'next-command-event) ; XEmacs
(setq event (next-command-event)
Index: progmodes/fortran.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/fortran.el,v
retrieving revision 1.152
retrieving revision 1.153
diff -u -b -r1.152 -r1.153
--- progmodes/fortran.el 5 Jan 2009 03:23:35 -0000 1.152
+++ progmodes/fortran.el 9 Jan 2009 04:15:59 -0000 1.153
@@ -1006,7 +1006,7 @@
"Typing ;\\[help-command] or ;? lists all the Fortran abbrevs.
Any other key combination is executed normally."
(interactive "*")
- (insert last-command-char)
+ (insert last-command-event)
(let* ((event (if (fboundp 'next-command-event) ; XEmacs
(next-command-event)
(read-event)))
@@ -1167,7 +1167,7 @@
(looking-at "[0-9]")) ; within a line number
(self-insert-command (prefix-numeric-value arg))
(skip-chars-backward " \t")
- (insert last-command-char)
+ (insert last-command-event)
(fortran-indent-line))))
Index: progmodes/icon.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/icon.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- progmodes/icon.el 5 Jan 2009 03:23:40 -0000 1.40
+++ progmodes/icon.el 9 Jan 2009 04:15:59 -0000 1.41
@@ -225,7 +225,7 @@
(progn (icon-indent-line) (newline) t)
nil)))
(progn
- (insert last-command-char)
+ (insert last-command-event)
(icon-indent-line)
(if icon-auto-newline
(progn
Index: progmodes/idlwave.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/idlwave.el,v
retrieving revision 3.76
retrieving revision 3.77
diff -u -b -r3.76 -r3.77
--- progmodes/idlwave.el 5 Jan 2009 03:23:42 -0000 3.76
+++ progmodes/idlwave.el 9 Jan 2009 04:15:59 -0000 3.77
@@ -1,7 +1,7 @@
;; idlwave.el --- IDL editing mode for GNU Emacs
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
2009
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;; 2008, 2009 Free Software Foundation, Inc.
;; Authors: J.D. Smith <address@hidden>
;; Carsten Dominik <address@hidden>
@@ -2119,7 +2119,7 @@
"Insert quote and show matching quote if this is end of a string."
(interactive)
(let ((bq (idlwave-in-quote))
- (inq last-command-char))
+ (inq last-command-event))
(if (and bq (not (idlwave-in-comment)))
(let ((delim (char-after bq)))
(insert inq)
Index: progmodes/octave-mod.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/octave-mod.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- progmodes/octave-mod.el 5 Jan 2009 03:23:46 -0000 1.49
+++ progmodes/octave-mod.el 9 Jan 2009 04:16:00 -0000 1.50
@@ -1312,7 +1312,7 @@
Maybe expand abbrevs and blink matching block open keywords.
Reindent the line of `octave-auto-indent' is non-nil."
(interactive)
- (setq last-command-char ? )
+ (setq last-command-event ? )
(if (and octave-auto-indent
(not (octave-not-in-string-or-comment-p)))
(progn
@@ -1338,7 +1338,7 @@
(if (not abbrev-mode)
(self-insert-command 1)
(let (c)
- (insert last-command-char)
+ (insert last-command-event)
(if (if (featurep 'xemacs)
(or (eq (event-to-character (setq c (next-event))) ??)
(eq (event-to-character c) help-char))
Index: progmodes/pascal.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/pascal.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- progmodes/pascal.el 5 Jan 2009 03:23:46 -0000 1.57
+++ progmodes/pascal.el 9 Jan 2009 04:16:00 -0000 1.58
@@ -1,7 +1,8 @@
;;; pascal.el --- major mode for editing pascal source in Emacs
;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
-;; 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software
Foundation, Inc.
+;; 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;; Free Software Foundation, Inc.
;; Author: Espen Skoglund <address@hidden>
;; Keywords: languages
@@ -429,7 +430,7 @@
(defun electric-pascal-semi-or-dot ()
"Insert `;' or `.' character and reindent the line."
(interactive)
- (insert last-command-char)
+ (insert last-command-event)
(save-excursion
(beginning-of-line)
(pascal-indent-line))
@@ -439,7 +440,7 @@
(defun electric-pascal-colon ()
"Insert `:' and do all indentions except line indent on this line."
(interactive)
- (insert last-command-char)
+ (insert last-command-event)
;; Do nothing if within string.
(if (pascal-within-string)
()
@@ -452,7 +453,7 @@
(defun electric-pascal-equal ()
"Insert `=', and do indention if within type declaration."
(interactive)
- (insert last-command-char)
+ (insert last-command-event)
(if (eq (car (pascal-calculate-indent)) 'declaration)
(let ((pascal-tab-always-indent nil))
(pascal-indent-command))))
@@ -460,7 +461,7 @@
(defun electric-pascal-hash ()
"Insert `#', and indent to column 0 if this is a CPP directive."
(interactive)
- (insert last-command-char)
+ (insert last-command-event)
(if (save-excursion (beginning-of-line) (looking-at "^[ \t]*#"))
(save-excursion (beginning-of-line)
(delete-horizontal-space))))
Index: progmodes/perl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/perl-mode.el,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -b -r1.80 -r1.81
--- progmodes/perl-mode.el 5 Jan 2009 03:23:47 -0000 1.80
+++ progmodes/perl-mode.el 9 Jan 2009 04:16:01 -0000 1.81
@@ -1,7 +1,7 @@
;;; perl-mode.el --- Perl code editing commands for GNU Emacs
-;; Copyright (C) 1990, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
2009
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;; 2008, 2009 Free Software Foundation, Inc.
;; Author: William F. Mann
;; Maintainer: FSF
@@ -606,14 +606,14 @@
(and (not ; eliminate comments quickly
(and comment-start-skip
(re-search-forward comment-start-skip insertpos t)) )
- (or (/= last-command-char ?:)
+ (or (/= last-command-event ?:)
;; Colon is special only after a label ....
(looking-at "\\s-*\\(\\w\\|\\s_\\)+$"))
(let ((pps (parse-partial-sexp
(perl-beginning-of-function) insertpos)))
(not (or (nth 3 pps) (nth 4 pps) (nth 5 pps))))))
(progn ; must insert, indent, delete
- (insert-char last-command-char 1)
+ (insert-char last-command-event 1)
(perl-indent-line)
(delete-char -1))))
(self-insert-command (prefix-numeric-value arg)))
Index: progmodes/prolog.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/prolog.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
--- progmodes/prolog.el 5 Jan 2009 03:23:47 -0000 1.39
+++ progmodes/prolog.el 9 Jan 2009 04:16:01 -0000 1.40
@@ -1,7 +1,7 @@
;;; prolog.el --- major mode for editing and running Prolog under Emacs
-;; Copyright (C) 1986, 1987, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
2009
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1986, 1987, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;; 2008, 2009 Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <address@hidden>
;; Keywords: languages
@@ -357,7 +357,7 @@
(save-excursion
(goto-char (- pmark 3))
(looking-at " \\? ")))
- (comint-send-string proc (string last-command-char))
+ (comint-send-string proc (string last-command-event))
(call-interactively 'self-insert-command))))
(defun prolog-consult-region (compile beg end)
Index: progmodes/sh-script.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/sh-script.el,v
retrieving revision 1.220
retrieving revision 1.221
diff -u -b -r1.220 -r1.221
--- progmodes/sh-script.el 5 Jan 2009 03:23:50 -0000 1.220
+++ progmodes/sh-script.el 9 Jan 2009 04:16:02 -0000 1.221
@@ -3747,7 +3747,7 @@
(interactive "*P")
(self-insert-command (prefix-numeric-value arg))
(or arg
- (not (eq (char-after (- (point) 2)) last-command-char))
+ (not (eq (char-after (- (point) 2)) last-command-event))
(save-excursion
(backward-char 2)
(sh-quoted-p))
Index: progmodes/simula.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/simula.el,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -b -r1.46 -r1.47
--- progmodes/simula.el 5 Jan 2009 03:23:50 -0000 1.46
+++ progmodes/simula.el 9 Jan 2009 04:16:02 -0000 1.47
@@ -1197,7 +1197,7 @@
;; to have the line inserted after the begin-end match.
(if show-char
(progn
- (insert-char last-command-char 1)
+ (insert-char last-command-event 1)
(sit-for 0)
(backward-char 1)))
(if (let ((where (simula-context))
Index: progmodes/tcl.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/tcl.el,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -b -r1.95 -r1.96
--- progmodes/tcl.el 5 Jan 2009 03:23:52 -0000 1.95
+++ progmodes/tcl.el 9 Jan 2009 04:16:02 -0000 1.96
@@ -634,7 +634,7 @@
;; Indent line first; this looks better if parens blink.
(tcl-indent-line)
(self-insert-command arg)
- (if (and tcl-auto-newline (= last-command-char ?\;))
+ (if (and tcl-auto-newline (= last-command-event ?\;))
(progn
(newline)
(tcl-indent-line))))
@@ -658,7 +658,7 @@
;; In auto-newline case, must insert a newline after each
;; brace. So an explicit loop is needed.
(while (> arg 0)
- (insert last-command-char)
+ (insert last-command-event)
(tcl-indent-line)
(newline)
(setq arg (1- arg))))
Index: progmodes/vera-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/vera-mode.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- progmodes/vera-mode.el 5 Jan 2009 03:23:52 -0000 1.13
+++ progmodes/vera-mode.el 9 Jan 2009 04:16:03 -0000 1.14
@@ -1340,7 +1340,7 @@
(interactive "*P")
(let* ((ch (char-before))
(indentp (and (not arg)
- (eq last-command-char ?/)
+ (eq last-command-event ?/)
(or (and (eq ch ?/)
(not (vera-in-literal)))
(and (eq ch ?*)
Index: progmodes/verilog-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/verilog-mode.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- progmodes/verilog-mode.el 5 Jan 2009 03:23:52 -0000 1.25
+++ progmodes/verilog-mode.el 9 Jan 2009 04:16:03 -0000 1.26
@@ -2661,7 +2661,7 @@
(defun electric-verilog-semi ()
"Insert `;' character and reindent the line."
(interactive)
- (insert last-command-char)
+ (insert last-command-event)
(if (or (verilog-in-comment-or-string-p)
(verilog-in-escaped-name-p))
@@ -2686,7 +2686,7 @@
(defun electric-verilog-colon ()
"Insert `:' and do all indentations except line indent on this line."
(interactive)
- (insert last-command-char)
+ (insert last-command-event)
;; Do nothing if within string.
(if (or
(verilog-within-string)
@@ -2705,7 +2705,7 @@
;;(defun electric-verilog-equal ()
;; "Insert `=', and do indentation if within block."
;; (interactive)
-;; (insert last-command-char)
+;; (insert last-command-event)
;; Could auto line up expressions, but not yet
;; (if (eq (car (verilog-calculate-indent)) 'block)
;; (let ((verilog-tab-always-indent nil))
@@ -2715,7 +2715,7 @@
(defun electric-verilog-tick ()
"Insert back-tick, and indent to column 0 if this is a CPP directive."
(interactive)
- (insert last-command-char)
+ (insert last-command-event)
(save-excursion
(if (progn
(beginning-of-line)
Index: progmodes/vhdl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/vhdl-mode.el,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -b -r1.77 -r1.78
--- progmodes/vhdl-mode.el 5 Jan 2009 03:23:53 -0000 1.77
+++ progmodes/vhdl-mode.el 9 Jan 2009 04:16:04 -0000 1.78
@@ -10612,7 +10612,7 @@
(backward-word 1)
(vhdl-case-word 1)
(delete-char 1))
- (let ((invoke-char last-command-char)
+ (let ((invoke-char last-command-event)
(abbrev-mode -1)
(vhdl-template-invoked-by-hook t))
(let ((caught (catch 'abort
Index: progmodes/xscheme.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/xscheme.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- progmodes/xscheme.el 5 Jan 2009 03:23:54 -0000 1.18
+++ progmodes/xscheme.el 9 Jan 2009 04:16:05 -0000 1.19
@@ -515,7 +515,7 @@
(defun scheme-debugger-self-insert ()
"Transmit this character to the Scheme process."
(interactive)
- (xscheme-send-char last-command-char))
+ (xscheme-send-char last-command-event))
(defun xscheme-enter-debugger-mode (prompt-string)
(save-excursion
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/ada-mode.el prog...,
Glenn Morris <=