emacs-diffs
[Top][All Lists]
Advanced

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]