[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 5232279373cf69147b04660026cde2d3b11b9f0c

[Mosè Giordano]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  5232279373cf69147b04660026cde2d3b11b9f0c (commit)
      from  7d5c9bae1ea6669ec94e12bb12ebbf212f6d1b5a (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5232279373cf69147b04660026cde2d3b11b9f0c
Author: Mosè Giordano <address@hidden>
Date:   Sun Aug 21 16:41:18 2016 +0200

    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'.

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)))

-----------------------------------------------------------------------

Summary of changes:
 tex-buf.el |    2 +-
 tex.el     |    9 ---------
 2 files changed, 1 insertion(+), 10 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX