Mercurial > emacs
changeset 100216:9c5b974a0a5b
* net/tramp.el (top): Write a message, when loading Tramp.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Thu, 04 Dec 2008 20:43:23 +0000 |
| parents | 41af808a3cfa |
| children | 4a9f8c20f71b |
| files | lisp/net/tramp.el |
| diffstat | 1 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/tramp.el Thu Dec 04 20:42:29 2008 +0000 +++ b/lisp/net/tramp.el Thu Dec 04 20:43:23 2008 +0000 @@ -59,6 +59,13 @@ ;;; Code: +;; Since Emacs 23.1, loading messages have been disabled during +;; autoload. However, loading Tramp takes a while, and it could +;; happen while typing a filename in the minibuffer. Therefore, Tramp +;; shall inform about. +(when (and load-in-progress (null (current-message))) + (message "Loading tramp...")) + ;; The Tramp version number and bug report address, as prepared by configure. (require 'trampver) (add-hook 'tramp-unload-hook @@ -7463,6 +7470,9 @@ (unload-feature 'tramp 'force) (error nil))) +(when (and load-in-progress (string-match "Loading tramp..." (current-message))) + (message "Loading tramp...done")) + (provide 'tramp) ;;; TODO: @@ -7562,6 +7572,9 @@ ;; "-t". (Markus Triska) ;; * Support IPv6 hostnames. Use "/[some:ip:v6:address:for:tramp]:/", ;; which is the syntax used on web browsers. (Óscar Fuentes) +;; * Add gvfs support. +;; * Set `tramp-copy-size-limit' to 0, when there is no remote +;; encoding routine. ;; Functions for file-name-handler-alist: ;; diff-latest-backup-file -- in diff.el