[Emacs-diffs] scratch/merge-cedet-tests 413871b 003/316: (cit-src-dir): New var.

[Edward John Steere]

branch: scratch/merge-cedet-tests
commit 413871b739910b39da9fc6b3a5c046c974344aaf
Author: zappo <address@hidden>
Commit: Edward John Steere <address@hidden>

    (cit-src-dir): New var.
---
 test/manual/cedet/cit-load.el |   12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/test/manual/cedet/cit-load.el b/test/manual/cedet/cit-load.el
index 9ca2044..d17e490 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 <address@hidden>
-;; 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)