diff options
| author | Johnson Denen <johnson.denen@gmail.com> | 2017-04-29 12:48:47 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-04-29 12:48:47 -0400 |
| commit | 0aa660ec3afe3be1819d02fee7f3187dc62c09a2 (patch) | |
| tree | fc07a18846ae5268ffebc52b75a9900b997883bc | |
| parent | 5c3e01589656fd1439dc017d5b44f3a91ba11d1b (diff) | |
| parent | d011f39b8d638dbb5f13dae1f31fb311724f64c6 (diff) | |
Merge branch 'master' into develop
| -rw-r--r-- | lisp/mastodon-toot.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 618f734..cb8ce37 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -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 (car (cadr binds))) - (bindings (remove nil (mapcar (lambda (i) (if (listp i) i)) - (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) |