Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(vc-cvs-status-extra-headers): New function.

Browse source
This commit is contained in:
Dan Nicolaescu 2008-04-21 16:18:12 +00:00
parent d55fe5bb3e
commit 47302633b2
2 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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):

14
lisp/vc-cvs.el
View file

@ -939,7 +939,6 @@ state."
;; (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 @@ state."
(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,