[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs-info.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs-info.el |
Date: |
Tue, 10 Sep 2002 21:56:47 -0400 |
Index: emacs/lisp/pcvs-info.el
diff -c emacs/lisp/pcvs-info.el:1.12 emacs/lisp/pcvs-info.el:1.13
*** emacs/lisp/pcvs-info.el:1.12 Tue Jun 18 19:03:55 2002
--- emacs/lisp/pcvs-info.el Tue Sep 10 21:56:47 2002
***************
*** 4,10 ****
;; Author: Stefan Monnier <address@hidden>
;; Keywords: pcl-cvs
! ;; Revision: $Id: pcvs-info.el,v 1.12 2002/06/18 23:03:55 monnier Exp $
;; This file is part of GNU Emacs.
--- 4,10 ----
;; Author: Stefan Monnier <address@hidden>
;; Keywords: pcl-cvs
! ;; Revision: $Id: pcvs-info.el,v 1.13 2002/09/11 01:56:47 rms Exp $
;; This file is part of GNU Emacs.
***************
*** 235,241 ****
;; 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)
--- 235,240 ----
***************
*** 247,253 ****
(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)
(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)
--- 246,252 ----
(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) (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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/pcvs-info.el,
Richard M. Stallman <=