xsteve@tigris.org writes:
> Author: xsteve
> Date: Fri May 21 14:07:35 2004
> New Revision: 9821
xsteve, can you use 'svn propedit --revprop -r9821 svn:log' to
reformat this log message similarly to how I reformatted r9819?
Thanks,
-Karl
> Modified:
>    trunk/contrib/client-side/psvn/psvn.el
> Log:
> * New functions:
>   svn-status-get-file-list
>   svn-status-get-file-list-names
> * svn-status-add-file now takes an optional prefix arg
>   - when it gets a prefix argument use th actual file, otherwise the marked files
> 
> Modified: trunk/contrib/client-side/psvn/psvn.el
> ==============================================================================
> --- trunk/contrib/client-side/psvn/psvn.el	(original)
> +++ trunk/contrib/client-side/psvn/psvn.el	Fri May 21 14:07:35 2004
> @@ -1073,6 +1073,15 @@
>      (when overlay
>        (overlay-get overlay 'svn-info))))
>  
> +(defun svn-status-get-file-list (use-marked-files)
> +  "Get either the marked files or the files, where the cursor is on"
> +  (if use-marked-files
> +      (svn-status-marked-files)
> +    (list (svn-status-get-line-information))))
> +
> +(defun svn-status-get-file-list-names (use-marked-files)
> +  (mapcar 'svn-status-line-info->filename (svn-status-get-file-list use-marked-files)))
> +
>  (defun svn-status-select-line ()
>    (interactive)
>    (let ((info (svn-status-get-line-information)))
> @@ -1374,12 +1383,13 @@
>    (interactive)
>    (svn-status-show-process-buffer-internal))
>  
> -(defun svn-status-add-file ()
> +(defun svn-status-add-file (arg)
>    "Run `svn add' on all selected files.
> -See `svn-status-marked-files' for what counts as selected."
> -  (interactive)
> -  (message "adding: %S" (svn-status-marked-file-names))
> -  (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
> +See `svn-status-marked-files' for what counts as selected.
> +When this function is called with a prefix argument, use the actual file instead."
> +  (interactive "P")
> +  (message "adding: %S" (svn-status-get-file-list-names (not arg)))
> +  (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-get-file-list (not arg)) "")
>    (svn-run-svn t t 'add "add" "--targets" svn-status-temp-arg-file))
>  
>  (defun svn-status-make-directory (dir)
> 
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: svn-unsubscribe@subversion.tigris.org
> For additional commands, e-mail: svn-help@subversion.tigris.org
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org
Received on Mon May 24 18:05:14 2004