   (let ((dir (is-a-monitored-file curfilename)))
     (if (equal nil dir)
         nil
-      (cond 
+      (cond
        ((equal version-control-system 'ClearCase)
         (add-logmsg-to-logfile-clearcase logmsg))
        ((or (equal version-control-system 'Git)

;;   :group 'wrangler)


;; (defcustom refac-monitor-repository-path ""     
;;   "*FOR CASESTUDY WITH Git/SVN ONLY.* Path to the Wrangler monitor reposiotry"
;;   :type 'directory
;;   :group 'wrangler)

;; (defcustom log-source-code nil
;;   "*FOR CASESTUDY USE ONLY* 'off' means to log the refactoring commands; 'on' means
;;   to log both refactoring commands and source code."      
;;   :type 'boolean
;;   :group 'wrangler)


        (write-to-refac-logfile dir logmsg "Clone Detection"))
       (t nil)
       ))))

(defun add-logmsg-to-logfile-clearcase(logmsg)
  "Add logmsg to the refactor log file which is stored in a clearase repository." 
  (run-hook-with-args 'before-commit-functions (list refactor-log-file) nil)
