From: Michael Albinus Date: Thu, 4 Dec 2008 20:44:11 +0000 (+0000) Subject: * net/tramp.el (top): Write a message, when loading Tramp. X-Git-Tag: emacs-pretest-23.0.90~1274 X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/ccb4a48152f46c56eadb8bd94218aaa06de94dca?ds=sidebyside * net/tramp.el (top): Write a message, when loading Tramp. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0699978fb9..53a9806f61 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2008-12-04 Michael Albinus + + * net/tramp.el (top): Write a message, when loading Tramp. + + * net/tramp-cache.el (tramp-dump-connection-properties): Polish + the check, whether to dump the data. + 2008-12-04 Lute Kamstra * vc-cvs.el (vc-cvs-could-register): Don't use file-directory-p to diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 290fa2b8e8..83f87472df 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -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 @@ Only works for Bourne-like shells." (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 @@ Only works for Bourne-like shells." ;; "-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