mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

vc-parse-buffer: arrange for old properties to get cleared when their

Browse Source 
match string is not found in the master file.
This commit is contained in:
Eric S. Raymond 1994-02-02 03:27:26 +00:00
parent 01b5c04d06
commit 1892807a4d
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/vc.el
View File

@ -3,7 +3,7 @@
;; Copyright (C) 1992, 1993 Free Software Foundation, Inc.
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Version: 5.4
;; Version: 5.5
;; This file is part of GNU Emacs.
@ -1292,11 +1292,12 @@ From a program, any arguments are passed to the `rcs2log' script."
(vc-match-substring 1))))))
latest-val))
(prog1
(and (re-search-forward p nil t)
(let ((value (vc-match-substring 1)))
(if file
(vc-file-setprop file (car properties) value))
value))
(let ((value nil))
(if (re-search-forward p nil t)
(setq value (vc-match-substring 1)))
(if file
(vc-file-setprop file (car properties) value))
value)
(setq properties (cdr properties)))))
patterns)
)