Mercurial > emacs
changeset 76846:d55ab93ab5bf
* net/tramp.el (tramp-register-file-name-handler)
(tramp-register-completion-file-name-handler): New defsubst,
derived from `tramp-register-file-name-handlers'. The split is
necessary because Tramp's file name handlers must be registered at
different startup places.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sat, 31 Mar 2007 18:38:18 +0000 |
| parents | 638ed5cc0e55 |
| children | 8317d35172e4 |
| files | lisp/ChangeLog lisp/net/tramp.el |
| diffstat | 2 files changed, 29 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Mar 31 18:33:07 2007 +0000 +++ b/lisp/ChangeLog Sat Mar 31 18:38:18 2007 +0000 @@ -1,3 +1,11 @@ +2007-03-31 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp.el (tramp-register-file-name-handler) + (tramp-register-completion-file-name-handler): New defsubst, + derived from `tramp-register-file-name-handlers'. The split is + necessary because Tramp's file name handlers must be registered at + different startup places. + 2007-03-31 Chong Yidong <cyd@stupidchicken.com> * progmodes/hideshow.el (turn-off-hideshow): New function.
--- a/lisp/net/tramp.el Sat Mar 31 18:33:07 2007 +0000 +++ b/lisp/net/tramp.el Sat Mar 31 18:38:18 2007 +0000 @@ -4422,10 +4422,20 @@ (tramp-completion-run-real-handler operation args))))) ;;;###autoload -(defsubst tramp-register-file-name-handlers () - "Add tramp file name handlers to `file-name-handler-alist'." +(defsubst tramp-register-file-name-handler () + "Add tramp file name handler to `file-name-handler-alist'." (add-to-list 'file-name-handler-alist (cons tramp-file-name-regexp 'tramp-file-name-handler)) + ;; If jka-compr is already loaded, move it to the front of + ;; `file-name-handler-alist'. + (let ((jka (rassoc 'jka-compr-handler file-name-handler-alist))) + (when jka + (setq file-name-handler-alist + (cons jka (delete jka file-name-handler-alist)))))) + +;;;###autoload +(defsubst tramp-register-completion-file-name-handler () + "Add tramp completion file name handler to `file-name-handler-alist'." ;; `partial-completion-mode' is unknown in XEmacs. So we should ;; load it unconditionally there. In the GNU Emacs case, method/ ;; user/host name completion shall be bound to `partial-completion-mode'. @@ -4443,13 +4453,18 @@ (setq file-name-handler-alist (cons jka (delete jka file-name-handler-alist)))))) +;; `tramp-file-name-handler' must be registered before evaluation of +;; site-start and init files, because there might exist remote files +;; already, f.e. files kept via recentf-mode. +;;;###autoload(tramp-register-file-name-handler) ;; During autoload, it shall be checked whether -;; `partial-completion-mode' is active. Therefore registering will be -;; delayed. +;; `partial-completion-mode' is active. Therefore registering of +;; `tramp-completion-file-name-handler' will be delayed. ;;;###autoload(add-hook ;;;###autoload 'after-init-hook -;;;###autoload '(lambda () (tramp-register-file-name-handlers))) -(tramp-register-file-name-handlers) +;;;###autoload '(lambda () (tramp-register-completion-file-name-handler))) +(tramp-register-file-name-handler) +(tramp-register-completion-file-name-handler) ;;;###autoload (defun tramp-unload-file-name-handlers ()