Commits

Anonymous committed 649fd05

bugfixes

  • Participants
  • Parent commits 40411cb

Comments (0)

Files changed (3)

+1998-06-30  Raymond Toy  <toy@rtp.ericsson.se>
+
+	* vc.el (vc-cleartool-program): Added defvar vc-cleartool-program
+	to hold the pathname of where cleartool is.  Changed all
+	references to "/usr/atria/bin/cleartool" to vc-cleartool-program.
+
 1998-01-24  SL Baur  <steve@altair.xemacs.org>
 
 	* Makefile (VERSION): Update to package standard 1.0.
 
 # NOTE:  This package is incompatible with the regular `vc' package.
 
-VERSION = 1.03
+VERSION = 1.04
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = vc-cc
 (defvar vc-last-comment-match nil)
 (defvar vc-window-config nil)
 
+(defvar vc-cleartool-path
+  "/usr/atria/bin/cleartool"
+  "Path to ClearCase cleartool")
+
 ;; File property caching
 
 (defun vc-clear-context ()
                                         "ATRIA_FORCE_GUI=1")
                                      ;;; emacs is a GUI, right? :-)
                                      process-environment)))
-    (let ((cleartool-process (start-process "cleartool" "*cleartool*" "/usr/atria/bin/cleartool")))
+    (let ((cleartool-process (start-process "cleartool" "*cleartool*" vc-cleartool-path)))
       (process-kill-without-query cleartool-process)
       (setq cleartool-view "")
       (setq cleartool-tq (tq-create cleartool-process))
 	(make-variable-buffer-local 'comint-file-name-prefix)
 	(setq comint-file-name-prefix (format "/view/%s" tag))
 	(setq ad-return-value
-	      (start-process name buffer "/usr/atria/bin/cleartool"
+	      (start-process name buffer vc-cleartool-path
 			     "setview" "-exec"
 
 		     (vc-setview-arglist view-rel (cons command switches))
 	    (setq comint-file-name-prefix (format "/view/%s" tag))
 
 	    (setq ad-return-value
-		  (start-process name buffer "/usr/atria/bin/cleartool"
+		  (start-process name buffer vc-cleartool-path
 				 "setview" "-exec"
 				 (vc-setview-arglist view-rel args)
 				 tag))))))))