[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote 6605e08c17 1/3: Add "no backlink" user-error 'de
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote 6605e08c17 1/3: Add "no backlink" user-error 'denote-link-find-backlink' |
Date: |
Fri, 28 Oct 2022 12:57:31 -0400 (EDT) |
branch: externals/denote
commit 6605e08c1775ccccf979887b17c6ad41d4cc78f9
Author: Noboru Ota <me@nobiot.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Add "no backlink" user-error 'denote-link-find-backlink'
'denote-link-find-backlink' emits a user-error when no backlink is found
for the note. The same should be done for 'denote-link-find-backlink'.
---
denote.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/denote.el b/denote.el
index 2b0f7875f2..53ac5f955e 100644
--- a/denote.el
+++ b/denote.el
@@ -2451,14 +2451,15 @@ whitespace-only), insert an ID-ONLY link."
Like `denote-link-find-file', but select backlink to follow."
(interactive)
- (when-let* ((file (buffer-file-name))
+ (if-let* ((file (buffer-file-name))
(id (denote-retrieve-filename-identifier file))
(files (denote--retrieve-files-in-xrefs
(denote--retrieve-process-grep id))))
- (find-file
- (denote-get-path-by-id
- (denote-extract-id-from-string
- (denote-link--find-file-prompt files))))))
+ (find-file
+ (denote-get-path-by-id
+ (denote-extract-id-from-string
+ (denote-link--find-file-prompt files))))
+ (user-error "No links found in the current buffer")))
;;;###autoload
(defun denote-link-after-creating (&optional id-only)