Fix bug in Code Notes system
This commit is contained in:
parent
422623c3cb
commit
c40d7f4856
1 changed files with 4 additions and 3 deletions
|
|
@ -494,9 +494,10 @@ A code file with an associated notes file is easy to forget about. Let's mark, i
|
||||||
(org-map-entries
|
(org-map-entries
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(when (equal (org-get-property "XREF") orig-file)
|
(when (equal (org-get-property "XREF") orig-file)
|
||||||
(push (cons (org-entry-get nil "XREF_NAME" t)
|
(when-let ((line (org-entry-get nil "XREF_LINE")))
|
||||||
(string-to-number (org-entry-get nil "XREF_LINE")))
|
(push (cons (org-entry-get nil "XREF_NAME" t)
|
||||||
notes)))))
|
(string-to-number line))
|
||||||
|
notes))))))
|
||||||
(dolist (note notes)
|
(dolist (note notes)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(ha-code-notes-location-goto nil (car note) (cdr note))
|
(ha-code-notes-location-goto nil (car note) (cdr note))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue