조직 작업 현재 시계 작업을 위한 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!"))
    )
  )

하지만 원래 버퍼로 돌아가지 못하고 대신 조직 파일의 버퍼에서 중지됩니다. 나는 모른다.