[elpa] elpa 5232279 21/35: Remove obsolete TeX-function-p function

[Tassilo Horn]

branch: elpa
commit 5232279373cf69147b04660026cde2d3b11b9f0c
Author: Mosè Giordano <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Remove obsolete TeX-function-p function
    
    * tex.el (TeX-function-p): Remove this function.  It was introduced here
      in AUCTeX in 1994, but is present in Emacs since 1997 as well, under
      the name `functionp'.  Fixes bug#24245.
    * tex-buf.el (TeX-command-expand): Replace `TeX-function-p' with
      `functionp'.
---
 tex-buf.el |    2 +-
 tex.el     |    9 ---------
 2 files changed, 1 insertion(+), 10 deletions(-)

diff --git a/tex-buf.el b/tex-buf.el
index db3c959..431c011 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -571,7 +571,7 @@ without further expansion."
                     ;; a function definition made by an external
                     ;; package (e.g. icicles) is not picked up.
                     (cond ((and (not (eq expansion 'file))
-                                (TeX-function-p expansion))
+                                (functionp expansion))
                            (apply expansion arguments))
                           ((boundp expansion)
                             (setq expansion-res
diff --git a/tex.el b/tex.el
index 7e41738..4f1fdd8 100644
--- a/tex.el
+++ b/tex.el
@@ -4679,15 +4679,6 @@ See `match-data' for details."
       (buffer-substring-no-properties (match-beginning n) (match-end n))
     ""))
 
-(defun TeX-function-p (arg)
-  "Return non-nil if ARG is callable as a function."
-  (or (and (fboundp 'byte-code-function-p)
-          (byte-code-function-p arg))
-      (and (listp arg)
-          (eq (car arg) 'lambda))
-      (and (symbolp arg)
-          (fboundp arg))))
-
 (defun TeX-booleanp (arg)
   "Return non-nil if ARG is t or nil."
   (memq arg '(t nil)))