diff options
| author | Richard M. Stallman <[email protected]> | 2002-09-11 01:56:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-09-11 01:56:47 +0000 |
| commit | 9d4b302723512d1a5cd079338057ae70eca3a46d (patch) | |
| tree | 3edae262c06e3b2b5715ffd7fb02a79907f98ac7 | |
| parent | 482b44d88e40cc63fa35afd4fb8e5a0006b5d367 (diff) | |
(cvs-check-fileinfo): Don't use boolp.
(boolp): Function deleted.
| -rw-r--r-- | lisp/pcvs-info.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/pcvs-info.el b/lisp/pcvs-info.el index 606987bddb..04368643e5 100644 --- a/lisp/pcvs-info.el +++ b/lisp/pcvs-info.el @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier <[email protected]> ;; 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 @@ to confuse some users sometimes." ;; 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 @@ to confuse some users sometimes." (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) |