diff options
| author | Michael Albinus | 2009-09-28 11:54:34 +0000 |
|---|---|---|
| committer | Michael Albinus | 2009-09-28 11:54:34 +0000 |
| commit | 03db0efcff8ffd1f40ad2df099bcece1f706181c (patch) | |
| tree | 55ec846270a9cfb56186f09cb483bbe33af33b05 | |
| parent | 66635e2f076a267ef5f26c04e985a8af6757ee36 (diff) | |
| download | emacs-03db0efcff8ffd1f40ad2df099bcece1f706181c.tar.gz emacs-03db0efcff8ffd1f40ad2df099bcece1f706181c.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/net/tramp.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 08e9e6bc3f4..a558ccd41fd 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -151,7 +151,12 @@ | |||
| 151 | 'tramp-gvfs) | 151 | 'tramp-gvfs) |
| 152 | 152 | ||
| 153 | ;; Load gateways. It needs `make-network-process' from Emacs 22. | 153 | ;; Load gateways. It needs `make-network-process' from Emacs 22. |
| 154 | (when (functionp 'make-network-process) 'tramp-gw))) | 154 | (when (functionp 'make-network-process) 'tramp-gw) |
| 155 | |||
| 156 | ;; tramp-imap needs both epa (from Emacs 23.1) and imap-hash | ||
| 157 | ;; (from Emacs 23.2). | ||
| 158 | (when (and (locate-library "epa") (locate-library "imap-hash")) | ||
| 159 | 'tramp-imap))) | ||
| 155 | 160 | ||
| 156 | (when feature | 161 | (when feature |
| 157 | ;; We have used just some basic tests, whether a package shall | 162 | ;; We have used just some basic tests, whether a package shall |
| @@ -3788,7 +3793,7 @@ This is like `dired-recursive-delete-directory' for Tramp files." | |||
| 3788 | (if (memq (char-after end) '(?\n ?\ )) | 3793 | (if (memq (char-after end) '(?\n ?\ )) |
| 3789 | ;; End is followed by \n or by " -> ". | 3794 | ;; End is followed by \n or by " -> ". |
| 3790 | (put-text-property start end 'dired-filename t))))) | 3795 | (put-text-property start end 'dired-filename t))))) |
| 3791 | ;; Reove training lines. | 3796 | ;; Remove trailing lines. |
| 3792 | (goto-char (tramp-compat-line-beginning-position)) | 3797 | (goto-char (tramp-compat-line-beginning-position)) |
| 3793 | (while (looking-at "//") | 3798 | (while (looking-at "//") |
| 3794 | (forward-line 1) | 3799 | (forward-line 1) |