(vc-status-kill-query): New function.

(vc-status-mode): Add it to kill-buffer-query-functions.
(vc-status-show-fileentry): New function.
(vc-status-menu-map): Bind it.  Bind vc-next-action.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c9712bb7d01d3692d03367f0d6b1af60f1ab59d..c9348ba79248b381b756cc877f36bddd2a1c7a31 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-04-14  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc.el (vc-status-kill-query): New function.
+       (vc-status-mode): Add it to kill-buffer-query-functions.
+       (vc-status-show-fileentry): New function.
+       (vc-status-menu-map): Bind it.  Bind vc-next-action.
+
 2008-04-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * minibuffer.el (minibuffer-message): Put cursor at the right place.

diff --git a/lisp/vc.el b/lisp/vc.el
index 1abc1207e5139bdc1e31a1e7a9df36e5187171a9..5435c53e621fa4b1125d371048534dfce453c77b 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -625,7 +625,7 @@
 ;;   nil for unregistered files, then update vc-next-action.
 ;;
 ;; - vc-register should register a fileset at a time. The backends
-;;   already support this, only the front-end needs to be change to
+;;   already support this, only the front-end needs to be changed to
 ;;   handle multiple files at a time.
 ;;
 ;; - add a mechanism for ignoring files.
@@ -648,12 +648,6 @@
 ;;
 ;; - vc-status toolbar needs more icons.
 ;;
-;; - vc-status needs a command to insert a file entry in the status
-;;   display, similar to `cvs-mode-insert'.
-;;
-;; - vc-status: refresh should not completely wipe out the current
-;;   contents of the vc-status buffer.
-;;
 ;; - vc-diff, vc-annotate, etc. need to deal better with unregistered
 ;;   files. Now that unregistered and ignored files are shown in
 ;;   vc-dired/vc-status, it is possible that these commands are called
@@ -1574,7 +1568,7 @@ merge in the changes into your working copy."
         (state (vc-state (car files)))
         (model (vc-checkout-model (car files)))
         revision)
-    ;; Verify that the fileset is homogenous
+    ;; Verify that the fileset is homogeneous
     (dolist (file (cdr files))
       (unless (vc-compatible-state (vc-state file) state)
        (error "Fileset is in a mixed-up state"))
@@ -2821,27 +2815,6 @@ specific headers."
     (define-key map [remup]
       '(menu-item "Hide up-to-date" vc-status-hide-up-to-date
                  :help "Hide up-to-date items from display"))
-    ;; VC commands.
-    (define-key map [sepvccmd] '("--"))
-    (define-key map [annotate]
-      '(menu-item "Annotate" vc-annotate
-                 :help "Display the edit history of the current file using colors"))
-    (define-key map [diff]
-      '(menu-item "Compare with Base Version" vc-diff
-                 :help "Compare file set with the base version"))
-    (define-key map [register]
-      '(menu-item "Register" vc-status-register
-                 :help "Register file set into the version control system"))
-    (define-key map [update]
-      '(menu-item "Update to latest version" vc-update
-                 :help "Update the current fileset's files to their tip revisions"))
-    (define-key map [revert]
-      '(menu-item "Revert to base version" vc-revert
-                 :help "Revert working copies of the selected fileset to their repository contents."))
-    (define-key map [log]
-     '(menu-item "Show history" vc-print-log
-     :help "List the change log of the current file set in a window"))
-
     ;; Movement.
     (define-key map [sepmv] '("--"))
     (define-key map [next-line]
@@ -2879,6 +2852,38 @@ specific headers."
     (define-key map [open]
       '(menu-item "Open file" vc-status-find-file
                  :help "Find the file on the current line"))
+    ;; VC info details
+    (define-key map [sepvcdet] '("--"))
+    ;; FIXME: This needs a key binding.  And maybe a better name
+    ;; ("Insert" like PCL-CVS uses does not sound that great either)...
+    (define-key map [ins]
+      '(menu-item "Show File" vc-status-show-fileentry
+                 :help "Show a file in the VC status listing even though it might be up to date"))
+    (define-key map [annotate]
+      '(menu-item "Annotate" vc-annotate
+                 :help "Display the edit history of the current file using colors"))
+    (define-key map [diff]
+      '(menu-item "Compare with Base Version" vc-diff
+                 :help "Compare file set with the base version"))
+    (define-key map [log]
+     '(menu-item "Show history" vc-print-log
+     :help "List the change log of the current file set in a window"))
+    ;; VC commands.
+    (define-key map [sepvccmd] '("--"))
+    (define-key map [update]
+      '(menu-item "Update to latest version" vc-update
+                 :help "Update the current fileset's files to their tip revisions"))
+    (define-key map [revert]
+      '(menu-item "Revert to base version" vc-revert
+                 :help "Revert working copies of the selected fileset to their repository contents."))
+    (define-key map [next-action]
+      ;; FIXME: This really really really needs a better name!
+      ;; And a key binding too.
+      '(menu-item "Check In/Out" vc-next-action
+                 :help "Do the next logical version control operation on the current fileset"))
+    (define-key map [register]
+      '(menu-item "Register" vc-status-register
+                 :help "Register file set into the version control system"))
     map)
   "Menu for VC status")
 
@@ -2999,6 +3004,9 @@ specific headers."
         (ewoc-create #'vc-status-printer
                      (vc-status-headers backend default-directory)))
     (add-hook 'after-save-hook 'vc-status-mark-buffer-changed)
+    ;; Make sure that if the VC status buffer is killed, the update
+    ;; process running in the background is also killed.
+    (add-hook 'kill-buffer-query-functions 'vc-status-kill-query nil t)
     (vc-status-refresh)))
 
 (put 'vc-status-mode 'mode-class 'special)
@@ -3128,6 +3136,14 @@ Throw an error if another update process is in progress."
       (setq vc-status-process-buffer nil)
       (setq mode-line-process nil))))
 
+(defun vc-status-kill-query ()
+  ;; Make sure that when the VC status buffer is killed the update
+  ;; process running in background is also killed.
+  (when (vc-status-busy)
+    (when (y-or-n-p "Status update process running, really kill status buffer?")
+      (vc-status-kill-dir-status-process)
+      t)))
+
 (defun vc-status-next-line (arg)
   "Go to the next line.
 If a prefix argument is given, move by that many lines."
@@ -3266,6 +3282,13 @@ that share the same state."
   (mapc 'vc-register (or (vc-status-marked-files)
                          (list (vc-status-current-file)))))
 
+(defun vc-status-show-fileentry (file)
+  "Insert an entry for a specific file into the current VC status listing.
+This is typically used if the file is up-to-date (or has been added
+outside of VC) and one wants to do some operation on it."
+  (interactive "fShow file: ")
+  (vc-status-update (list (list (file-relative-name file) (vc-state file))) (current-buffer)))
+
 (defun vc-status-find-file ()
   "Find the file on the current line."
   (interactive)