tramp-compat-funcall -> compat-funcall?

[Ted Zlatanov]

Looking at some recent things Michael did in Tramp, I noticed this
function in tramp-compat.el:

;; 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)
  "Call FUNCTION if it exists.  Do not raise compiler warnings."
  `(when (or (subrp ,function) (functionp ,function))
     (with-no-warnings (funcall ,function ,@arguments))))

I think it would be a great addition to the Emacs core, so other
packages can use it. It just needs to be copied and then Tramp can
switch to it. Here's an example of a reimplementation that's not as good
(it seems) in gnus-fun.el:

(defun gnus-funcall-no-warning (function &rest args)
  (when (fboundp function)
    (apply function args)))

Thanks
Ted