[Emacs-diffs] master a88f22b: Pacify byte compiler in tramp.el

[Michael Albinus]

branch: master
commit a88f22bddef5be36a3227f0630c1465f76a87f78
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Pacify byte compiler in tramp.el
    
    * lisp/net/tramp.el (tramp-time-diff): Use `tramp-compat-funcall'.
---
 lisp/net/tramp-compat.el |    6 +++---
 lisp/net/tramp.el        |    3 +--
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index f1f31d0..0e9fcb5 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -50,9 +50,9 @@
 (unless (boundp 'remote-file-name-inhibit-cache)
   (defvar remote-file-name-inhibit-cache nil))
 
-;; For not existing functions, or functions with a changed argument
-;; list, there are compiler warnings.  We want to avoid them in cases
-;; we know what we do.
+;; For not existing functions, obsolete functions, or functions with a
+;; changed argument list, there are compiler warnings.  We want to
+;; avoid them in cases we know what we do.
 (defmacro tramp-compat-funcall (function &rest arguments)
   `(when (or (subrp ,function) (functionp ,function))
      (with-no-warnings (funcall ,function ,@arguments))))
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 57a6594..9f67855 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1723,7 +1723,6 @@ For definition of that list see 
`tramp-set-completion-function'."
 
 ;;; Fontification of `read-file-name':
 
-;; rfn-eshadow.el is part of Emacs 22.  It is autoloaded.
 (defvar tramp-rfn-eshadow-overlay)
 (make-variable-buffer-local 'tramp-rfn-eshadow-overlay)
 
@@ -4147,7 +4146,7 @@ Invokes `password-read' if available, `read-passwd' else."
   "Return the difference between the two times, in seconds.
 T1 and T2 are time values (as returned by `current-time' for example)."
   ;; Starting with Emacs 25.1, we could change this to use `time-subtract'.
-  (float-time (subtract-time t1 t2)))
+  (float-time (tramp-compat-funcall 'subtract-time t1 t2)))
 
 ;; Currently (as of Emacs 20.5), the function `shell-quote-argument'
 ;; does not deal well with newline characters.  Newline is replaced by