From f5baea11cb6d3bdf1d6f9e1fbd99274023103a56 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 20 Jul 1993 02:25:19 +0000 Subject: [PATCH] (vc-rcs-status): Use "-", not " ", to separate locks, so that the RCS minor mode doesn't contain internal spaces. --- lisp/vc-hooks.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 092084f6906..c120b7cea3f 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -210,20 +210,20 @@ visiting FILE." (let* ((lock-pattern (concat "[ \b\t\n\v\f\r]+\\(" (regexp-quote (user-login-name)) - ":\\|\\)")) + ":\\)?")) (locks (save-restriction (narrow-to-region (match-beginning 1) (match-end 1)) (goto-char (point-min)) (while (re-search-forward lock-pattern nil t) - (replace-match " " t t)) + (replace-match "-" t t)) (buffer-string))) (status (if (not (string-equal locks "")) locks (goto-char (point-min)) (if (looking-at "head[ \b\t\n\v\f\r]+\\([.0-9]+\\)") - (concat " " (buffer-substring (match-beginning 1) + (concat "-" (buffer-substring (match-beginning 1) (match-end 1))) " @@")))) ;; Clean work buffer. -- 2.39.5