Mercurial > emacs
comparison lisp/net/tramp.el @ 46166:56e301cdd730
(tramp-handle-ange-ftp): Move interactive spec
after doc string.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Wed, 03 Jul 2002 18:42:23 +0000 |
| parents | eff75835ac2e |
| children | 66cce4969490 |
comparison
equal
deleted
inserted
replaced
| 46165:17cf3d3424cf | 46166:56e301cdd730 |
|---|---|
| 2971 (add-to-list 'file-name-handler-alist | 2971 (add-to-list 'file-name-handler-alist |
| 2972 (cons tramp-file-name-regexp 'tramp-file-name-handler)) | 2972 (cons tramp-file-name-regexp 'tramp-file-name-handler)) |
| 2973 | 2973 |
| 2974 ;;;###autoload | 2974 ;;;###autoload |
| 2975 (defun tramp-handle-ange-ftp () | 2975 (defun tramp-handle-ange-ftp () |
| 2976 (interactive) | |
| 2977 "Turn Ange-FTP off and an Ange-FTP-like filename format. | 2976 "Turn Ange-FTP off and an Ange-FTP-like filename format. |
| 2978 Requests suitable for Ange-FTP will be forwarded to Ange-FTP. | 2977 Requests suitable for Ange-FTP will be forwarded to Ange-FTP. |
| 2979 Also see the variables `tramp-ftp-method', `tramp-default-method', | 2978 Also see the variables `tramp-ftp-method', `tramp-default-method', |
| 2980 and `tramp-default-method-alist'." | 2979 and `tramp-default-method-alist'." |
| 2980 (interactive) | |
| 2981 (let ((a1 (rassq 'ange-ftp-hook-function file-name-handler-alist)) | 2981 (let ((a1 (rassq 'ange-ftp-hook-function file-name-handler-alist)) |
| 2982 (a2 (rassq 'ange-ftp-completion-hook-function file-name-handler-alist)) | 2982 (a2 (rassq 'ange-ftp-completion-hook-function file-name-handler-alist)) |
| 2983 (a3 (rassq 'tramp-file-name-handler file-name-handler-alist))) | 2983 (a3 (rassq 'tramp-file-name-handler file-name-handler-alist))) |
| 2984 (setq file-name-handler-alist | 2984 (setq file-name-handler-alist |
| 2985 (delete a1 (delete a2 (delete a3 file-name-handler-alist))))) | 2985 (delete a1 (delete a2 (delete a3 file-name-handler-alist))))) |