Mercurial > emacs
changeset 94210:7cc87e1801a6
(vc-cvs-status-extra-headers): New function.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 21 Apr 2008 16:18:12 +0000 |
| parents | 0ffd6dd0f75d |
| children | 81b6ecd7be01 |
| files | lisp/ChangeLog lisp/vc-cvs.el |
| diffstat | 2 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Apr 21 07:13:33 2008 +0000 +++ b/lisp/ChangeLog Mon Apr 21 16:18:12 2008 +0000 @@ -6,6 +6,8 @@ 2008-04-21 Dan Nicolaescu <dann@ics.uci.edu> + * vc-cvs.el (vc-cvs-status-extra-headers): New function. + * vc-hooks.el (vc-insert-file, vc-state, vc-working-revision) (vc-check-master-templates, vc-file-not-found-hook) (vc-kill-buffer-hook):
--- a/lisp/vc-cvs.el Mon Apr 21 07:13:33 2008 +0000 +++ b/lisp/vc-cvs.el Mon Apr 21 16:18:12 2008 +0000 @@ -939,7 +939,6 @@ ;; (funcall update-function result))) ) -;; XXX Experimental function for the vc-dired replacement. (defun vc-cvs-dir-status (dir update-function) "Create a list of conses (file . state) for DIR." (vc-cvs-command (current-buffer) 'async dir "status") @@ -951,6 +950,19 @@ (vc-exec-after `(vc-cvs-after-dir-status (quote ,update-function)))) +(defun vc-cvs-status-extra-headers (dir) + (concat + ;; FIXME: see how PCL-CVS gets the data to print all these + (propertize "Module : " 'face 'font-lock-type-face) + (propertize "ADD CODE TO PRINT THE MODULE\n" + 'face 'font-lock-warning-face) + (propertize "Repository : " 'face 'font-lock-type-face) + (propertize "ADD CODE TO PRINT THE REPOSITORY\n" + 'face 'font-lock-warning-face) + (propertize "Branch : " 'face 'font-lock-type-face) + (propertize "ADD CODE TO PRINT THE BRANCH NAME\n" + 'face 'font-lock-warning-face))) + (defun vc-cvs-get-entries (dir) "Insert the CVS/Entries file from below DIR into the current buffer. This function ensures that the correct coding system is used for that,