Mercurial > emacs
diff lisp/pcvs-info.el @ 47390:ff0e463ca59f
(cvs-check-fileinfo): Don't use boolp.
(boolp): Function deleted.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 11 Sep 2002 01:56:47 +0000 |
parents | 32ed873c69a7 |
children | 9a2cb7cc7942 |
line wrap: on
line diff
--- a/lisp/pcvs-info.el Tue Sep 10 22:19:39 2002 +0000 +++ b/lisp/pcvs-info.el Wed Sep 11 01:56:47 2002 +0000 @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-info.el,v 1.11 2002/06/18 21:47:41 monnier Exp $ +;; Revision: $Id: pcvs-info.el,v 1.12 2002/06/18 23:03:55 monnier Exp $ ;; This file is part of GNU Emacs. @@ -235,7 +235,6 @@ ;; Predicate: -(defun boolp (x) (or (eq t x) (null x))) (defun cvs-check-fileinfo (fi) "Check FI's conformance to some conventions." (let ((check 'none) @@ -247,7 +246,7 @@ (base-rev (cvs-fileinfo->base-rev fi)) (head-rev (cvs-fileinfo->head-rev fi)) (full-log (cvs-fileinfo->full-log fi))) - (if (and (setq check 'marked) (boolp marked) + (if (and (setq check 'marked) (memq marked '(t nil)) (setq check 'base-rev) (or (null base-rev) (stringp base-rev)) (setq check 'head-rev) (or (null head-rev) (stringp head-rev)) (setq check 'full-log) (stringp full-log)