組織作業現在の時計操作のELisp機能と現在のバッファを変更せずに維持

画像の時間を設定し、同時に完了するようにタイトルを設定したい時間制限操作があります。さらに、現在のバッファのフォーカスを変更したくないので、関数を書いてみました。

(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!"))
    )
  )

しかし、元のバッファに戻らず、代わりに組織ファイルのバッファで停止します。わかりません。