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

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

[elpa] externals/osm 16d67f0521 3/3: Prefer if-let/when-let


From: ELPA Syncer
Subject: [elpa] externals/osm 16d67f0521 3/3: Prefer if-let/when-let
Date: Sat, 14 Jan 2023 23:58:35 -0500 (EST)

branch: externals/osm
commit 16d67f0521b2478e36880868c73dc6628ab2d8b2
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Prefer if-let/when-let
---
 osm.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/osm.el b/osm.el
index 173d953fe7..a33debf781 100644
--- a/osm.el
+++ b/osm.el
@@ -1515,12 +1515,12 @@ If the prefix argument LUCKY is non-nil take the first 
result and jump there."
 
 (defun osm--server-annotation (cand)
   "Annotation for server CAND."
-  (when-let* ((copyright (osm--server-property :copyright (get-text-property 0 
'osm--server cand)))
-              (str
-               (replace-regexp-in-string
-                "{\\(.*?\\)|.*?}"
-                (lambda (str) (match-string 1 str))
-                (string-join (ensure-list copyright) " | ") copyright)))
+  (when-let ((copyright (osm--server-property :copyright (get-text-property 0 
'osm--server cand)))
+             (str
+              (replace-regexp-in-string
+               "{\\(.*?\\)|.*?}"
+               (lambda (str) (match-string 1 str))
+               (string-join (ensure-list copyright) " | ") copyright)))
     (concat (propertize " " 'display ` (space :align-to (- right ,(length str) 
2)))
             " "
             str)))



reply via email to

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