Mercurial > emacs

comparison lisp/vc-cvs.el @ 99138:a479c7f4849d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-cvs-status-extra-headers): Use full directory name when reporting the module.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 25 Oct 2008 20:59:38 +0000
parents 2cae4bd13e67
children b0dce7f34dda
comparison
equal deleted inserted replaced
99137:d54dee52948e 99138:a479c7f4849d
998 (module 998 (module
999 (condition-case nil 999 (condition-case nil
1000 (with-temp-buffer 1000 (with-temp-buffer
1001 (insert-file-contents "CVS/Repository") 1001 (insert-file-contents "CVS/Repository")
1002 (goto-char (point-min)) 1002 (goto-char (point-min))
1003 (re-search-forward "[^/\n]*" nil t) 1003 (skip-chars-forward "^\n")
1004 (concat (match-string 0) "\n")) 1004 (concat (buffer-substring (point-min) (point)) "\n"))
1005 (file-error nil)))) 1005 (file-error nil))))
1006 (concat 1006 (concat
1007 (cond (module 1007 (cond (module
1008 (concat (propertize "Module : " 'face 'font-lock-type-face) 1008 (concat (propertize "Module : " 'face 'font-lock-type-face)
1009 (propertize module 'face 'font-lock-variable-name-face))) 1009 (propertize module 'face 'font-lock-variable-name-face)))