Skip to content

Commit ea5b6b5

Browse files
committed
fix: compile warnings
1 parent 35789f9 commit ea5b6b5

File tree

1 file changed

+10
-6
lines changed

1 file changed

+10
-6
lines changed

org-journal.el

Lines changed: 10 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -103,6 +103,10 @@
103103
;; Silent byte-compiler
104104
(defvar view-exit-action)
105105
(declare-function org-collect-keywords "org")
106+
(defvar age-armor)
107+
(defvar age-file-encrypt-to)
108+
(declare-function age-make-context "ext:age.el")
109+
(declare-function age-select-keys "ext:age.el")
106110

107111
(when (version< org-version "9.2")
108112
(defalias 'org-set-tags-to 'org-set-tags))
@@ -764,7 +768,7 @@ This allows the use of `org-journal-tag-alist' and
764768
and return (equal entry date))) ;; If an entry exists don't create a header
765769

766770

767-
(when (looking-back "[^\t ]" (point-at-bol))
771+
(when (looking-back "[^\t ]" (line-beginning-position))
768772
(insert "\n"))
769773
(insert entry-header)
770774

@@ -965,8 +969,8 @@ to process the carryover entries in `prev-buffer'."
965969
(save-excursion
966970
(while (re-search-forward "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\( [a-z]+\\)?\\)>" nil t)
967971
(unless (save-excursion
968-
(goto-char (point-at-bol))
969-
(re-search-forward "\\<\\(SCHEDULED\\|DEADLINE\\):" (point-at-eol) t))
972+
(goto-char (line-beginning-position))
973+
(re-search-forward "\\<\\(SCHEDULED\\|DEADLINE\\):" (line-end-position) t))
970974
(replace-match
971975
(format-time-string "%Y-%m-%d %a"
972976
(org-journal--calendar-date->time
@@ -1048,7 +1052,7 @@ previous day's file to the current file."
10481052
end (save-excursion (outline-next-heading) (point))
10491053
text (buffer-substring-no-properties start end))
10501054
(push (cons start (cons end text)) carryover-item-with-parents)))
1051-
(setq start (point-at-bol)
1055+
(setq start (line-beginning-position)
10521056
end (progn (outline-end-of-subtree) (outline-next-heading) (point))
10531057
text (buffer-substring-no-properties start end))
10541058
(setq carryover-item-with-parents (append carryover-item-with-parents (list (cons start (cons end text)))))))
@@ -1212,7 +1216,7 @@ With non-nil prefix argument create a regular entry instead of a TODO entry."
12121216
(let (org-journal-carryover-items)
12131217
(org-save-outline-visibility t
12141218
(org-journal-new-entry t time)
1215-
(when (looking-back "[^\t ]" (point-at-bol) t)
1219+
(when (looking-back "[^\t ]" (line-beginning-position) t)
12161220
(insert "\n"))
12171221
(org-yank))))))
12181222

@@ -1354,7 +1358,7 @@ If NO-SELECT is non-nil, open it, but don't show it."
13541358
(when (file-exists-p org-journal--cache-file)
13551359
(with-temp-buffer
13561360
(insert-file-contents org-journal--cache-file)
1357-
(setq org-journal--dates (read (buffer-substring (point-at-bol) (point-at-eol))))))))
1361+
(setq org-journal--dates (read (buffer-substring (line-beginning-position) (line-end-position))))))))
13581362
(org-journal--sort-dates))
13591363

13601364
(defun org-journal--sort-dates ()

0 commit comments

Comments
 (0)