mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-09 15:50:21 +00:00
Code Issues Releases Activity

(vc-rcs-status): Use "-", not " ", to separate locks, so that the RCS

Browse Source 
minor mode doesn't contain internal spaces.
This commit is contained in:
Paul Eggert 1993-07-20 02:25:19 +00:00
parent b1ecd9c6d2
commit f5baea11cb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/vc-hooks.el
View File

@ -210,20 +210,20 @@ visiting FILE."
(let* ((lock-pattern (let* ((lock-pattern
(concat "[ \b\t\n\v\f\r]+\\(" (concat "[ \b\t\n\v\f\r]+\\("
(regexp-quote (user-login-name)) (regexp-quote (user-login-name))
":\\|\\)")) ":\\)?"))
(locks (locks
(save-restriction (save-restriction
(narrow-to-region (match-beginning 1) (match-end 1)) (narrow-to-region (match-beginning 1) (match-end 1))
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward lock-pattern nil t) (while (re-search-forward lock-pattern nil t)
(replace-match " " t t)) (replace-match "-" t t))
(buffer-string))) (buffer-string)))
(status (status
(if (not (string-equal locks "")) (if (not (string-equal locks ""))
locks locks
(goto-char (point-min)) (goto-char (point-min))
(if (looking-at "head[ \b\t\n\v\f\r]+\\([.0-9]+\\)") (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))) (match-end 1)))
" @@")))) " @@"))))
;; Clean work buffer. ;; Clean work buffer.