emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/denote 8a35382067 126/355: Rename internal variable for


From: ELPA Syncer
Subject: [elpa] externals/denote 8a35382067 126/355: Rename internal variable for clarity
Date: Sun, 26 Jun 2022 23:58:12 -0400 (EDT)

branch: externals/denote
commit 8a353820670f4cb16290f15785448e83021093bf
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Rename internal variable for clarity
---
 denote-dired.el | 2 +-
 denote-link.el  | 2 +-
 denote.el       | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/denote-dired.el b/denote-dired.el
index fa104d5547..8559510e39 100644
--- a/denote-dired.el
+++ b/denote-dired.el
@@ -152,7 +152,7 @@ renaming attachments that the user adds to their notes."
   :group 'denote-dired)
 
 (defconst denote-dired-font-lock-keywords
-  `((,denote--keyword-regexp
+  `((,denote--file-regexp
      (1 'denote-dired-dired-field-date)
      (2 'denote-dired-dired-field-time)
      (3 'denote-dired-dired-field-delimiter)
diff --git a/denote-link.el b/denote-link.el
index 85f8d13fa1..2d3d95fc69 100644
--- a/denote-link.el
+++ b/denote-link.el
@@ -193,7 +193,7 @@ PROOF-OF-CONCEPT."
        (point)))
     (save-excursion
       (goto-char (point-min))
-      (while (re-search-forward (format "%s" denote--keyword-regexp) 
(point-max) t)
+      (while (re-search-forward (format "%s" denote--file-regexp) (point-max) 
t)
         (make-button (match-beginning 0) (match-end 0) :type 
'denote-link-find-file)))
     (denote-dired-mode 1)))
 
diff --git a/denote.el b/denote.el
index 19c8fe33ff..a5d5822bd0 100644
--- a/denote.el
+++ b/denote.el
@@ -169,7 +169,7 @@ is suspended: we use whatever the user wants."
   (concat denote--id-regexp "\\(--\\)\\(.*\\)\\(__\\)")
   "Regular expression to match file names from `denote'.")
 
-(defconst denote--keyword-regexp
+(defconst denote--file-regexp
   (concat denote--file-title-regexp "\\([0-9A-Za-z_-]*\\)\\(\\.?.*\\)")
   "Regular expression to match `denote-keywords'.")
 
@@ -268,7 +268,7 @@ With optional N, search in the Nth line from point."
   "Produce list of keywords in `denote--directory-files'."
   (delq nil (mapcar
              (lambda (x)
-               (denote--extract denote--keyword-regexp x 6))
+               (denote--extract denote--file-regexp x 6))
              (denote--directory-files))))
 
 (defun denote--inferred-keywords ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]