diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2007-12-18 21:02:53 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2007-12-18 21:02:53 +0000 |
| commit | 9fa0d3aabb61dc96512fdf83e832ebb4d3686eaa (patch) | |
| tree | c866ae5f16d7dc8f146b56527d52e683c90ad5ba /lisp/files.el | |
| parent | d2f795854ea4d0eb76b470779e38e5f8a23e9847 (diff) | |
| download | emacs-9fa0d3aabb61dc96512fdf83e832ebb4d3686eaa.tar.gz | |
* files.el (cd-absolute): Set `list-buffers-directory' in order to
show correct path in buffer list.
* net/tramp.el (tramp-open-connection-setup-interactive-shell)
(tramp-find-shell): Send only single prompt setting commands, in
order to avoid double-prompt.
* net/tramp-compat.el (top): Require cl only when compiling.
Reported by Glenn Morris <rgm@gnu.org>.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 581864f6f46..0aec833445d 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -633,7 +633,8 @@ Directories are separated by occurrences of `path-separator' (error "%s is not a directory" dir) (error "%s: no such directory" dir)) (if (file-executable-p dir) - (setq default-directory dir) + (setq default-directory dir + list-buffers-directory dir) (error "Cannot cd to %s: Permission denied" dir)))) (defun cd (dir) |