[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 1aa1be0 2/2: BUG: abbrev-table-p throws an e
From: |
ELPA Syncer |
Subject: |
[elpa] externals/marginalia 1aa1be0 2/2: BUG: abbrev-table-p throws an error |
Date: |
Tue, 12 Oct 2021 08:57:19 -0400 (EDT) |
branch: externals/marginalia
commit 1aa1be0515a84da3f450e45322b5b8a88ec6a956
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
BUG: abbrev-table-p throws an error
---
marginalia.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/marginalia.el b/marginalia.el
index c98710e..bdb4547 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -574,7 +574,8 @@ keybinding since CAND includes it."
((pred keymapp) (propertize "#<keymap>" 'face 'marginalia-value))
((pred hash-table-p) (propertize "#<hash-table>" 'face
'marginalia-value))
((pred syntax-table-p) (propertize "#<syntax-table>" 'face
'marginalia-value))
- ((pred abbrev-table-p) (propertize "#<abbrev-table>" 'face
'marginalia-value))
+ ;; Emacs BUG: abbrev-table-p throws an error
+ ((guard (ignore-errors (abbrev-table-p val))) (propertize
"#<abbrev-table>" 'face 'marginalia-value))
((pred char-table-p) (propertize "#<char-table>" 'face
'marginalia-value))
((pred byte-code-function-p) (propertize "#<byte-code-function>"
'face 'marginalia-function))
((and (pred functionp) (pred symbolp))