Synch up with liece-2_0.

[elisp/liece.git] / lisp / liece-clfns.el

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