[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog textmodes/sgml-mode.el tex...
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog textmodes/sgml-mode.el tex... |
Date: |
Fri, 09 Jan 2009 04:19:15 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/01/09 04:19:14
Modified files:
lisp : ChangeLog
lisp/textmodes : sgml-mode.el table.el two-column.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.15066&r2=1.15067
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/sgml-mode.el?cvsroot=emacs&r1=1.138&r2=1.139
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/table.el?cvsroot=emacs&r1=1.38&r2=1.39
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/two-column.el?cvsroot=emacs&r1=1.43&r2=1.44
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15066
retrieving revision 1.15067
diff -u -b -r1.15066 -r1.15067
--- ChangeLog 9 Jan 2009 04:15:52 -0000 1.15066
+++ ChangeLog 9 Jan 2009 04:19:08 -0000 1.15067
@@ -14,6 +14,7 @@
* 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:
+ * textmodes/sgml-mode.el, textmodes/table.el, textmodes/two-column.el:
Replace last-command-char with last-command-event.
2009-01-09 Dave Love <address@hidden>
Index: textmodes/sgml-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/sgml-mode.el,v
retrieving revision 1.138
retrieving revision 1.139
diff -u -b -r1.138 -r1.139
--- textmodes/sgml-mode.el 5 Jan 2009 03:24:12 -0000 1.138
+++ textmodes/sgml-mode.el 9 Jan 2009 04:19:12 -0000 1.139
@@ -595,16 +595,16 @@
(defun sgml-name-self ()
"Insert a symbolic character name according to `sgml-char-names'."
(interactive "*")
- (sgml-name-char last-command-char))
+ (sgml-name-char last-command-event))
(defun sgml-maybe-name-self ()
"Insert a symbolic character name according to `sgml-char-names'."
(interactive "*")
(if sgml-name-8bit-mode
- (let ((mc last-command-char))
+ (let ((mc last-command-event))
(if (< mc 256)
(setq mc (unibyte-char-to-multibyte mc)))
- (or mc (setq mc last-command-char))
+ (or mc (setq mc last-command-event))
(sgml-name-char mc))
(self-insert-command 1)))
@@ -714,7 +714,7 @@
(eq (aref tag 0) ?/))
(self-insert-command (prefix-numeric-value arg))
(sgml-attributes tag)
- (setq last-command-char ?\s)
+ (setq last-command-event ?\s)
(or (> (point) point)
(self-insert-command 1)))))
Index: textmodes/table.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/table.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- textmodes/table.el 5 Jan 2009 03:24:12 -0000 1.38
+++ textmodes/table.el 9 Jan 2009 04:19:13 -0000 1.39
@@ -6,7 +6,7 @@
;; Keywords: wp, convenience
;; Author: Takaaki Ota <address@hidden>
;; Created: Sat Jul 08 2000 13:28:45 (PST)
-;; Revised: Wed Jan 03 2007 13:23:46 (PST)
+;; Revised: Thu Jan 08 2009 20:17:04 (PST)
;; This file is part of GNU Emacs.
@@ -3943,7 +3943,7 @@
(defun *table--cell-self-insert-command ()
"Table cell version of `self-insert-command'."
(interactive "*")
- (let ((char (table--unibyte-char-to-multibyte last-command-char)))
+ (let ((char (table--unibyte-char-to-multibyte last-command-event)))
(if (eq buffer-undo-list t) nil
(if (not (eq last-command this-command))
(setq table-cell-self-insert-command-count 0)
Index: textmodes/two-column.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/two-column.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- textmodes/two-column.el 5 Jan 2009 03:24:14 -0000 1.43
+++ textmodes/two-column.el 9 Jan 2009 04:19:13 -0000 1.44
@@ -580,10 +580,10 @@
;; catch a mouse scroll on non-selected scrollbar
(select-window
(prog1 (selected-window)
- (and (consp last-command-char)
+ (and (consp last-command-event)
(not (eq (selected-window)
- (car (car (cdr last-command-char)))))
- (select-window (car (car (cdr last-command-char)))))
+ (car (car (cdr last-command-event)))))
+ (select-window (car (car (cdr last-command-event)))))
;; In some cases scrolling causes an error, but post-command-hook
;; shouldn't, and should always stay in the original window
(condition-case ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog textmodes/sgml-mode.el tex...,
Glenn Morris <=