-;;; cvs-status.el --- major mode for browsing `cvs status' output -*- coding: utf-8 -*-
+;;; cvs-status.el --- major mode for browsing `cvs status' output -*- coding: utf-8; lexical-binding: t -*-
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2011 Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
;; Keywords: pcl-cvs cvs status tree vc tools
'(cvs-status-font-lock-keywords t nil nil nil (font-lock-multiline . t)))
(defvar cvs-minor-wrap-function)
+(defvar cvs-force-command)
+(defvar cvs-minor-current-files)
+(defvar cvs-secondary-branch-prefix)
+(defvar cvs-branch-prefix)
+(defvar cvs-tag-print-rev)
+
(put 'cvs-status-mode 'mode-class 'special)
;;;###autoload
(define-derived-mode cvs-status-mode fundamental-mode "CVS-Status"
(nprev (if (and cvs-tree-nomerge next
(equal vlist (cvs-tag->vlist next)))
prev vlist)))
- (cvs-map (lambda (v p) v) nprev prev)))
+ (cvs-map (lambda (v _p) v) nprev prev)))
(after (save-excursion
(newline)
(cvs-tree-tags-insert (cdr tags) nprev)))
;;;; Merged trees from different files
;;;;
-(defun cvs-tree-fuzzy-merge-1 (trees tree prev)
- )
+;; (defun cvs-tree-fuzzy-merge-1 (trees tree prev)
+;; )
-(defun cvs-tree-fuzzy-merge (trees tree)
- "Do the impossible: merge TREE into TREES."
- ())
+;; (defun cvs-tree-fuzzy-merge (trees tree)
+;; "Do the impossible: merge TREE into TREES."
+;; ())
-(defun cvs-tree ()
- "Get tags from the status output and merge tham all into a big tree."
- (save-excursion
- (goto-char (point-min))
- (let ((inhibit-read-only t)
- (trees (make-vector 31 0)) tree)
- (while (listp (setq tree (cvs-tags->tree (cvs-status-get-tags))))
- (cvs-tree-fuzzy-merge trees tree))
- (erase-buffer)
- (let ((cvs-tag-print-rev nil))
- (cvs-tree-print tree 'cvs-tag->string 3)))))
+;; (defun cvs-tree ()
+;; "Get tags from the status output and merge them all into a big tree."
+;; (save-excursion
+;; (goto-char (point-min))
+;; (let ((inhibit-read-only t)
+;; (trees (make-vector 31 0)) tree)
+;; (while (listp (setq tree (cvs-tags->tree (cvs-status-get-tags))))
+;; (cvs-tree-fuzzy-merge trees tree))
+;; (erase-buffer)
+;; (let ((cvs-tag-print-rev nil))
+;; (cvs-tree-print tree 'cvs-tag->string 3)))))
(provide 'cvs-status)
-;; arch-tag: db8b5094-d02a-473e-a476-544e89ff5ad0
;;; cvs-status.el ends here