[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/lisp.el emacs-l...
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/lisp.el emacs-l... |
Date: |
Fri, 09 Jan 2009 04:29:21 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/01/09 04:29:20
Modified files:
lisp : ChangeLog
lisp/emacs-lisp: lisp.el re-builder.el
lisp/international: mule-cmds.el
lisp/net : tramp.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.15069&r2=1.15070
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/lisp.el?cvsroot=emacs&r1=1.92&r2=1.93
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/re-builder.el?cvsroot=emacs&r1=1.44&r2=1.45
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-cmds.el?cvsroot=emacs&r1=1.351&r2=1.352
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp.el?cvsroot=emacs&r1=1.223&r2=1.224
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15069
retrieving revision 1.15070
diff -u -b -r1.15069 -r1.15070
--- ChangeLog 9 Jan 2009 04:23:38 -0000 1.15069
+++ ChangeLog 9 Jan 2009 04:29:16 -0000 1.15070
@@ -7,7 +7,10 @@
* 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:
+ * emacs-lisp/lisp.el, emacs-lisp/re-builder.el:
* eshell/em-smart.el, eshell/esh-mode.el:
+ * international/mule-cmds.el:
+ * net/tramp.el:
* play/mpuz.el:
* progmodes/ada-mode.el, progmodes/antlr-mode.el, progmodes/cc-align.el:
* progmodes/cc-cmds.el, progmodes/cperl-mode.el, progmodes/f90.el:
Index: emacs-lisp/lisp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/lisp.el,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -b -r1.92 -r1.93
--- emacs-lisp/lisp.el 5 Jan 2009 03:21:05 -0000 1.92
+++ emacs-lisp/lisp.el 9 Jan 2009 04:29:19 -0000 1.93
@@ -474,7 +474,7 @@
This command assumes point is not in a string or comment."
(interactive "P")
(if (not (and open close))
- (let ((pair (or (assq last-command-char insert-pair-alist)
+ (let ((pair (or (assq last-command-event insert-pair-alist)
(assq (event-basic-type last-command-event)
insert-pair-alist))))
(if pair
Index: emacs-lisp/re-builder.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/re-builder.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- emacs-lisp/re-builder.el 5 Jan 2009 03:21:07 -0000 1.44
+++ emacs-lisp/re-builder.el 9 Jan 2009 04:29:19 -0000 1.45
@@ -564,7 +564,7 @@
(interactive)
(setq reb-subexp-displayed
- (or subexp (string-to-number (format "%c" last-command-char))))
+ (or subexp (string-to-number (format "%c" last-command-event))))
(reb-update-modestring)
(reb-do-update reb-subexp-displayed))
Index: international/mule-cmds.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.351
retrieving revision 1.352
diff -u -b -r1.351 -r1.352
--- international/mule-cmds.el 8 Jan 2009 04:07:31 -0000 1.351
+++ international/mule-cmds.el 9 Jan 2009 04:29:20 -0000 1.352
@@ -299,10 +299,10 @@
cmd (key-binding keyseq t))
(not (eq cmd 'universal-argument-other-key)))
(let ((current-prefix-arg prefix-arg)
- ;; Have to bind `last-command-char' here so that
+ ;; Have to bind `last-command-event' here so that
;; `digit-argument', for instance, can compute the
;; prefix arg.
- (last-command-char (aref keyseq 0)))
+ (last-command-event (aref keyseq 0)))
(call-interactively cmd)))
;; This is the final call to `universal-argument-other-key', which
Index: net/tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.223
retrieving revision 1.224
diff -u -b -r1.223 -r1.224
--- net/tramp.el 6 Jan 2009 07:56:42 -0000 1.223
+++ net/tramp.el 9 Jan 2009 04:29:20 -0000 1.224
@@ -3738,10 +3738,10 @@
;; We don't need to handle `last-input-event', because
;; due to the key map we know it must be ?/ or ?~.
(let ((s (concat (buffer-substring (point-min) (point))
- (string last-command-char))))
+ (string last-command-event))))
(delete-region (point-min) (point))
(insert (substitute-in-file-name s))
- (setq ad-return-value last-command-char))
+ (setq ad-return-value last-command-event))
ad-do-it))))
'(minibuffer-electric-separator
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/lisp.el emacs-l...,
Glenn Morris <=