 			         (with-current-buffer buffer (revert-buffer nil t t)))
 		       nil)))))
             (message "Refactoring succeeded!"))))))
+
+(defun erl-refactor-rename-process(node)
+  "Rename a registered process."
+  (interactive (list (erl-target-node)))
+  (message "Sorry, this refactoring is still under developemt.")
+  )
+
 
 (defun erl-refactor-register-pid(node name start end)
   "Introduce a new function to represent an user-selected expression/expression sequence."

    (setq line2 (elt reg 2))
    (setq col2  (elt  reg 3))
    (highlight-region line1 (- col1 1) line2  col2 buffer)
    (if (equal (read-char-exclusive) '13)
	(setq regions (cdr regions))
      (setq regions nil))
    )
  (delete-overlay highlight-region-overlay)
  )


            (message "Refactoring succeeded!")))))))


(defun erl-refactor-duplicated-code-in-buffer(node mintokens minclones)
  "Find code clones in the current buffer."
  (interactive (list (erl-target-node)
		     (read-string "Minimum number of tokens a code clone should have: ")
