branch: externals/denote
commit 667dc1eb9bbc5491786e388059eafc4d6d9461b2
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Remove some needless pcase-let
---
denote.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/denote.el b/denote.el
index afd5d7ec38..2c52976f9e 100644
--- a/denote.el
+++ b/denote.el
@@ -6352,15 +6352,15 @@ This is the subroutine of `denote-link-open-at-point'
and
(defun denote-get-link-identifier-or-query-term-at-point (&optional position)
"Return the Denote identifier or query term at point or optional POSITION."
- (pcase-let* ((data (denote--link-at-point-get-data (or position (point))))
- (`(,target . ,_) (car data)))
+ (let* ((data (denote--link-at-point-get-data (or position (point))))
+ (target (caar data)))
target))
(defun denote--get-link-file-path-at-point ()
"Return target file path of the Denote link at point.
To be used as a `thing-at' provider."
- (pcase-let* ((data (denote--link-at-point-get-data (point)))
- (`(,target . ,_) (car data)))
+ (let* ((data (denote--link-at-point-get-data (point)))
+ (target (caar data)))
(when-let* ((path (denote-get-path-by-id target)))
(concat "file:" path))))
@@ -6850,8 +6850,8 @@ backend."
(defun denote-link-ol-help-echo (_window _object position)
"Echo the full file path of the identifier at POSITION."
- (pcase-let* ((data (denote--link-at-point-get-data position))
- (`(,target . ,_) (car data)))
+ (let* ((data (denote--link-at-point-get-data position))
+ (target (caar data)))
(denote-get-path-by-id target)))
;; The `eval-after-load' part with the quoted lambda is adapted from
