diff options
| author | Michael Albinus <[email protected]> | 2009-01-09 08:15:27 +0000 |
|---|---|---|
| committer | Michael Albinus <[email protected]> | 2009-01-09 08:15:27 +0000 |
| commit | c28f19e5ac0b55c620116cc403b1c25d97ca2132 (patch) | |
| tree | 202c3e577383deb2bc292a814a67a8e0e9fe2f36 /lisp/net | |
| parent | eba7400d38bca18b05ff5acf81e2ab428fa43db1 (diff) | |
* 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'.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index dbd34b7635..b226f22ad9 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 |