# HG changeset patch # User Dan Nicolaescu # Date 1199863268 0 # Node ID caf9a76fd5a31b5bdaf493b99f0976d57e86af5e # Parent ae3fe9150b365601d139ab4f45f6d2eeafa79786 (vc-deduce-fileset): Return the currently selected file if no files are selected when using vc-status. diff -r ae3fe9150b36 -r caf9a76fd5a3 lisp/ChangeLog --- a/lisp/ChangeLog Wed Jan 09 06:16:07 2008 +0000 +++ b/lisp/ChangeLog Wed Jan 09 07:21:08 2008 +0000 @@ -1,19 +1,24 @@ +2008-01-09 Dan Nicolaescu + + * vc.el (vc-deduce-fileset): Return the currently selected file if + no files are selected when using vc-status. + 2008-01-09 Michael Kifer * ediff*.el: commented out declare-function. "make bootstrap" stops with an error and emacs does not compile with those things in. Besides, declare-function is not defined in XEmacs. - + * ediff-util (eqiff-quit): autoraise minibuffer. - + * ediff-diff (ediff-convert-fine-diffs-to-overlays): make it a defin - + * viper*.el: commented out declare-function -- not defined in XEmacs. - + * viper-ex.el (viper-info-on-file): take care of indiret buffers. - + * viper.el (viper-set-hooks, set-cursor-color): set viper-vi-state-cursor-color. - + 2008-01-09 Tom Tromey * vc.el (vc-status-headers): Rename from diff -r ae3fe9150b36 -r caf9a76fd5a3 lisp/vc.el --- a/lisp/vc.el Wed Jan 09 06:16:07 2008 +0000 +++ b/lisp/vc.el Wed Jan 09 07:21:08 2008 +0000 @@ -1276,9 +1276,12 @@ (unless (eq (vc-backend f) firstbackend) (error "All members of a fileset must be under the same version-control system.")))) marked)) - ((eq major-mode 'vc-status-mode) - (vc-status-marked-files)) - ((vc-backend buffer-file-name) + ((eq major-mode 'vc-status-mode) + (let ((marked (vc-status-marked-files))) + (if marked + marked + (list (vc-status-current-file))))) + ((vc-backend buffer-file-name) (list buffer-file-name)) ((and vc-parent-buffer (or (buffer-file-name vc-parent-buffer) (with-current-buffer vc-parent-buffer