emacs-elpa-diffs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]