(cit-src-dir): New var.

diff --git a/test/manual/cedet/cit-load.el b/test/manual/cedet/cit-load.el
index 9ca2044153c74264cbfe3c0fa723a20737e3f5bb..d17e49056318df86d48d3efa39874f4c6a9cecb9 100644 (file)
--- a/test/manual/cedet/cit-load.el
+++ b/test/manual/cedet/cit-load.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2008 Eric M. Ludlam
 
 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
-;; X-RCS: $Id: cit-load.el,v 1.1 2008-02-24 02:58:38 zappo Exp $
+;; X-RCS: $Id: cit-load.el,v 1.2 2008-02-24 18:24:42 zappo Exp $
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -26,10 +26,12 @@
 
 ;;; Code:
 
-(let ((default-directory
-        (file-name-directory
-         (or load-file-name (buffer-file-name)))))
-  (add-to-list 'load-path default-directory))
+(defvar cit-src-dir
+  (let ((dir (file-name-directory
+             (or load-file-name (buffer-file-name)))))
+    (add-to-list 'load-path dir)
+    dir)
+  "Src dir to CIT testing suite.")
 
 (require 'cedet-integ-test)