diff options
| author | Michael Albinus | 2016-09-26 09:50:39 +0200 |
|---|---|---|
| committer | Michael Albinus | 2016-09-26 09:50:39 +0200 |
| commit | c44ecb77ab33f0a0559c3e5da42fb486d6b014dd (patch) | |
| tree | d475014cbfee81836e3c1e98e2cca6ebc00ed164 | |
| parent | 5ee56c4613e9380dbbe4bbaa97b29dd377e2134c (diff) | |
| download | emacs-c44ecb77ab33f0a0559c3e5da42fb486d6b014dd.tar.gz emacs-c44ecb77ab33f0a0559c3e5da42fb486d6b014dd.zip | |
* 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 @@ | |||
| 55 | ;; avoid them in cases we know what we do. | 55 | ;; avoid them in cases we know what we do. |
| 56 | (defmacro tramp-compat-funcall (function &rest arguments) | 56 | (defmacro tramp-compat-funcall (function &rest arguments) |
| 57 | "Call FUNCTION if it exists. Do not raise compiler warnings." | 57 | "Call FUNCTION if it exists. Do not raise compiler warnings." |
| 58 | `(when (or (subrp ,function) (functionp ,function)) | 58 | `(when (functionp ,function) |
| 59 | (with-no-warnings (funcall ,function ,@arguments)))) | 59 | (with-no-warnings (funcall ,function ,@arguments)))) |
| 60 | 60 | ||
| 61 | ;; We currently use "[" and "]" in the filename format for IPv6 hosts | 61 | ;; We currently use "[" and "]" in the filename format for IPv6 hosts |