Restore vc-next-action functionality of registering files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1636bdba6a39b67cbc63382f6d14012e7ea2a753..aeef4eb1e927e3cdaf43eb9402c509469da51118 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,9 @@
 
        * vc.el (vc-do-command): Condition out a misleading message when
        running asynchronously.
+       (vc-deduce-fileset): New argument enables using an unregistered
+       visited file as a singleton fileset idf nothing else is available.
+       (vc-next-action): Restore file-registering behavior.
 
 2007-10-20  Jay Belanger  <jay.p.belanger@gmail.com>
 

diff --git a/lisp/vc.el b/lisp/vc.el
index 36df6d1f5c31d7bfd38ef6dc6e5b156aaf3072eb..27400bf87f69c11c4626c43ef1e1b98e2cdc3069 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1244,7 +1244,7 @@ Only files already under version control are noticed."
        node (lambda (f) (if (vc-backend f) (push f flattened)))))
     (nreverse flattened)))
 
-(defun vc-deduce-fileset (&optional allow-directory-wildcard)
+(defun vc-deduce-fileset (&optional allow-directory-wildcard allow-unregistered)
   "Deduce a set of files and a backend to which to apply an operation.
 
 If we're in VC-dired mode, the fileset is the list of marked files.
@@ -1252,6 +1252,8 @@ Otherwise, if we're looking at a buffer visiting a version-controlled file,
 the fileset is a singleton containing this file.
 If neither of these things is true, but ALLOW-DIRECTORY-WILDCARD is on
 and we're in a dired buffer, select the current directory.
+If none of these conditions is met, but ALLOW_UNREGISTERED is in and the
+visited file is not registered, return a singletin fileset containing it.
 Otherwise, throw an error."
   (cond (vc-dired-mode
         (let ((marked (dired-map-over-marks (dired-get-filename) nil)))
@@ -1284,6 +1286,8 @@ Otherwise, throw an error."
           (message "All version-controlled files below %s selected."
                    default-directory)
           (list default-directory)))
+       ((and allow-unregistered (not (vc-registered buffer-file-name))) 
+        (list buffer-file-name))
        (t (error "No fileset is available here."))))
 
 (defun vc-ensure-vc-buffer ()
@@ -1369,7 +1373,7 @@ with the logmessage as change commentary.  A writable file is retained.
    If the repository file is changed, you are asked if you want to
 merge in the changes into your working copy."
   (interactive "P")
-  (let* ((files (vc-deduce-fileset))
+  (let* ((files (vc-deduce-fileset nil t))
         (state (vc-state (car files)))
         (model (vc-checkout-model (car files)))
         revision)