/[emacs]/emacs/lisp/pcvs-info.el
ViewVC logotype

Diff of /emacs/lisp/pcvs-info.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by monnier, Tue Jun 18 23:03:55 2002 UTC revision 1.13 by rms, Wed Sep 11 01:56:47 2002 UTC
# Line 235  to confuse some users sometimes." Line 235  to confuse some users sometimes."
235    
236  ;; Predicate:  ;; Predicate:
237    
 (defun boolp (x) (or (eq t x) (null x)))  
238  (defun cvs-check-fileinfo (fi)  (defun cvs-check-fileinfo (fi)
239    "Check FI's conformance to some conventions."    "Check FI's conformance to some conventions."
240    (let ((check 'none)    (let ((check 'none)
# Line 247  to confuse some users sometimes." Line 246  to confuse some users sometimes."
246          (base-rev (cvs-fileinfo->base-rev fi))          (base-rev (cvs-fileinfo->base-rev fi))
247          (head-rev (cvs-fileinfo->head-rev fi))          (head-rev (cvs-fileinfo->head-rev fi))
248          (full-log (cvs-fileinfo->full-log fi)))          (full-log (cvs-fileinfo->full-log fi)))
249      (if (and (setq check 'marked)       (boolp marked)      (if (and (setq check 'marked)       (memq marked '(t nil))
250               (setq check 'base-rev)     (or (null base-rev) (stringp base-rev))               (setq check 'base-rev)     (or (null base-rev) (stringp base-rev))
251               (setq check 'head-rev)     (or (null head-rev) (stringp head-rev))               (setq check 'head-rev)     (or (null head-rev) (stringp head-rev))
252               (setq check 'full-log)     (stringp full-log)               (setq check 'full-log)     (stringp full-log)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26