sqrtminusone/org-journal-tags
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/org-journal-tags.git synced 2025-12-10 10:53:04 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: byte-compile

Browse source
This commit is contained in:
Pavel Korytov 2022-04-06 18:04:20 +03:00
parent d0f5a648e1
commit fe68347a53
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
org-journal-tags.el
View file

@ -267,8 +267,8 @@ the string."
(make-string pad-length (or padding ?\s)))))))
;; XXX Compatibility with Emacs 27, copied from `cl--alist-to-plist'
(defun org-journal-tags--alist-to-plist ()
"Convert alist to plist."
(defun org-journal-tags--alist-to-plist (alist)
"Convert ALIST to plist."
(let ((res '()))
(dolist (x alist)
(push (car x) res)
@ -531,9 +531,11 @@ second case, it's the current paragraph and ref-number of next
paragraphs."
(org-element-map (org-element-parse-buffer) 'link
(lambda (link)
(when-let* ((_ (string= (org-element-property :type link) "org-journal"))
;; XXX byte-compiler doesn't like when variables in `when-let*'
;; are prefixed with `_'.
(when-let* ((ignore-1 (string= (org-element-property :type link) "org-journal"))
(tag (org-journal-tags--links-get-tag link))
(_ (org-journal-tags--valid-tag-p tag))
(ignore-2 (org-journal-tags--valid-tag-p tag))
(region (org-journal-tags--links-inline-get-region link))
(elem (org-element-property :parent link))
(ref (org-journal-tags--links-extract-one elem region)))