From b94420aa959912a8b87916e7fa67e856487560a1 Mon Sep 17 00:00:00 2001 From: bth Date: Sat, 17 Aug 2024 10:00:25 -0700 Subject: [PATCH] fix compile warnings --- elisp/um.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/elisp/um.el b/elisp/um.el index eaa9794..c74fdbd 100644 --- a/elisp/um.el +++ b/elisp/um.el @@ -39,9 +39,8 @@ (require 'project) -;; Primary path glob for the journal. This allows various mountpoints. - -(setq um-journal-path-glob ".*/writing/journal") +(defvar um-journal-path-glob ".*/writing/journal" + "Primary path glob for the journal. This allows various mountpoints.") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; journal header @@ -205,6 +204,7 @@ NOTE: this searches in the current project root only. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; shell integration +;;;###autoload (defun um-next (next-file &optional tag skip-header) "Takes the next-file generated by the shell script and opens it. @@ -215,9 +215,9 @@ And the option not to insert the um-journal-header. (unless skip-header (um-journal-header) (if tag - (progn (previous-line) + (progn (forward-line -1) (insert (format "+ %s\n" tag)) - (next-line)))) + (forward-line)))) (message (format "creating %s" next-file)) )