1. xemacs
  2. pcl-cvs

Commits

sperber-guest  committed 5512097

2009-11-09 Mike Sperber <mike@xemacs.org>

* pcl-cvs.el (vc-do-command): Correctly handle `t' buffer argument
to `vc-do-command'.

  • Participants
  • Parent commits c4378aa
  • Branches default

Comments (0)

Files changed (2)

File ChangeLog

View file
+2009-11-09  Mike Sperber  <mike@xemacs.org>
+
+	* pcl-cvs.el (vc-do-command): Correctly handle `t' buffer argument
+	to `vc-do-command'.
+
 2007-10-30  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.68 released.

File pcl-cvs.el

View file
   (cvs-vc-command-advice "*vc-info*" (ad-get-arg 1) (ad-get-arg 3)))
 
 (defadvice vc-do-command (after pcl-cvs-vc activate)
-  (cvs-vc-command-advice (or (ad-get-arg 0) "*vc*")
+  (cvs-vc-command-advice (let ((buf (ad-get-arg 0)))
+			   (cond
+			    ((null buf) "*vc*")
+			    ((eq buf t) (current-buffer))
+			    (t buf)))
 			 (ad-get-arg 2) (ad-get-arg 5)))
 
 (defun cvs-vc-command-advice (buffer command cvscmd)