mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 05:02:51 +00:00
Skip all drawers when adding a note.
Patch by James TD Smith.
This commit is contained in:
parent
bd8cbef200
commit
8892d9a4bc
|
@ -1,5 +1,8 @@
|
|||
2008-09-20 James TD Smith <ahktenzero@mohorovi.cc>
|
||||
|
||||
* org.el (org-add-log-setup): Skip over drawers (properties,
|
||||
clocks etc) when adding notes.
|
||||
|
||||
* org-agenda.el (org-agenda-get-closed): show durations of clocked
|
||||
items as well as the start and end times.
|
||||
|
||||
|
|
|
@ -9035,7 +9035,7 @@ The auto-repeater uses this.")
|
|||
"Add a note to the current entry.
|
||||
This is done in the same way as adding a state change note."
|
||||
(interactive)
|
||||
(org-add-log-setup 'note nil t nil))
|
||||
(org-add-log-setup 'note nil 'findpos nil))
|
||||
|
||||
(defun org-add-log-setup (&optional purpose state findpos how &optional extra)
|
||||
"Set up the post command hook to take a note.
|
||||
|
@ -9044,9 +9044,14 @@ When FINDPOS is non-nil, find the correct position for the note in
|
|||
the current entry. If not, assume that it can be inserted at point.
|
||||
HOW is an indicator what kind of note should be created.
|
||||
EXTRA is additional text that will be inserted into the notes buffer."
|
||||
(save-restriction
|
||||
(save-excursion
|
||||
(when findpos
|
||||
(org-back-to-heading t)
|
||||
(org-narrow-to-subtree)
|
||||
(while (re-search-forward
|
||||
(concat "\\(" org-drawer-regexp "\\|" org-property-end-re "\\)")
|
||||
(point-max) t) (forward-line))
|
||||
(looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"
|
||||
"\\(\n[^\r\n]*?" org-keyword-time-not-clock-regexp
|
||||
"[^\r\n]*\\)?"))
|
||||
|
@ -9060,7 +9065,7 @@ EXTRA is additional text that will be inserted into the notes buffer."
|
|||
org-log-note-state state
|
||||
org-log-note-how how
|
||||
org-log-note-extra extra)
|
||||
(add-hook 'post-command-hook 'org-add-log-note 'append)))
|
||||
(add-hook 'post-command-hook 'org-add-log-note 'append))))
|
||||
|
||||
(defun org-skip-over-state-notes ()
|
||||
"Skip past the list of State notes in an entry."
|
||||
|
|
Loading…
Reference in a new issue