36 |
;; Martin Lorentzson <martinl@gnu.org> |
;; Martin Lorentzson <martinl@gnu.org> |
37 |
;; Dave Love <fx@gnu.org> |
;; Dave Love <fx@gnu.org> |
38 |
;; Stefan Monnier <monnier@cs.yale.edu> |
;; Stefan Monnier <monnier@cs.yale.edu> |
39 |
|
;; John David Smith <jdsmith@astro.cornell.edu> |
40 |
;; Andre Spiegel <spiegel@gnu.org> |
;; Andre Spiegel <spiegel@gnu.org> |
41 |
;; Richard Stallman <rms@gnu.org> |
;; Richard Stallman <rms@gnu.org> |
42 |
;; ttn@netcom.com |
;; ttn@netcom.com |
716 |
(defun vc-clear-context () |
(defun vc-clear-context () |
717 |
"Clear all cached file properties and the comment ring." |
"Clear all cached file properties and the comment ring." |
718 |
(interactive) |
(interactive) |
719 |
(fillarray vc-file-prop-obarray nil) |
(fillarray vc-file-prop-obarray 0) |
720 |
;; Note: there is potential for minor lossage here if there is an open |
;; Note: there is potential for minor lossage here if there is an open |
721 |
;; log buffer with a nonzero local value of vc-comment-ring-index. |
;; log buffer with a nonzero local value of vc-comment-ring-index. |
722 |
(setq vc-comment-ring (make-ring vc-maximum-comment-ring-size))) |
(setq vc-comment-ring (make-ring vc-maximum-comment-ring-size))) |