From 6879f232702886831c0d9038a1037fff0e290dce Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 3 Sep 2000 18:03:23 +0000 Subject: [PATCH] Fix the last change. --- lisp/liece-clfns.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/liece-clfns.el b/lisp/liece-clfns.el index 3858949..f8031ea 100644 --- a/lisp/liece-clfns.el +++ b/lisp/liece-clfns.el @@ -32,10 +32,11 @@ (require 'pym) -(defmacro liece-clfns-subr-fboundp (symbol) +(defun liece-clfns-subr-fboundp (symbol) "Return t if SYMBOL's function definition is a basic function." - (or (subr-fboundp symbol) - (string-equal (symbol-file symbol) "subr"))) + (and (fboundp symbol) + (or (subrp (symbol-function symbol-function)) + (string-equal (symbol-file symbol) "subr")))) (if (featurep 'xemacs) nil -- 1.7.10.4