 ;;      (setq monitored 'true)
 ;;       (setq dirs (cdr dirs))
 ;;       ))
-;;   (if monitored 
+;;   (if monitored
 ;;       (car dirs)
 ;;     nil))
 

        (buffer (current-buffer)))
    (if (buffers-saved)
        (hare-refactor-lift-one-1 current-file-name line-no column-no hare-search-paths 'emacs tab-width)
        ;; (message "hare-refactor-lift-one-1 %s %d %d %s" current-file-name line-no column-no hare-search-paths)
      (message "Refactoring aborted."))))



;;   :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)

