Mercurial > emacs

changeset 37339:31271d7f21c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cvs-addto-collection): Don't merge MESSAGE fileinfos. (cvs-update-filter): Only advertise `cvs-mode-delete-lock' if the lock file appears to be reachable from Emacs. (cvs-mode-mark-on-state, cvs-mode-display-file): New functions. (cvs-mode-find-file): Look for cvs-header-face rather than cvs-dirname-face (which doesn't exist). (cvs-mode-find-file): Allow `other' to be set to `dont-select'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 13 Apr 2001 15:18:11 +0000
parents 221cb2f0438b
children 3ae41b8bb994
files lisp/pcvs.el
diffstat 1 files changed, 64 insertions(+), 26 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/pcvs.el	Fri Apr 13 14:56:10 2001 +0000
+++ b/lisp/pcvs.el	Fri Apr 13 15:18:11 2001 +0000
@@ -13,7 +13,7 @@
 ;;	(Jari Aalto+mail.emacs) jari.aalto@poboxes.com
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
 ;; Keywords: CVS, version control, release management
-;; Revision: $Id: pcvs.el,v 1.25 2001/01/29 20:22:28 monnier Exp $
+;; Revision: $Id: pcvs.el,v 1.26 2001/03/07 00:20:30 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -78,6 +78,8 @@
 ;; - marking
 ;;    marking directories should jump to just after the dir.
 ;;    allow (un)marking directories at a time with the mouse.
+;;    allow cvs-cmd-do to either clear the marks or not.
+;;    add a "marks active" notion, like transient-mark-mode does.
 ;; - liveness indicator
 ;; - indicate in docstring if the cmd understands the `b' prefix(es).
 ;; - call smerge-mode when opening CONFLICT files.
@@ -97,7 +99,6 @@
 ;; 	- does "cvs -n tag LAST_VENDOR" to find old files into *cvs*
 ;;    cvs-export
 ;; 	(with completion on tag names and hooks to help generate full releases)
-;; - allow cvs-cmd-do to either clear the marks or not.
 ;; - display stickiness information.  And current CVS/Tag as well.
 ;; - write 'cvs-mode-admin' to do arbitrary 'cvs admin' commands
 ;;   Most interesting would be version removal and log message replacement.
@@ -628,7 +629,7 @@
 	(set-buffer obuf)))))
 
 (defun cvs-parse-process (dcd &optional subdir)
-  "FIXME: bad name, no doc"
+  "FIXME: bad name, no doc."
   (let* ((from-buf (current-buffer))
 	 (fileinfos (cvs-parse-buffer 'cvs-parse-table dcd subdir))
 	 (_ (set-buffer cvs-buffer))
@@ -713,9 +714,9 @@
     (let ((proc (get-buffer-process cvs-temp-buffer)))
       (when proc (delete-process proc)))))
 
-;;;
-;;; Maintaining the collection in the face of updates
-;;;
+;;
+;; Maintaining the collection in the face of updates
+;;
 
 (defun cvs-addto-collection (c fi &optional tin)
   "Add FI to C and return FI's corresponding tin.
@@ -731,7 +732,8 @@
       (while (not (or (null next-tin)
 		      (cvs-fileinfo< fi (ewoc-data next-tin))))
 	(setq tin next-tin next-tin (ewoc-next c next-tin)))
-      (if (cvs-fileinfo< (ewoc-data tin) fi)
+      (if (or (cvs-fileinfo< (ewoc-data tin) fi)
+	      (eq (cvs-fileinfo->type  fi) 'MESSAGE))
 	  ;; tin < fi < next-tin
 	  (ewoc-enter-after c tin fi)
 	;; fi == tin
@@ -990,8 +992,9 @@
 		 (cvs-create-fileinfo
 		  'MESSAGE "" " "
 		  (concat msg
-			  (substitute-command-keys
-			   "\n\t(type \\[cvs-mode-delete-lock] to delete it)"))
+			  (when (file-exists-p lock)
+			    (substitute-command-keys
+			     "\n\t(type \\[cvs-mode-delete-lock] to delete it)")))
 		  :subtype 'TEMP))
 		(pop-to-buffer (current-buffer))
 		(goto-char (point-max))
@@ -1137,6 +1140,31 @@
 		(setf (cvs-fileinfo->marked cookie) t)))
 	    cvs-cookies))
 
+(defun-cvs-mode (cvs-mode-mark-on-state . SIMPLE) (state)
+  "Mark all files in state STATE."
+  (interactive
+   (list
+    (let ((default
+	    (condition-case nil
+		(downcase
+		 (symbol-name
+		  (cvs-fileinfo->type
+		   (cvs-mode-marked nil nil :read-only t :one t :noquery t))))
+	      (error nil))))
+      (intern
+       (upcase
+	(completing-read
+	 (concat
+	  "Mark files in state" (if default (concat " [" default "]")) ": ")
+	 (mapcar (lambda (x)
+		   (list (downcase (symbol-name (car x)))))
+		 cvs-states)
+	 nil t nil nil default))))))
+  (ewoc-map (lambda (fi)
+	      (when (eq (cvs-fileinfo->type fi) state)
+		(setf (cvs-fileinfo->marked fi) t)))
+	    cvs-cookies))
+
 (defun-cvs-mode cvs-mode-mark-matching-files (regex)
   "Mark all files matching REGEX."
   (interactive "sMark files matching: ")
@@ -1276,9 +1304,9 @@
      (mapcar 'cvs-fileinfo->full-path
 	     (apply 'cvs-mode-marked -cvs-mode-files-args)))))
 
-;;;
-;;; Interface between Log-Edit and PCL-CVS
-;;;
+;;
+;; Interface between Log-Edit and PCL-CVS
+;;
 
 (defun cvs-mode-commit-setup ()
   "Run `cvs-mode-commit' with setup."
@@ -1329,15 +1357,16 @@
 (defun-cvs-mode (cvs-mode-insert . NOARGS) (file)
   "Insert an entry for a specific file."
   (interactive
-   (list (read-file-name "File to insert: "
-			 ;; Can't use ignore-errors here because interactive
-			 ;; specs aren't byte-compiled.
-			 (condition-case nil
-			     (file-name-as-directory
-			      (expand-file-name
-			       (cvs-fileinfo->dir
-				(car (cvs-mode-marked nil nil :read-only t)))))
-			   (error nil)))))
+   (list (read-file-name
+	  "File to insert: "
+	  ;; Can't use ignore-errors here because interactive
+	  ;; specs aren't byte-compiled.
+	  (condition-case nil
+	      (file-name-as-directory
+	       (expand-file-name
+		(cvs-fileinfo->dir
+		 (cvs-mode-marked nil nil :read-only t :one t :noquery t))))
+	    (error nil)))))
   (cvs-insert-file file))
 
 (defun cvs-insert-file (file)
@@ -1734,6 +1763,12 @@
   (cvs-mode-find-file e t))
 
 
+(defun cvs-mode-display-file (e)
+  "Show a buffer containing the file in another window."
+  (interactive (list last-input-event))
+  (cvs-mode-find-file e 'dont-select))
+
+
 (defun cvs-find-modif (fi)
   (with-temp-buffer
     (call-process cvs-program nil (current-buffer) nil
@@ -1750,7 +1785,7 @@
   (interactive (list last-input-event current-prefix-arg))
   (when (ignore-errors (mouse-set-point e) t)	;for invocation via the mouse
     (unless (memq (get-text-property (point) 'face)
-		  '(cvs-dirname-face cvs-filename-face))
+		  '(cvs-header-face cvs-filename-face))
       (error "Not a file name")))
   (cvs-mode!
    (lambda (&optional rev)
@@ -1761,14 +1796,17 @@
 	   (let ((odir default-directory))
 	     (setq default-directory
 		   (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
-	     (if other
-		 (dired-other-window default-directory)
-	       (dired default-directory))
+	     (cond ((eq other 'dont-select)
+		    (display-buffer (find-file-noselect default-directory)))
+		   (other (dired-other-window default-directory))
+		   (t (dired default-directory)))
 	     (set-buffer cvs-buf)
 	     (setq default-directory odir))
 	 (let ((buf (if rev (cvs-retrieve-revision fi rev)
 		      (find-file-noselect (cvs-fileinfo->full-path fi)))))
-	   (funcall (if other 'switch-to-buffer-other-window 'switch-to-buffer)
+	   (funcall (cond ((eq other 'dont-select) 'display-buffer)
+			  (other 'switch-to-buffer-other-window)
+			  (t 'switch-to-buffer))
 		    buf)
 	   (when (and cvs-find-file-and-jump (cvs-applicable-p fi 'diff-base))
 	     (goto-line (cvs-find-modif fi)))