Mercurial > emacs
comparison lisp/net/tramp.el @ 70191:3a3093f77da8
* net/tramp.el (tramp-register-file-name-handlers): New defun.
Added with autoload cookie.
(tramp-unload-file-name-handlers): Renamed from
`tramp-unload-file-name-handler-alist'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sun, 23 Apr 2006 21:45:28 +0000 |
| parents | a1925540484f |
| children | d57fb8c98714 |
comparison
equal
deleted
inserted
replaced
| 70190:17e94146a139 | 70191:3a3093f77da8 |
|---|---|
| 4335 (let ((fn (assoc operation tramp-completion-file-name-handler-alist))) | 4335 (let ((fn (assoc operation tramp-completion-file-name-handler-alist))) |
| 4336 (if fn | 4336 (if fn |
| 4337 (save-match-data (apply (cdr fn) args)) | 4337 (save-match-data (apply (cdr fn) args)) |
| 4338 (tramp-completion-run-real-handler operation args)))) | 4338 (tramp-completion-run-real-handler operation args)))) |
| 4339 | 4339 |
| 4340 ;; Register in `file-name-handler-alist'. | |
| 4341 ;; `tramp-completion-file-name-handler' must not be active when temacs | |
| 4342 ;; dumps. And it makes no sense in batch mode anyway. | |
| 4340 ;;;###autoload | 4343 ;;;###autoload |
| 4341 (put 'tramp-completion-file-name-handler 'safe-magic t) | 4344 (defun tramp-register-file-name-handlers () |
| 4342 | 4345 "Add tramp file name handlers to `file-name-handler-alist'." |
| 4343 ;; Register in file name handler alist | 4346 (unless noninteractive |
| 4347 (add-to-list 'file-name-handler-alist | |
| 4348 (cons tramp-file-name-regexp 'tramp-file-name-handler)) | |
| 4349 (add-to-list 'file-name-handler-alist | |
| 4350 (cons tramp-completion-file-name-regexp | |
| 4351 'tramp-completion-file-name-handler)) | |
| 4352 (put 'tramp-completion-file-name-handler 'safe-magic t))) | |
| 4353 | |
| 4354 ;; LAMBDA function used temporarily, because older/other versions of | |
| 4355 ;; Tramp don't know of `tramp-register-file-name-handlers'. Can be | |
| 4356 ;; replaced once that DEFUN is established. Relevant for Emacs 22 only. | |
| 4357 ;;;###;autoload(add-hook 'emacs-startup-hook 'tramp-register-file-name-handlers) | |
| 4358 ;;;###autoload(add-hook | |
| 4359 ;;;###autoload 'emacs-startup-hook | |
| 4360 ;;;###autoload '(lambda () | |
| 4361 ;;;###autoload (condition-case nil | |
| 4362 ;;;###autoload (funcall 'tramp-register-file-name-handlers) | |
| 4363 ;;;###autoload (error nil)))) | |
| 4364 (tramp-register-file-name-handlers) | |
| 4365 | |
| 4344 ;;;###autoload | 4366 ;;;###autoload |
| 4345 (add-to-list 'file-name-handler-alist | 4367 (defun tramp-unload-file-name-handlers () |
| 4346 (cons tramp-file-name-regexp 'tramp-file-name-handler)) | |
| 4347 (add-to-list 'file-name-handler-alist | |
| 4348 (cons tramp-completion-file-name-regexp | |
| 4349 'tramp-completion-file-name-handler)) | |
| 4350 | |
| 4351 ;;;###autoload | |
| 4352 (defun tramp-unload-file-name-handler-alist () | |
| 4353 (setq file-name-handler-alist | 4368 (setq file-name-handler-alist |
| 4354 (delete (rassoc 'tramp-file-name-handler | 4369 (delete (rassoc 'tramp-file-name-handler |
| 4355 file-name-handler-alist) | 4370 file-name-handler-alist) |
| 4356 (delete (rassoc 'tramp-completion-file-name-handler | 4371 (delete (rassoc 'tramp-completion-file-name-handler |
| 4357 file-name-handler-alist) | 4372 file-name-handler-alist) |
| 4358 file-name-handler-alist)))) | 4373 file-name-handler-alist)))) |
| 4359 | 4374 |
| 4360 (add-hook 'tramp-unload-hook 'tramp-unload-file-name-handler-alist) | 4375 (add-hook 'tramp-unload-hook 'tramp-unload-file-name-handlers) |
| 4361 | 4376 |
| 4362 (defun tramp-repair-jka-compr () | 4377 (defun tramp-repair-jka-compr () |
| 4363 "If jka-compr is already loaded, move it to the front of | 4378 "If jka-compr is already loaded, move it to the front of |
| 4364 `file-name-handler-alist'. On Emacs 22 or so this will not be | 4379 `file-name-handler-alist'. On Emacs 22 or so this will not be |
| 4365 necessary anymore." | 4380 necessary anymore." |
| 7627 ;; - Cleanup autoloads | 7642 ;; - Cleanup autoloads |
| 7628 ;;;###autoload | 7643 ;;;###autoload |
| 7629 (defun tramp-unload-tramp () | 7644 (defun tramp-unload-tramp () |
| 7630 (interactive) | 7645 (interactive) |
| 7631 ;; When Tramp is not loaded yet, its autoloads are still active. | 7646 ;; When Tramp is not loaded yet, its autoloads are still active. |
| 7632 (tramp-unload-file-name-handler-alist) | 7647 (tramp-unload-file-name-handlers) |
| 7633 ;; ange-ftp settings must be enabled. | 7648 ;; ange-ftp settings must be enabled. |
| 7634 (when (functionp 'tramp-ftp-enable-ange-ftp) | 7649 (when (functionp 'tramp-ftp-enable-ange-ftp) |
| 7635 (funcall (symbol-function 'tramp-ftp-enable-ange-ftp))) | 7650 (funcall (symbol-function 'tramp-ftp-enable-ange-ftp))) |
| 7636 ;; `tramp-util' unloads also `tramp'. | 7651 ;; `tramp-util' unloads also `tramp'. |
| 7637 (condition-case nil ;; maybe its not loaded yet. | 7652 (condition-case nil ;; maybe its not loaded yet. |