* net/tramp.el (top): Don't fail if there is no current message.

[gnu-emacs] / lisp / net / tramp.el

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 83f87472dfd432ad709bcdafdf5275093fb72a5f..031d2fecc3285eb4c241b9b39de98efb4d80256d 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -7470,7 +7470,8 @@ Only works for Bourne-like shells."
       (unload-feature 'tramp 'force)
     (error nil)))
 
-(when (and load-in-progress (string-match "Loading tramp..." (current-message)))
+(when (and load-in-progress (string-match "Loading tramp..."
+                                         (or (current-message) "")))
   (message "Loading tramp...done"))
 
 (provide 'tramp)