   (dolist (uf unopened-files)
     (kill-buffer (get-file-buffer-1 uf)))
   (setq unopened-files nil)
-  candidates-not-to-change)
+  candidates-not-to-change)  
  
 
 (defun apply-composite-refac(callback-module-name) 
   "Apply a composite refactoring defined by behaviour gen_composite_refac"
   (interactive (list (read-string "Refactoring Callback module name: ")))
-  (setq composite_refac 'true)
   (let* ((buffer (current-buffer))
         (current-file-name (buffer-file-name))
         (line-no (current-line-no))

(setq ediff-ignore-similar-regions t)
(setq refactor-mode nil)
(setq has-warning 'false)
(setq composite_refac 'false)

(defun wrangler-ediff(file1 file2)
  "run ediff on file1 ans file2"

	    (kill-buffer (get-file-buffer-1 uf)))
	  (setq unopened-files nil)
	  (setq refactor-mode nil)
	  (message "Refactoring aborted."))))))
  
  
      
(defun commit-or-abort()
  "commit or abort the refactoring result."
  (if (y-or-n-p "Do you want to perform the changes?")
      (commit)
     (erl-spawn
      (erl-send-rpc wrangler-erl-node 'wrangler_preview_server 'abort (list))
      (erl-receive ()
	  ((['rex ['badrpc rsn]]
	    (setq refactor-mode nil)
