comparison lisp/vc.el @ 40850:f5a9c609626a

Add John David Smith to credits. (vc-clear-context): Fill obarray with 0, not nil.
author André Spiegel <spiegel@gnu.org>
date Fri, 09 Nov 2001 14:55:52 +0000
parents 7a36ba4154c0
children 4b4504c5aa56
comparison
equal deleted inserted replaced
40849:fffbed2b1ac9 40850:f5a9c609626a
4 4
5 ;; Author: FSF (see below for full credits) 5 ;; Author: FSF (see below for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 ;; Keywords: tools 7 ;; Keywords: tools
8 8
9 ;; $Id: vc.el,v 1.316 2001/10/29 12:21:26 spiegel Exp $ 9 ;; $Id: vc.el,v 1.317 2001/10/29 12:26:15 spiegel Exp $
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
34 ;; Paul Eggert <eggert@twinsun.com> 34 ;; Paul Eggert <eggert@twinsun.com>
35 ;; Sebastian Kremer <sk@thp.uni-koeln.de> 35 ;; Sebastian Kremer <sk@thp.uni-koeln.de>
36 ;; Martin Lorentzson <martinl@gnu.org> 36 ;; Martin Lorentzson <martinl@gnu.org>
37 ;; Dave Love <fx@gnu.org> 37 ;; Dave Love <fx@gnu.org>
38 ;; Stefan Monnier <monnier@cs.yale.edu> 38 ;; Stefan Monnier <monnier@cs.yale.edu>
39 ;; John David Smith <jdsmith@astro.cornell.edu>
39 ;; Andre Spiegel <spiegel@gnu.org> 40 ;; Andre Spiegel <spiegel@gnu.org>
40 ;; Richard Stallman <rms@gnu.org> 41 ;; Richard Stallman <rms@gnu.org>
41 ;; ttn@netcom.com 42 ;; ttn@netcom.com
42 43
43 ;;; Commentary: 44 ;;; Commentary:
713 ;; File property caching 714 ;; File property caching
714 715
715 (defun vc-clear-context () 716 (defun vc-clear-context ()
716 "Clear all cached file properties and the comment ring." 717 "Clear all cached file properties and the comment ring."
717 (interactive) 718 (interactive)
718 (fillarray vc-file-prop-obarray nil) 719 (fillarray vc-file-prop-obarray 0)
719 ;; Note: there is potential for minor lossage here if there is an open 720 ;; Note: there is potential for minor lossage here if there is an open
720 ;; log buffer with a nonzero local value of vc-comment-ring-index. 721 ;; log buffer with a nonzero local value of vc-comment-ring-index.
721 (setq vc-comment-ring (make-ring vc-maximum-comment-ring-size))) 722 (setq vc-comment-ring (make-ring vc-maximum-comment-ring-size)))
722 723
723 (defmacro with-vc-properties (file form settings) 724 (defmacro with-vc-properties (file form settings)