 					  (?n n "Answer n not to unfold this variable occurrence;")
 					  (?Y Y "Answer Y to unfold all the remaining occurrences of the variable selected;")
 					  (?N N "Answer N to unfold none of remaining occurrences of the variable selected")))))
-	    (cond ((eq answer 'y)
+	    (cond ((equal answer 'y)
 		   (setq candidates-to-unfold  (cons new-cand candidates-to-unfold))
 		   (setq last-position (get-position line2 col2))
 		   (setq candidates (cdr candidates)))
-		  ((eq answer 'n)
+		  ((equal answer 'n)
 		   (setq candidates (cdr candidates)))
-		  ((eq answer 'Y)
+		  ((equal answer 'Y)
 		   (setq candidates-to-unfold  (append candidates candidates-to-unfold))
 		   (setq candidates nil))
-		  ((eq answer 'N)
+		  ((equal answer 'N)
 		   (setq candidates nil)))))
       (setq candidates nil)))
   (org-delete-overlay highlight-region-overlay)

                           start-line-no start-col-no end-line-no end-col-no pars)  
  "apply a composite refactoring"
  (interactive)
  (let* ((par_vals (mapcar 'read-string pars))
         (buffer (current-buffer))
         (args (list callback-module-name 
                     (list current-file-name  (list line-no column-no) (list (list start-line-no start-col-no)
                                                                             (list end-line-no end-col-no))
                           par_vals wrangler-search-paths tab-width))))
    (if (current-buffer-saved buffer)
        (progn
          (erl-spawn
            (erl-send-rpc wrangler-erl-node 'gen_composite_refac 'init_composite_refac args)
            (erl-receive (current-file-name buffer)
                ((['rex ['badrpc rsn]]
                  (message "Refactoring failed: %s" rsn))
                 (['rex ['error rsn]]
                  (message "Refactoring failed: %s" rsn))
                 (['rex ['ok pid]]
                  (apply-refac-cmds current-file-name (list 'ok nil))
                  )))))
      (message "Refactoring aborted."))))

(defun apply-refac-cmds(current-file-name previous_result)
  "apply a sequence of refactoring commands."

		  (message "Partition of exported functions finished."))))))
      (message "Partition of exported functions aborted."))))
   
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The following functions are for monitoring refactoring activities purpose, and ;;
