ELisp function to org-todo current clocked task and keep current buffer still

Image that I have a clocked task and I want clock-out it and set the heading to done the same time.Most importantly,I don't want to change my focus on my current buffer,I tried to write a function

(defun ql/done-current-clocked-task ()
  (interactive)
  (with-current-buffer
      (if (funcall 'org-clocking-p)
	  (progn
	    (org-clock-goto)
	    (org-todo 'done))
	(message "No active clock!"))
    )
  )

But it failed to retutn to my original buffer but stop at the org file's buffer.I have no ideas.