683 |
(defun vc-clear-context () |
(defun vc-clear-context () |
684 |
"Clear all cached file properties and the comment ring." |
"Clear all cached file properties and the comment ring." |
685 |
(interactive) |
(interactive) |
686 |
(fillarray vc-file-prop-obarray nil) |
(fillarray vc-file-prop-obarray 0) |
687 |
;; 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 |
688 |
;; log buffer with a nonzero local value of vc-comment-ring-index. |
;; log buffer with a nonzero local value of vc-comment-ring-index. |
689 |
(setq vc-comment-ring (make-ring vc-maximum-comment-ring-size))) |
(setq vc-comment-ring (make-ring vc-maximum-comment-ring-size))) |