Mercurial > emacs
comparison lisp/net/tramp.el @ 105248:ebd8445069df
*** empty log message ***
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Mon, 28 Sep 2009 11:54:34 +0000 |
| parents | 3d5d2850cbef |
| children | 4eaec3ddca1c |
comparison
equal
deleted
inserted
replaced
| 105247:c23221ea3e52 | 105248:ebd8445069df |
|---|---|
| 149 (error nil)) | 149 (error nil)) |
| 150 (tramp-compat-process-running-p "gvfs-fuse-daemon")) | 150 (tramp-compat-process-running-p "gvfs-fuse-daemon")) |
| 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 |
| 158 ;; be added. There might still be other errors during loading, | 163 ;; be added. There might still be other errors during loading, |
| 159 ;; which we will catch here. | 164 ;; which we will catch here. |
| 3787 (let ((start (+ beg (read (current-buffer)))) | 3792 (let ((start (+ beg (read (current-buffer)))) |
| 3788 (end (+ beg (read (current-buffer))))) | 3793 (end (+ beg (read (current-buffer))))) |
| 3789 (if (memq (char-after end) '(?\n ?\ )) | 3794 (if (memq (char-after end) '(?\n ?\ )) |
| 3790 ;; End is followed by \n or by " -> ". | 3795 ;; End is followed by \n or by " -> ". |
| 3791 (put-text-property start end 'dired-filename t))))) | 3796 (put-text-property start end 'dired-filename t))))) |
| 3792 ;; Reove training lines. | 3797 ;; Remove trailing lines. |
| 3793 (goto-char (tramp-compat-line-beginning-position)) | 3798 (goto-char (tramp-compat-line-beginning-position)) |
| 3794 (while (looking-at "//") | 3799 (while (looking-at "//") |
| 3795 (forward-line 1) | 3800 (forward-line 1) |
| 3796 (delete-region (match-beginning 0) (point))))) | 3801 (delete-region (match-beginning 0) (point))))) |
| 3797 (goto-char (point-max))))) | 3802 (goto-char (point-max))))) |