branch: elpa
commit 5232279373cf69147b04660026cde2d3b11b9f0c
Author: Mosè Giordano <[email protected]>
Commit: Mosè Giordano <[email protected]>
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)))
