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

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

[elpa] externals/denote a285d4df6a 23/39: Merge pull request #42 from je


From: ELPA Syncer
Subject: [elpa] externals/denote a285d4df6a 23/39: Merge pull request #42 from jeanphilippegg/refactor-denote-prompts
Date: Mon, 11 Jul 2022 00:57:45 -0400 (EDT)

branch: externals/denote
commit a285d4df6a67c775a0b966d37238324858ed6af8
Merge: 71b56a6b0f b94537cd94
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #42 from jeanphilippegg/refactor-denote-prompts
    
    Remove else part in denote--file-name-relative-to-denote-directory
---
 denote.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/denote.el b/denote.el
index 22f85f3208..feb74baf9f 100644
--- a/denote.el
+++ b/denote.el
@@ -393,11 +393,11 @@ FILE is relative to the variable `denote-directory'."
 (defun denote--file-name-relative-to-denote-directory (file)
   "Return file name of FILE relative to the variable `denote-directory'.
 FILE must be an absolute path."
-  (if-let* ((dir (denote-directory))
-            ((file-name-absolute-p file))
-            ((string-prefix-p dir file)))
-      (substring-no-properties file (length dir))
-    file))
+  (when-let* ((dir (denote-directory))
+              ((file-name-absolute-p file))
+              (file-name (expand-file-name file))
+              ((string-prefix-p dir file-name)))
+    (substring-no-properties file-name (length dir))))
 
 (defun denote--current-file-is-note-p ()
   "Return non-nil if current file likely is a Denote note."



reply via email to

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