forked from mirrors/org-mode
lisp/org-agenda.el: Small refactoring and docstring enhancement
* lisp/org-agenda.el (org-agenda-priority): Small refactoring and docstring enhancement. Link: https://orgmode.org/list/87o8j3360f.fsf@kyleam.com/
This commit is contained in:
parent
4394eaf0e2
commit
e080eb759a
|
@ -9570,18 +9570,20 @@ current line."
|
||||||
|
|
||||||
(defun org-agenda-priority (&optional force-direction)
|
(defun org-agenda-priority (&optional force-direction)
|
||||||
"Set the priority of line at point, also in Org file.
|
"Set the priority of line at point, also in Org file.
|
||||||
This changes the line at point, all other lines in the agenda referring to
|
This changes the line at point, all other lines in the agenda
|
||||||
the same tree node, and the headline of the tree node in the Org file.
|
referring to the same tree node, and the headline of the tree
|
||||||
Called with a universal prefix arg, show the priority instead of setting it."
|
node in the Org file.
|
||||||
|
|
||||||
|
Called with one universal prefix arg, show the priority instead
|
||||||
|
of setting it.
|
||||||
|
|
||||||
|
When called programmatically, FORCE-DIRECTION can be `set', `up',
|
||||||
|
`down', or a character."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(if (equal force-direction '(4))
|
|
||||||
(org-priority-show)
|
|
||||||
(unless org-priority-enable-commands
|
(unless org-priority-enable-commands
|
||||||
(user-error "Priority commands are disabled"))
|
(user-error "Priority commands are disabled"))
|
||||||
(org-agenda-check-no-diary)
|
(org-agenda-check-no-diary)
|
||||||
(let* ((col (current-column))
|
(let* ((col (current-column))
|
||||||
;; (marker (or (org-get-at-bol 'org-marker)
|
|
||||||
;; (org-agenda-error)))
|
|
||||||
(hdmarker (org-get-at-bol 'org-hd-marker))
|
(hdmarker (org-get-at-bol 'org-hd-marker))
|
||||||
(buffer (marker-buffer hdmarker))
|
(buffer (marker-buffer hdmarker))
|
||||||
(pos (marker-position hdmarker))
|
(pos (marker-position hdmarker))
|
||||||
|
@ -9596,7 +9598,7 @@ Called with a universal prefix arg, show the priority instead of setting it."
|
||||||
(end-of-line 1)
|
(end-of-line 1)
|
||||||
(setq newhead (org-get-heading)))
|
(setq newhead (org-get-heading)))
|
||||||
(org-agenda-change-all-lines newhead hdmarker)
|
(org-agenda-change-all-lines newhead hdmarker)
|
||||||
(org-move-to-column col)))))
|
(org-move-to-column col))))
|
||||||
|
|
||||||
;; FIXME: should fix the tags property of the agenda line.
|
;; FIXME: should fix the tags property of the agenda line.
|
||||||
(defun org-agenda-set-tags (&optional tag onoff)
|
(defun org-agenda-set-tags (&optional tag onoff)
|
||||||
|
|
Loading…
Reference in New Issue