diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-09-11 01:56:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-09-11 01:56:47 +0000 |
| commit | 561e27723cd9bd2292a0adb4733ba468a0197b1a (patch) | |
| tree | 5ff653e5854e6e584fd392cadd4888323292c7f2 /lisp/pcvs-info.el | |
| parent | 92fd8c22435278ee43d79a24fef7d4453296b6d3 (diff) | |
| download | emacs-561e27723cd9bd2292a0adb4733ba468a0197b1a.tar.gz | |
(cvs-check-fileinfo): Don't use boolp.
(boolp): Function deleted.
Diffstat (limited to 'lisp/pcvs-info.el')
| -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 606987bddb6..04368643e5b 100644 --- a/lisp/pcvs-info.el +++ b/lisp/pcvs-info.el @@ -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 @@ 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) |