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