Memnon Anon <gegendosenflei...@googlemail.com> writes:

> ,----[ org-agenda.el ]
> | (defun org-agenda-clock-out (&optional arg)
> |   "Stop the currently running clock."
> |   (interactive "P")
> |   (unless (marker-buffer org-clock-marker)
> |     (error "No running clock"))
> |   (let ((marker (make-marker)) newhead)
> |     (org-with-remote-undo (marker-buffer org-clock-marker)
> |       (with-current-buffer (marker-buffer org-clock-marker)
> |     (save-excursion
> |       (save-restriction
> |         (widen)
> |         (goto-char org-clock-marker)
> |         (org-back-to-heading t)
> |         (move-marker marker (point))
> |         (org-clock-out)
> |         (setq newhead (org-get-heading))))))
> |     (org-agenda-change-all-lines newhead marker)
> |     (move-marker marker nil)))
> `----
>
> It takes an (optional) arg, but is it used anywhere?!

Nope...

> If there is no arg interpreted anywhere, why is it there?

Looks like a mistake - I committed a fix to remove this arg.

-- 
 Bastien

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Reply via email to