[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 87c227b697 4/4: Use static-if
From: |
ELPA Syncer |
Subject: |
[elpa] externals/marginalia 87c227b697 4/4: Use static-if |
Date: |
Mon, 8 Jul 2024 18:59:16 -0400 (EDT) |
branch: externals/marginalia
commit 87c227b697de61f6530e8f9353d24470007f0420
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Use static-if
---
marginalia.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index ef782a2f4f..66a0b18b5e 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -654,9 +654,9 @@ keybinding since CAND includes it."
((pred hash-table-p) (propertize "#<hash-table>" 'face
'marginalia-value))
((pred syntax-table-p) (propertize "#<syntax-table>" 'face
'marginalia-value))
;; Emacs bug#53988: abbrev-table-p throws an error
- ((guard (or (and (eval-when-compile (< emacs-major-version 30))
- (vectorp val) (ignore-errors (abbrev-table-p val)))
- (abbrev-table-p val)))
+ ((guard (static-if (< emacs-major-version 30)
+ (and (vectorp val) (ignore-errors (abbrev-table-p val)))
+ (abbrev-table-p val)))
(propertize "#<abbrev-table>" 'face 'marginalia-value))
((pred char-table-p) (propertize "#<char-table>" 'face
'marginalia-value))
;; Emacs 29 comes with callable objects or object closures (OClosures)