Mercurial > emacs

comparison lisp/vc-cvs.el @ 46163:426c8cf1a3df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typo.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 03 Jul 2002 14:26:51 +0000
parents 20c79f08a7da
children 687aaa7ac601
comparison
equal deleted inserted replaced
46162:b64ee639958c 46163:426c8cf1a3df
3 ;; Copyright (C) 1995,98,99,2000,2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,98,99,2000,2001 Free Software Foundation, Inc.
4 4
5 ;; Author: FSF (see vc.el for full credits) 5 ;; Author: FSF (see vc.el for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 7
8 ;; $Id: vc-cvs.el,v 1.40 2002/04/09 17:13:51 sds Exp $ 8 ;; $Id: vc-cvs.el,v 1.41 2002/05/12 17:29:29 eliz Exp $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
833 'revision-number)) 833 'revision-number))
834 (t nil)))) 834 (t nil))))
835 (unwind-protect 835 (unwind-protect
836 (progn 836 (progn
837 (cond 837 (cond
838 ;; Sticky Date tag. Convert to to a proper date value (`encode-time') 838 ;; Sticky Date tag. Convert to a proper date value (`encode-time')
839 ((eq type 'date) 839 ((eq type 'date)
840 (string-match 840 (string-match
841 "\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)" 841 "\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)"
842 match-tag) 842 match-tag)
843 (let* ((year-tmp (string-to-number (match-string 1 match-tag))) 843 (let* ((year-tmp (string-to-number (match-string 1 match-tag)))