X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fliece-clfns.el;h=d80c56408eb27efc84331c982644a1ce974d0dd8;hb=0f1bb4dc485c20e65e767e29cb3df8eba98eea6c;hp=28e6f7ed4666c1df7e330ab246cdfa8d0959a016;hpb=a623e9265fab4fcaefafac6fa34beb29e21a83ef;p=elisp%2Fliece.git

diff --git a/lisp/liece-clfns.el b/lisp/liece-clfns.el
index 28e6f7e..d80c564 100644
--- a/lisp/liece-clfns.el
+++ b/lisp/liece-clfns.el
@@ -33,7 +33,7 @@
 (defun liece-clfns-subr-fboundp (symbol)
   "Return t if SYMBOL's function definition is a basic function."
   (and (fboundp symbol)
-       (or (subrp (symbol-function symbol-function))
+       (or (subrp (symbol-function symbol))
 	   (string-equal (symbol-file symbol) "subr"))))
 
 (if (featurep 'xemacs)