[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-remark 7e471e74d8 2/3: fix: applyihg Stefan Monnier
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-remark 7e471e74d8 2/3: fix: applyihg Stefan Monnier's suggestions (WIP 2) |
Date: |
Fri, 4 Feb 2022 13:57:54 -0500 (EST) |
branch: externals/org-remark
commit 7e471e74d8bcfb0617aded4ef6acdb14fdd9359d
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>
fix: applyihg Stefan Monnier's suggestions (WIP 2)
---
org-remark-global-tracking.el | 6 +++---
org-remark.el | 6 ++----
2 files changed, 5 insertions(+), 7 deletions(-)
diff --git a/org-remark-global-tracking.el b/org-remark-global-tracking.el
index f2786342ad..3eee93e2d2 100644
--- a/org-remark-global-tracking.el
+++ b/org-remark-global-tracking.el
@@ -85,11 +85,11 @@ This function looks at customization variable
`org-remark-notes-file-path'. If it is a string, return it as
the file path. If it is a function, evaluate it to return the
value."
- (if-let ((fn (when (functionp org-remark-notes-file-path)
- org-remark-notes-file-path)))
- (funcall fn)
+ (if (functionp org-remark-notes-file-path)
+ (funcall org-remark-notes-file-path)
;; If not function, assume string and return it as the file path.
org-remark-notes-file-path))
+
(defun org-remark-notes-file-path-function ()
"Return a marginal notes file name for the current buffer.
diff --git a/org-remark.el b/org-remark.el
index e742761240..4a3c72123c 100644
--- a/org-remark.el
+++ b/org-remark.el
@@ -1050,11 +1050,9 @@ Case 2. The overlay points to no buffer
;;;;; Other utilities
- (defun org-remark-source-path (path)
+(defun org-remark-source-path (path)
"Convert PATH either to absolute or relative for marginal notes files.
-Returns the standardized path. Currently, it's only a place
-holder and uses `abbreviate-file-name' to return an absolute
-path."
+Returns the standardized path."
(funcall org-remark-source-path-function path))
(defun org-remark-region-or-word ()