 ;;       (car dirs)
 ;;     nil))
 
-(defun log-search-result(curfilename logmsg)
-  (let ((dir (is-a-monitored-file curfilename)))
-    (if (equal nil dir)
-        nil
-      (cond
-       ((equal version-control-system 'ClearCase)
-        (add-logmsg-to-logfile-clearcase logmsg))
-       ((or (equal version-control-system 'Git)
-            (equal version-control-system 'SVN))
-        (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)
-  (run-hook-with-args 'after-commit-functions refactor-log-file logmsg)
-)
+;; (defun log-search-result(curfilename logmsg)
+;;   (let ((dir (is-a-monitored-file curfilename)))
+;;     (if (equal nil dir)
+;;         nil
+;;       (cond
+;;        ((equal version-control-system 'ClearCase)
+;;         (add-logmsg-to-logfile-clearcase logmsg))
+;;        ((or (equal version-control-system 'Git)
+;;             (equal version-control-system 'SVN))
+;;         (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)
+;;   (run-hook-with-args 'after-commit-functions refactor-log-file logmsg)
+;; )
 
 (defun prepare-to-commit()
   ";make sure the files are writeable when cleaecase is used as the repository."


(defun commit()
  "commit the refactoring result."
  (if (equal version-control-system 'ClearCase)
      (prepare-to-commit)
    nil
    )
  (do-commit)
  )


(defun hare-menu-init()
  "Init HaRe menus."
  (interactive)
  ;; (define-key erlang-mode-map "\C-c\C-w_"  'hare-refactor-undo)
  ;; (define-key erlang-mode-map "\C-c\C-wb" 'erl-wrangler-code-inspector-var-instances)
  ;; (define-key erlang-mode-map "\C-c\C-we" 'remove-highlights)
  ;; (define-key erlang-mode-map "\C-c\C-wrv" 'erl-refactor-rename-var)
