From: zappo <zappo@users.sourceforge.net>
Date: Sun, 24 Feb 2008 18:24:42 +0000 (+0000)
Subject: (cit-src-dir): New var.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=413871b739910b39da9fc6b3a5c046c974344aaf;p=emacs.git

(cit-src-dir): New var.
---

diff --git a/test/manual/cedet/cit-load.el b/test/manual/cedet/cit-load.el
index 9ca2044153c..d17e4905631 100644
--- 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)