 		   (if buffer (with-current-buffer buffer (revert-buffer nil t t))
 		     ;;(message-box (format "modified unopened file: %s" f))))))
 		     nil))))
-	       (message "Refactoring succeeded!")))))))
+	       (message "Refactoring succeeded!")))))))))
 
 (defun create-new-file-p (filename erlang-refac-search-paths)
   (if (equal (locate-file (concat filename ".erl") erlang-refac-search-paths) nil)

	(line-no           (current-line-no))
        (column-no         (current-column-no))
	(buffer (current-buffer)))
    (erl-spawn
      (erl-send-rpc node 'wrangler_distel 'rename_var (list current-file-name line-no column-no name erlang-refac-search-paths))
      (erl-receive (buffer)
	  ((['rex ['badrpc rsn]]
	    (message "Refactoring failed: %S" rsn))
	   (['rex ['error rsn]]
	    (message "Refactoring failed: %s" rsn))
	   (['rex ['ok refac-rename]]
	    (with-current-buffer buffer (revert-buffer nil t t))
            (message "Refactoring succeeded!")))))))

(defun erl-refactor-rename-fun (node name)
  "Rename an identified function name."

		  (message "Refactoring aborted!")))		 
	   (['rex ['ok refac-generalisation]]
	    (with-current-buffer buffer (revert-buffer nil t t))
            (message "Refactoring succeeded!")))))))))


(defun erl-refactor-fun-extraction(node name start end)
