[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/bind-map 39df473a2d 1/2: Only call function-alias-p if it'
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/bind-map 39df473a2d 1/2: Only call function-alias-p if it's available |
Date: |
Fri, 8 Mar 2024 15:59:21 -0500 (EST) |
branch: elpa/bind-map
commit 39df473a2dc9e026be457b730ffdab0d89a68b82
Author: Dan Kessler <kesslerd@umich.edu>
Commit: Dan Kessler <kesslerd@umich.edu>
Only call function-alias-p if it's available
---
bind-map.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/bind-map.el b/bind-map.el
index 0685856578..10e8ff3b9c 100644
--- a/bind-map.el
+++ b/bind-map.el
@@ -215,12 +215,16 @@ If both are nil, just return `mode'. If
`bind-map-use-remapped-modes' is non-nil, also return mode to
which it has been remapped in `major-mode-remap-alist' (if
applicable). If `bind-map-use-aliased-modes' is non-nil, also
-return any modes for which `mode' is an alias (if applicable)."
+return any modes for which `mode' is an alias (if applicable).
+Note: finding aliased modes relies on `function-alias-p', which
+is only available on Emacs 29.1+."
(let ((r-mode
(or (and bind-map-use-remapped-modes
(boundp 'major-mode-remap-alist)
(alist-get mode major-mode-remap-alist))))
- (a-modes (and bind-map-use-aliased-modes (function-alias-p mode))))
+ (a-modes (and bind-map-use-aliased-modes
+ (fboundp 'function-alias-p)
+ (function-alias-p mode))))
(delq nil (append (list mode r-mode) a-modes))))
(defun bind-map-add-to-major-mode-list (activate-var major-mode-list)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/bind-map 39df473a2d 1/2: Only call function-alias-p if it's available,
ELPA Syncer <=