From fe68347a536b730a246b08fc8da68bc765ca6c25 Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Wed, 6 Apr 2022 18:04:20 +0300 Subject: [PATCH] fix: byte-compile --- org-journal-tags.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/org-journal-tags.el b/org-journal-tags.el index a42f810..b2ac42b 100644 --- a/org-journal-tags.el +++ b/org-journal-tags.el @@ -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)))