diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2016-09-26 09:50:39 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2016-09-26 09:50:39 +0200 |
| commit | c44ecb77ab33f0a0559c3e5da42fb486d6b014dd (patch) | |
| tree | d475014cbfee81836e3c1e98e2cca6ebc00ed164 | |
| parent | 5ee56c4613e9380dbbe4bbaa97b29dd377e2134c (diff) | |
| download | emacs-c44ecb77ab33f0a0559c3e5da42fb486d6b014dd.tar.gz | |
* lisp/net/tramp-compat.el (tramp-compat-funcall): Don't use `subrp'.
| -rw-r--r-- | lisp/net/tramp-compat.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 |