Skip to content

Commit ed6e5ab

Browse files
Avoid more if-let and when-let for older Emacs
Getting "unreferenced variable" errors on older Emacs.
1 parent cfc12c0 commit ed6e5ab

File tree

1 file changed

+13
-11
lines changed

1 file changed

+13
-11
lines changed

racket-package.el

Lines changed: 13 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -263,15 +263,16 @@
263263
(if firstp
264264
(progn (setq firstp nil) (insert " "))
265265
(insert "\n "))
266-
(if-let (details (gethash (car (split-string name))
267-
racket--package-installed+catalog))
268-
(insert (propertize name
269-
'button '(t)
270-
'category 'default-button
271-
'follow-link t
272-
'action #'describe-racket-package
273-
'racket-package-details details))
274-
(insert name))))
266+
(let ((details (gethash (car (split-string name))
267+
racket--package-installed+catalog)))
268+
(if details
269+
(insert (propertize name
270+
'button '(t)
271+
'category 'default-button
272+
'follow-link t
273+
'action #'describe-racket-package
274+
'racket-package-details details))
275+
(insert name)))))
275276
(newline))
276277
(:source
277278
(insert " ")
@@ -305,8 +306,9 @@
305306
;; detail buffer.
306307
(delete-region (point-min) end-details)
307308
(goto-char (point-min))
308-
(when-let (details (gethash id racket--package-installed+catalog))
309-
(racket--package-insert-details details))
309+
(let ((details (gethash id racket--package-installed+catalog)))
310+
(when details
311+
(racket--package-insert-details details)))
310312
(goto-char (point-min)))))
311313

312314
(defun racket--package-linkify-source (str)

0 commit comments

Comments
 (0)