Gary O'Sullivan
2008-02-14 14:33:31 UTC
Hi,
I have the following navigation problem when using speedbar with remote tramp
directories. I'm using emacs22, and latest CVS versions of cedet,tramp and ecb.
- C-x C-f /ssh:LinuxTestDev:~/projects/security/semaproj/Makefile
- M-x speedbar
Speedbar displays ~/projects/security/semaproj/ at top of window with contents.
Clicking on semaproj button gives blank content.
*Messages* buffer displays:
speedbar-file-lists: Opening directory: no such file or directory,
/home/garyos/projects/security/semaproj/
There is a similar problem with ECB directory window.
I'm an elisp beginner but I think I've tracked the problem to
speedbar-directory-buttons
in speedbar.el (CVS:1.257). When I make the following change to avoid replacing
with '~/' it seems to fix both speedbar and ecb for me:
--- speedbar.el.orig 2008-02-14 13:17:33.000000000 +0000
+++ speedbar.el 2008-02-14 13:18:07.000000000 +0000
@@ -1876,9 +1876,7 @@
(let* ((tilde (expand-file-name "~/"))
(dd (expand-file-name directory))
(junk (string-match (regexp-quote tilde) dd))
- (displayme (if junk
- (concat "~/" (substring dd (match-end 0)))
- dd))
+ (displayme dd)
(p (point)))
(if (string-match "^~[/\\]?\\'" displayme) (setq displayme tilde))
(insert displayme)
Regards,
Gary O'Sullivan
I have the following navigation problem when using speedbar with remote tramp
directories. I'm using emacs22, and latest CVS versions of cedet,tramp and ecb.
- C-x C-f /ssh:LinuxTestDev:~/projects/security/semaproj/Makefile
- M-x speedbar
Speedbar displays ~/projects/security/semaproj/ at top of window with contents.
Clicking on semaproj button gives blank content.
*Messages* buffer displays:
speedbar-file-lists: Opening directory: no such file or directory,
/home/garyos/projects/security/semaproj/
There is a similar problem with ECB directory window.
I'm an elisp beginner but I think I've tracked the problem to
speedbar-directory-buttons
in speedbar.el (CVS:1.257). When I make the following change to avoid replacing
with '~/' it seems to fix both speedbar and ecb for me:
--- speedbar.el.orig 2008-02-14 13:17:33.000000000 +0000
+++ speedbar.el 2008-02-14 13:18:07.000000000 +0000
@@ -1876,9 +1876,7 @@
(let* ((tilde (expand-file-name "~/"))
(dd (expand-file-name directory))
(junk (string-match (regexp-quote tilde) dd))
- (displayme (if junk
- (concat "~/" (substring dd (match-end 0)))
- dd))
+ (displayme dd)
(p (point)))
(if (string-match "^~[/\\]?\\'" displayme) (setq displayme tilde))
(insert displayme)
Regards,
Gary O'Sullivan