[PATCH] Re: pcl-cvs patch

SUPERSEDES As a first-time patcher I hope it's acceptable with my newbieness behaviour. I probably shouldn't cross-post a patch (but only to patches) but since I should do a follow-up to my previous incorrect posting, I guess this is the less confussing. Next time I hope I am able to just send *one* patch to patches＠ and I will try to use patcher then. An entry for the ChangeLog: 2002-01-22 Jarl Friis <jarl(a)diku.dk&gt; * 20 (pcl-cvs.el): using default parameters for cvs-commands not listed in ~/.cvsrc pcl-cvs Patch (cvs -q diff -u pcl-cvs.el): Index: pcl-cvs.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/pcl-cvs/pcl-cvs.el,v retrieving revision 2.39 diff -u -u -r2.39 pcl-cvs.el --- pcl-cvs.el 2001/12/21 06:25:16 2.39 +++ pcl-cvs.el 2002/01/22 12:20:01 ＠＠ -118,10 +118,18 ＠＠ (dolist (cmd '("cvs" "checkout" "status" "log" "diff" "tag" "add" "commit" "remove" "update")) (let* ((sym (intern (concat "cvs-" cmd "-flags"))) - (val (when (string-match (concat "^" cmd "\\s-\\(.*\\)$") cvsrc) - (cvs-string->strings (match-string 1 cvsrc))))) - (cvs-flags-set sym 0 val))) - ;; ensure that cvs doesn't have -q or -Q + (params (when (string-match (concat "^" cmd "\\(\\s-+\\(.*\\)\\)?$") cvsrc) + (cvs-string->strings (or (match-string 2 cvsrc) "")) + ))) + (if params + (cvs-flags-set sym 0 (if (equal params '("")) nil params )) + ;;FIXME: Otherwise set the flags to the original pcl-cvs + ;;default params here in the else part. /jarl + ) + )) + ;; Ensure that cvs doesn't have -q or -Q and ensure to have the -f + ;; FIXME: several invokes of `cvs-reread-cvsrc' will have many + ;; "-f" options, this doesn't hurt but it's not beautiful. /jarl (cvs-flags-set 'cvs-cvs-flags 0 (cons "-f" (cdr (cvs-partition