diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-04-29 17:58:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-04-29 17:58:37 +0000 |
| commit | caf15d4f18205994732211381bb7331e0a2b71a8 (patch) | |
| tree | 64c101816eb218f3a41e7256dee71b9eec2c3341 /lisp/vc.el | |
| parent | e5f920d7e970d9e06e067b02d41ebe74783fa176 (diff) | |
| download | emacs-caf15d4f18205994732211381bb7331e0a2b71a8.tar.gz | |
(vc-match-substring): Renamed from match-substring.
(vc-parse-buffer): Use new name.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index cbbec3bbb5b..434f2543148 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1091,7 +1091,7 @@ From a program, any arguments are passed to the `rcs2log' script." ;; Functions for querying the master and lock files. -(defun match-substring (bn) +(defun vc-match-substring (bn) (buffer-substring (match-beginning bn) (match-end bn))) (defun vc-parse-buffer (patterns &optional file properties) @@ -1107,16 +1107,16 @@ From a program, any arguments are passed to the `rcs2log' script." (if (string-match "\\\\(.*\\\\(" p) (let ((latest-date "") (latest-val)) (while (re-search-forward p nil t) - (let ((date (match-substring 2))) + (let ((date (vc-match-substring 2))) (if (string< latest-date date) (progn (setq latest-date date) (setq latest-val - (match-substring 1)))))) + (vc-match-substring 1)))))) latest-val)) (prog1 (and (re-search-forward p nil t) - (let ((value (match-substring 1))) + (let ((value (vc-match-substring 1))) (if file (vc-file-setprop file (car properties) value)) value)) |