                          search-paths editor tab-width)
   )
 
-(defun hare-refactor-lift-one-1-orig (current-file-name line-no column-no search-paths editor tab-width)
-  "Lift a definition one level."
-  (let (composite-refac-p name msg result)
-  (setq composite-refac-p (equal editor 'composite_emacs))
-
-  (let ((res
-        (ghc-read-lisp
-         (lambda ()
-           (message "Running...")
-           (apply 'call-process ghc-hare-command nil t nil
-                         `("liftOneLevel" ,current-file-name
-                         ,(number-to-string line-no) ,(number-to-string column-no)))
-           (message "Running...done"))
-         )))
-    (with-current-buffer (get-buffer-create "*HaRe*") (insert (prin1-to-string res)))
-    (message "Res=%s" res)
-    (process-result current-file-name res line-no column-no composite-refac-p)
-   )
-  ))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defun hare-refactor-command (params search-paths editor tab-width)
-  "Lift a definition one level."
+  "Send a refactoring command to the ghc-hare executable and process the reply"
   (let (composite-refac-p name msg result)
   (setq composite-refac-p (equal editor 'composite_emacs))
 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun hare-refactor-lift-one ()
  "Lift a definition one level."
  (interactive)

           (message "Running...")
           (apply 'call-process ghc-hare-command nil t nil
                         params)
           (message "Running...done"))
         )))
    (with-current-buffer (get-buffer-create "*HaRe*") (insert (format "%s\n"  (prin1-to-string res))))
    (message "Res=%s" res)
    (process-result current-file-name res line-no column-no composite-refac-p)
   )
