[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/lisp.el emacs-l...

[Glenn Morris]

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