tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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:
Bastien Guerry 2021-05-01 12:41:46 +02:00
parent 4394eaf0e2
commit e080eb759a
1 changed files with 28 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/org-agenda.el
View File

@ -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)