Function: cvs-status-trees

cvs-status-trees is an interactive and byte-compiled function defined in cvs-status.el.gz.

Signature

(cvs-status-trees)

Documentation

Look for a lists of tags, and replace them with trees.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/cvs-status.el.gz
;; (defun cvs-refontify (beg end)
;;   (when (and font-lock-mode
;;              (fboundp 'font-lock-fontify-region))
;;     (font-lock-fontify-region (1- beg) (1+ end))))

(defun cvs-status-trees ()
  "Look for a lists of tags, and replace them with trees."
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (let ((inhibit-read-only t)
	  (tags nil))
      (while (listp (setq tags (cvs-status-get-tags)))
	;;(let ((pt (save-excursion (forward-line -1) (point))))
	  (save-restriction
	    (narrow-to-region (point) (point))
	    ;;(newline)
	    (combine-after-change-calls
	      (cvs-tree-print (cvs-tags->tree tags) 'cvs-tag->string 3)))
	  ;;(cvs-refontify pt (point))
	  ;;(sit-for 0)
	  ;;)
	  ))))