mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Michael Albinus 2009-09-28 11:54:34 +00:00
parent 66635e2f07
commit 03db0efcff
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/tramp.el
View file

@ -151,7 +151,12 @@
'tramp-gvfs) 'tramp-gvfs)
;; Load gateways. It needs `make-network-process' from Emacs 22. ;; Load gateways. It needs `make-network-process' from Emacs 22.
(when (functionp 'make-network-process) 'tramp-gw))) (when (functionp 'make-network-process) 'tramp-gw)
;; tramp-imap needs both epa (from Emacs 23.1) and imap-hash
;; (from Emacs 23.2).
(when (and (locate-library "epa") (locate-library "imap-hash"))
'tramp-imap)))
(when feature (when feature
;; We have used just some basic tests, whether a package shall ;; 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."
(if (memq (char-after end) '(?\n ?\ )) (if (memq (char-after end) '(?\n ?\ ))
;; End is followed by \n or by " -> ". ;; End is followed by \n or by " -> ".
(put-text-property start end 'dired-filename t))))) (put-text-property start end 'dired-filename t)))))
;; Reove training lines. ;; Remove trailing lines.
(goto-char (tramp-compat-line-beginning-position)) (goto-char (tramp-compat-line-beginning-position))
(while (looking-at "//") (while (looking-at "//")
(forward-line 1) (forward-line 1)