aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-toot.el
diff options
context:
space:
mode:
authorJohnson Denen <johnson.denen@gmail.com>2017-04-29 12:52:01 -0400
committerGitHub <noreply@github.com>2017-04-29 12:52:01 -0400
commitac10d7a647aa77aa933076a523a48ec0a283dd15 (patch)
treefc07a18846ae5268ffebc52b75a9900b997883bc /lisp/mastodon-toot.el
parentd011f39b8d638dbb5f13dae1f31fb311724f64c6 (diff)
parent0aa660ec3afe3be1819d02fee7f3187dc62c09a2 (diff)
Merge pull request #106 from jdenen/develop
v0.6.2
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r--lisp/mastodon-toot.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index be2a7da..cb8ce37 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -2,7 +2,7 @@
;; Copyright (C) 2017 Johnson Denen
;; Author: Johnson Denen <johnson.denen@gmail.com>
-;; Version: 0.6.1
+;; Version: 0.6.2
;; Homepage: https://github.com/jdenen/mastodon.el
;; This file is not part of GNU Emacs.
@@ -147,13 +147,13 @@ 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)))
- b))
+ (setf (car b) (vector prefix (car b)))
+ b))
bindings)))
(defun mastodon-toot--format-kbind-command (cmd)
@@ -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 ()