Mercurial > emacs

comparison lisp/vc.el @ 12819:e6713915dd94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-dired-reformat-line): Display eight character user names correctly.
author Richard M. Stallman <rms@gnu.org>
date Thu, 10 Aug 1995 19:46:16 +0000
parents 826ee893ebdf
children 857663042672
comparison
equal deleted inserted replaced
12818:3ef9f196e634 12819:e6713915dd94
1136 (insert (substring " " 0 1136 (insert (substring " " 0
1137 (- 7 (- (match-end 2) (match-beginning 2))))))))) 1137 (- 7 (- (match-end 2) (match-beginning 2)))))))))
1138 (t 1138 (t
1139 (if x (setq x (concat "(" x ")"))) 1139 (if x (setq x (concat "(" x ")")))
1140 (if (re-search-forward "\\([0-9]+ \\).................\\( .*\\)" nil 0) 1140 (if (re-search-forward "\\([0-9]+ \\).................\\( .*\\)" nil 0)
1141 (let ((rep (substring (concat x " ") 0 9))) 1141 (let ((rep (substring (concat x " ") 0 10)))
1142 (replace-match (concat "\\1" rep "\\2") t))) 1142 (replace-match (concat "\\1" rep "\\2") t)))
1143 ))) 1143 )))
1144 1144
1145 ;;; Note in Emacs 18 the following defun gets overridden 1145 ;;; Note in Emacs 18 the following defun gets overridden
1146 ;;; with the symbol 'vc-directory-18. See below. 1146 ;;; with the symbol 'vc-directory-18. See below.