* net/tramp.el: Revert previous patch. `last-command-char' is

used in code used only for XEmacs, where it is different from
`last-command-event'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f79a344e8d1dddfd81e6b103e3799836e93bc155..e9aaac24c35ce071d2e6faea35cb7198b4d5de1e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-01-09  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el: Revert previous patch.  `last-command-char' is
+       used in code intended only for XEmacs, where it is different from
+       `last-command-event'.
+
 2009-01-09  Glenn Morris  <rgm@gnu.org>
 
        * subr.el (last-input-char, last-command-char):

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index dbd34b763598af23146545a3861d64f621a2fc7a..b226f22ad98475ade1871e6fcffb1088e9c40f4c 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3738,10 +3738,10 @@ beginning of local filename are not substituted."
              ;; 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-event))))
+                              (string last-command-char))))
                (delete-region (point-min) (point))
                (insert (substitute-in-file-name s))
-               (setq ad-return-value last-command-event))
+               (setq ad-return-value last-command-char))
            ad-do-it))))
 
    '(minibuffer-electric-separator