From 1c6bdf18c0f2116edef7f7195ca5ed7a55a05e73 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 24 Aug 2015 13:40:05 +0200 Subject: [PATCH] Revert fbb5531fa11d13854b274d28ccd329c9b6652cfc for tramp.el. --- lisp/net/tramp.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 69d7e1fe613..193d70b230a 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -1504,7 +1504,7 @@ ARGUMENTS to actually emit the message (if applicable)." ; (1+ (count-lines (point-min) (cdr ffn))))))) (insert (format "%s " fn))) ;; The message. - (insert (apply #'format-message fmt-string arguments)))) + (insert (apply 'format fmt-string arguments)))) (defvar tramp-message-show-message t "Show Tramp message in the minibuffer. @@ -1581,8 +1581,8 @@ signal identifier to be raised, remaining arguments passed to (error-message-string (list signal (get signal 'error-message) - (apply #'format-message fmt-string arguments))))) - (signal signal (list (apply #'format-message fmt-string arguments))))) + (apply 'format fmt-string arguments))))) + (signal signal (list (apply 'format fmt-string arguments))))) (defsubst tramp-error-with-buffer (buf vec-or-proc signal fmt-string &rest arguments) @@ -3599,8 +3599,8 @@ connection buffer." "Tramp failed to connect. If this happens repeatedly, try\n" " `\\[tramp-cleanup-this-connection]'"))) ((eq exit 'timeout) - (format-message - "Timeout reached, see buffer ‘%s’ for details" + (format + "Timeout reached, see buffer `%s' for details" (tramp-get-connection-buffer vec))) (t "Login failed"))))) (when (numberp pos) -- 2.39.5