branch: elpa/org-journal
commit ea5b6b535a357de814c2c19894499dd8b7fb13a9
Author: JenChieh <jcs090...@gmail.com>
Commit: JenChieh <jcs090...@gmail.com>
fix: compile warnings
---
org-journal.el | 16 ++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/org-journal.el b/org-journal.el
index d274fb3202..a486bc00ca 100644
--- a/org-journal.el
+++ b/org-journal.el
@@ -103,6 +103,10 @@
;; Silent byte-compiler
(defvar view-exit-action)
(declare-function org-collect-keywords "org")
+(defvar age-armor)
+(defvar age-file-encrypt-to)
+(declare-function age-make-context "ext:age.el")
+(declare-function age-select-keys "ext:age.el")
(when (version< org-version "9.2")
(defalias 'org-set-tags-to 'org-set-tags))
@@ -764,7 +768,7 @@ This allows the use of `org-journal-tag-alist' and
and return (equal entry date))) ;; If an entry exists
don't create a header
- (when (looking-back "[^\t ]" (point-at-bol))
+ (when (looking-back "[^\t ]" (line-beginning-position))
(insert "\n"))
(insert entry-header)
@@ -965,8 +969,8 @@ to process the carryover entries in `prev-buffer'."
(save-excursion
(while (re-search-forward
"<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\( [a-z]+\\)?\\)>" nil t)
(unless (save-excursion
- (goto-char (point-at-bol))
- (re-search-forward "\\<\\(SCHEDULED\\|DEADLINE\\):"
(point-at-eol) t))
+ (goto-char (line-beginning-position))
+ (re-search-forward "\\<\\(SCHEDULED\\|DEADLINE\\):"
(line-end-position) t))
(replace-match
(format-time-string "%Y-%m-%d %a"
(org-journal--calendar-date->time
@@ -1048,7 +1052,7 @@ previous day's file to the current file."
end (save-excursion (outline-next-heading) (point))
text (buffer-substring-no-properties start end))
(push (cons start (cons end text)) carryover-item-with-parents)))
- (setq start (point-at-bol)
+ (setq start (line-beginning-position)
end (progn (outline-end-of-subtree) (outline-next-heading) (point))
text (buffer-substring-no-properties start end))
(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."
(let (org-journal-carryover-items)
(org-save-outline-visibility t
(org-journal-new-entry t time)
- (when (looking-back "[^\t ]"
(point-at-bol) t)
+ (when (looking-back "[^\t ]"
(line-beginning-position) t)
(insert "\n"))
(org-yank))))))
@@ -1354,7 +1358,7 @@ If NO-SELECT is non-nil, open it, but don't show it."
(when (file-exists-p org-journal--cache-file)
(with-temp-buffer
(insert-file-contents org-journal--cache-file)
- (setq org-journal--dates (read (buffer-substring (point-at-bol)
(point-at-eol))))))))
+ (setq org-journal--dates (read (buffer-substring
(line-beginning-position) (line-end-position))))))))
(org-journal--sort-dates))
(defun org-journal--sort-dates ()
