Mercurial > hg > xemacs-beta

diff lisp/prim/featurep.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 585fb297b004
children 8eaf7971accc
line wrap: on
line diff
--- a/lisp/prim/featurep.el	Mon Aug 13 09:32:45 2007 +0200
+++ b/lisp/prim/featurep.el	Mon Aug 13 09:33:18 2007 +0200
@@ -41,7 +41,8 @@
 (defun featurep (fexp)
   "Return non-nil if feature expression FEXP is true."
   (typecase fexp
-    (symbol (memq fexp features))       ;original definition
+    (symbol (and (memq fexp features)       ;original definition
+		 t))
     (number (>= (or featurep-emacs-version
                     (setq featurep-emacs-version
                       (+ emacs-major-version