   (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)

  (let (composite-refac-p name msg result)
  (setq composite-refac-p (equal editor 'composite_emacs))

  (ghc-read-lisp
   (lambda ()
     (message "Initializing...")
     (call-process ghc-hare-command nil (get-buffer-create "*HaRe*") nil "liftOneLevel" current-file-name
                   (number-to-string line-no) (number-to-string column-no))
     (message "Initializing...done"))
   )))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


        (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)
