branch: externals/leaf
commit f044dc4d56779b678b8f806056226583679c04d6
Author: conao3 <[email protected]>
Commit: conao3 <[email protected]>
use setq instead of setq-local
---
leaf.el | 40 ++++++++++++++++++++--------------------
1 file changed, 20 insertions(+), 20 deletions(-)
diff --git a/leaf.el b/leaf.el
index 1cbf3fb..b8329b1 100644
--- a/leaf.el
+++ b/leaf.el
@@ -859,26 +859,26 @@ BIND must not contain :{{map}}."
(define-derived-mode leaf-key-list-mode tabulated-list-mode "Leaf-key
Bindings"
"Major mode for listing bindings configured via `leaf-key'."
- (setq-local tabulated-list-format [("Map" 20 t)
- ("Key" 20 t)
- ("Command" 40 t)
- ("Before Command" 0 t)])
- (setq-local tabulated-list-entries
- (let ((id 0)
- (formatfn (lambda (elm)
- (if (stringp elm)
- elm
- (prin1-to-string (if (eq elm nil)
'--- elm)))))
- res)
- (dolist (elm leaf-key-bindlist)
- (setq id (1+ id))
- (push `(,id [,(funcall formatfn (nth 0 elm))
- ,(funcall formatfn (nth 1 elm))
- ,(funcall formatfn (nth 2 elm))
- ,(funcall formatfn (nth 3 elm))])
- res))
- (nreverse res)))
- (setq-local tabulated-list-sort-key '("Map" . nil))
+ (setq tabulated-list-format [("Map" 20 t)
+ ("Key" 20 t)
+ ("Command" 40 t)
+ ("Before Command" 0 t)])
+ (setq tabulated-list-entries
+ (let ((id 0)
+ (formatfn (lambda (elm)
+ (if (stringp elm)
+ elm
+ (prin1-to-string (if (eq elm nil) '---
elm)))))
+ res)
+ (dolist (elm leaf-key-bindlist)
+ (setq id (1+ id))
+ (push `(,id [,(funcall formatfn (nth 0 elm))
+ ,(funcall formatfn (nth 1 elm))
+ ,(funcall formatfn (nth 2 elm))
+ ,(funcall formatfn (nth 3 elm))])
+ res))
+ (nreverse res)))
+ (setq tabulated-list-sort-key '("Map" . nil))
(tabulated-list-print)
(tabulated-list-init-header))
