 	   (['rex ['ok candidates logmsg]]
 	    (with-current-buffer buffer
 	      (setq candidates-to-fold (get-candidates-to-merge candidates buffer))
-	      (if (equal candidates-to-fold nil)
+              (if (equal candidates-to-fold nil)
 		  (message "Refactoring finished, and nothing has been changed.")
 		(erl-spawn
 		  (erl-send-rpc wrangler-erl-node 'wrangler_refacs 'merge_forall_1 (list 

                                    (?n n "Answer n not to change this candidate;")
                                    (?Y Y "Answer Y to fold all the remaining candidates;")
                                    (?N N "Answer N to fold none of remaining candidates")))))
      (cond ((eq answer 'y)
             (setq candidates (cdr candidates)))
            ((eq answer 'n)
             (setq candidates-not-to-change  (cons new-cand candidates-not-to-change))
             (setq candidates (cdr candidates)))
            ((eq answer 'Y)
             (setq candidates nil))
            ((eq answer 'N)
             (setq candidates-not-to-change  (append candidates candidates-not-to-change))
             (setq candidates nil)))))
  (org-delete-overlay highlight-region-overlay)

		      (if (equal modified nil)
			  (message "Refactoring finished, and no file has been changed.")
			(preview-commit-cancel current-file-name modified nil))
		      (with-current-buffer (get-file-buffer-1 current-file-name)
			(goto-line line-no)
			(goto-column column-no))))
		   )))
