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

[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 ()



reply via email to

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