branch: externals/denote
commit 95cd9f88bf812a21f2f6d3c1974dec6f2078d3fb
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make stylistic tweaks to 39a20a7
This is to make it look consistent consistent with the rest of the
code.
---
denote.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/denote.el b/denote.el
index b335c8fa61..d73fb6f2a7 100644
--- a/denote.el
+++ b/denote.el
@@ -379,10 +379,12 @@ current note."
(make-obsolete 'denote-link-fontify-backlinks 'denote-backlinks-show-context
"1.2.0")
-(defcustom denote-directory-exclusions nil
- "Regular expression that excludes matching directories from
denote-file-prompt.
+(defcustom denote-excluded-directories-regexp nil
+ "Regular expression of directories to exclude from file prompts.
+When nil (the default value) all directory names are shown.
-When nil (the default value) all directory names are allowed."
+File prompts are used by several commands, such as `denote-link'.
+The underlying function is `denote-file-prompt'."
:group 'denote
:package-version '(denote . "1.2.0")
:type 'string)
@@ -558,13 +560,11 @@ and use one of the extensions implied by
`denote-file-type'."
(defun denote-file-directory-p (file)
"Return non-nil if FILE is a directory.
-You can exclude certain directories by customizing the
-`denote-directory-exclusions' regular expresion."
- (and
- (file-directory-p file)
- (if denote-directory-exclusions
- (not (string-match-p denote-directory-exclusions file))
- t)))
+Omit FILE if it matches the value of user option
+`denote-excluded-directories-regexp'."
+ (and (file-directory-p file)
+ denote-excluded-directories-regexp
+ (not (string-match-p denote-excluded-directories-regexp file))))
(defun denote-file-has-supported-extension-p (file)
"Return non-nil if FILE has supported extension.
