[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/cvs-status.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cvs-status.el [lexbind] |
Date: |
Thu, 11 Nov 2004 23:47:02 -0500 |
Index: emacs/lisp/cvs-status.el
diff -c emacs/lisp/cvs-status.el:1.13.4.6 emacs/lisp/cvs-status.el:1.13.4.7
*** emacs/lisp/cvs-status.el:1.13.4.6 Sat Sep 4 09:26:22 2004
--- emacs/lisp/cvs-status.el Fri Nov 12 04:21:13 2004
***************
*** 1,6 ****
;;; cvs-status.el --- major mode for browsing `cvs status' output -*- coding:
utf-8 -*-
! ;; Copyright (C) 1999, 2000, 03, 2004 Free Software Foundation, Inc.
;; Author: Stefan Monnier <address@hidden>
;; Keywords: pcl-cvs cvs status tree tools
--- 1,6 ----
;;; cvs-status.el --- major mode for browsing `cvs status' output -*- coding:
utf-8 -*-
! ;; Copyright (C) 1999, 2000, 2003, 2004 Free Software Foundation, Inc.
;; Author: Stefan Monnier <address@hidden>
;; Keywords: pcl-cvs cvs status tree tools
***************
*** 31,38 ****
;;; Code:
(eval-when-compile (require 'cl))
- (eval-when-compile (require 'pcvs))
(require 'pcvs-util)
;;;
--- 31,38 ----
;;; Code:
(eval-when-compile (require 'cl))
(require 'pcvs-util)
+ (eval-when-compile (require 'pcvs))
;;;
***************
*** 50,56 ****
("\M-p" . cvs-status-prev)
("t" . cvs-status-cvstrees)
("T" . cvs-status-trees)
! (">" . cvs-status-checkout))
"CVS-Status' keymap."
:group 'cvs-status
:inherit 'cvs-mode-map)
--- 50,56 ----
("\M-p" . cvs-status-prev)
("t" . cvs-status-cvstrees)
("T" . cvs-status-trees)
! (">" . cvs-mode-checkout))
"CVS-Status' keymap."
:group 'cvs-status
:inherit 'cvs-mode-map)
***************
*** 89,95 ****
(defconst cvs-status-font-lock-defaults
'(cvs-status-font-lock-keywords t nil nil nil (font-lock-multiline . t)))
!
(put 'cvs-status-mode 'mode-class 'special)
;;;###autoload
(define-derived-mode cvs-status-mode fundamental-mode "CVS-Status"
--- 89,95 ----
(defconst cvs-status-font-lock-defaults
'(cvs-status-font-lock-keywords t nil nil nil (font-lock-multiline . t)))
! (defvar cvs-minor-wrap-function)
(put 'cvs-status-mode 'mode-class 'special)
;;;###autoload
(define-derived-mode cvs-status-mode fundamental-mode "CVS-Status"
***************
*** 108,114 ****
(let* ((file (match-string 1))
(cvsdir (and (re-search-backward cvs-status-dir-re nil t)
(match-string 1)))
! (pcldir (and (re-search-backward cvs-pcl-cvs-dirchange-re nil t)
(match-string 1)))
(dir ""))
(let ((default-directory ""))
--- 108,115 ----
(let* ((file (match-string 1))
(cvsdir (and (re-search-backward cvs-status-dir-re nil t)
(match-string 1)))
! (pcldir (and (if (boundp 'cvs-pcl-cvs-dirchange-re)
! (re-search-backward cvs-pcl-cvs-dirchange-re nil t))
(match-string 1)))
(dir ""))
(let ((default-directory ""))
***************
*** 466,490 ****
;;(sit-for 0)
))))))
- (defun-cvs-mode (cvs-status-checkout . NOARGS) (dir)
- "Run cvs-checkout against the tag under the point.
- The files are stored to DIR."
- (interactive
- (let* ((module (cvs-get-module))
- (branch (cvs-prefix-get 'cvs-branch-prefix))
- (prompt (format "CVS Checkout Directory for `%s%s': "
- module
- (if branch (format "(branch: %s)" branch)
- ""))))
- (list
- (read-directory-name prompt
- nil default-directory nil))))
- (let ((modules (cvs-string->strings (cvs-get-module)))
- (flags (cvs-add-branch-prefix
- (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags")))
- (cvs-cvsroot (cvs-get-cvsroot)))
- (cvs-checkout modules dir flags)))
-
(defun cvs-tree-tags-insert (tags prev)
(when tags
(let* ((tag (car tags))
--- 467,472 ----
***************
*** 556,560 ****
(provide 'cvs-status)
! ;;; arch-tag: db8b5094-d02a-473e-a476-544e89ff5ad0
;;; cvs-status.el ends here
--- 538,542 ----
(provide 'cvs-status)
! ;; arch-tag: db8b5094-d02a-473e-a476-544e89ff5ad0
;;; cvs-status.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/cvs-status.el [lexbind],
Miles Bader <=