From: Michael Albinus Date: Fri, 9 Jan 2009 08:15:27 +0000 (+0000) Subject: * net/tramp.el: Revert previous patch. `last-command-char' is X-Git-Tag: emacs-pretest-23.0.90~594 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c28f19e5ac0b55c620116cc403b1c25d97ca2132;p=emacs.git * 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 f79a344e8d1..e9aaac24c35 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-01-09 Michael Albinus + + * 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 * subr.el (last-input-char, last-command-char): diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index dbd34b76359..b226f22ad98 100644 --- 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