From c44ecb77ab33f0a0559c3e5da42fb486d6b014dd Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 26 Sep 2016 09:50:39 +0200 Subject: [PATCH] * lisp/net/tramp-compat.el (tramp-compat-funcall): Don't use `subrp'. --- lisp/net/tramp-compat.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 1c0b8d20fda..0d804fc0a48 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el @@ -55,7 +55,7 @@ ;; avoid them in cases we know what we do. (defmacro tramp-compat-funcall (function &rest arguments) "Call FUNCTION if it exists. Do not raise compiler warnings." - `(when (or (subrp ,function) (functionp ,function)) + `(when (functionp ,function) (with-no-warnings (funcall ,function ,@arguments)))) ;; We currently use "[" and "]" in the filename format for IPv6 hosts -- 2.11.4.GIT