aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-toot.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index be2a7da..b642eb6 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -147,9 +147,9 @@ Set `mastodon-toot--content-warning' to nil."
(defun mastodon-toot--get-mode-kbinds ()
"Get a list of the keybindings in the mastodon-toot-mode."
(let* ((binds (copy-tree mastodon-toot-mode-map))
- (prefix (caadr binds))
- (bindings (remove-if-not (lambda (x) (listp x))
- (cadr binds))))
+ (prefix (car (cadr binds)))
+ (bindings (remove nil (mapcar (lambda (i) (if (listp i) i))
+ (cadr binds)))))
(mapcar (lambda (b)
(progn
(setf (car b) (vector prefix (car b)))
@@ -174,7 +174,7 @@ e.g. mastodon-toot--send -> Send."
(defun mastodon-toot--format-kbinds (kbinds)
"Format a list keybindings, KBINDS, for display in documentation."
- (string-join (cons "" (mapcar #'mastodon-toot--format-kbind kbinds))
+ (mapconcat 'identity (cons "" (mapcar #'mastodon-toot--format-kbind kbinds))
"\n"))
(defun mastodon-toot--make-mode-docs ()