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) |