[Emacs-diffs] emacs/lisp/net tramp.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/01/09 08:13:45

Modified files:
        lisp/net       : tramp.el 

Log message:
        * 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'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp.el?cvsroot=emacs&r1=1.224&r2=1.225

Patches:
Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.224
retrieving revision 1.225
diff -u -b -r1.224 -r1.225
--- tramp.el    9 Jan 2009 04:29:20 -0000       1.224
+++ tramp.el    9 Jan 2009 08:13:44 -0000       1.225
@@ -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-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