Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
47389:a7b36abfcc69 | 47390:ff0e463ca59f |
---|---|
2 | 2 |
3 ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Stefan Monnier <monnier@cs.yale.edu> | 5 ;; Author: Stefan Monnier <monnier@cs.yale.edu> |
6 ;; Keywords: pcl-cvs | 6 ;; Keywords: pcl-cvs |
7 ;; Revision: $Id: pcvs-info.el,v 1.11 2002/06/18 21:47:41 monnier Exp $ | 7 ;; Revision: $Id: pcvs-info.el,v 1.12 2002/06/18 23:03:55 monnier Exp $ |
8 | 8 |
9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
10 | 10 |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
12 ;; it under the terms of the GNU General Public License as published by | 12 ;; it under the terms of the GNU General Public License as published by |
233 ;; (memq (cvs-fileinfo->type fileinfo) '(UP-TO-DATE DEAD))) | 233 ;; (memq (cvs-fileinfo->type fileinfo) '(UP-TO-DATE DEAD))) |
234 | 234 |
235 | 235 |
236 ;; Predicate: | 236 ;; Predicate: |
237 | 237 |
238 (defun boolp (x) (or (eq t x) (null x))) | |
239 (defun cvs-check-fileinfo (fi) | 238 (defun cvs-check-fileinfo (fi) |
240 "Check FI's conformance to some conventions." | 239 "Check FI's conformance to some conventions." |
241 (let ((check 'none) | 240 (let ((check 'none) |
242 (type (cvs-fileinfo->type fi)) | 241 (type (cvs-fileinfo->type fi)) |
243 (subtype (cvs-fileinfo->subtype fi)) | 242 (subtype (cvs-fileinfo->subtype fi)) |
245 (dir (cvs-fileinfo->dir fi)) | 244 (dir (cvs-fileinfo->dir fi)) |
246 (file (cvs-fileinfo->file fi)) | 245 (file (cvs-fileinfo->file fi)) |
247 (base-rev (cvs-fileinfo->base-rev fi)) | 246 (base-rev (cvs-fileinfo->base-rev fi)) |
248 (head-rev (cvs-fileinfo->head-rev fi)) | 247 (head-rev (cvs-fileinfo->head-rev fi)) |
249 (full-log (cvs-fileinfo->full-log fi))) | 248 (full-log (cvs-fileinfo->full-log fi))) |
250 (if (and (setq check 'marked) (boolp marked) | 249 (if (and (setq check 'marked) (memq marked '(t nil)) |
251 (setq check 'base-rev) (or (null base-rev) (stringp base-rev)) | 250 (setq check 'base-rev) (or (null base-rev) (stringp base-rev)) |
252 (setq check 'head-rev) (or (null head-rev) (stringp head-rev)) | 251 (setq check 'head-rev) (or (null head-rev) (stringp head-rev)) |
253 (setq check 'full-log) (stringp full-log) | 252 (setq check 'full-log) (stringp full-log) |
254 (setq check 'dir) | 253 (setq check 'dir) |
255 (and (stringp dir) | 254 (and (stringp dir) |