diff options
| author | Marcin Cieślak <saper@saper.info> | 2017-04-29 17:49:28 +0200 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-04-29 12:17:19 -0400 |
| commit | c3df16964e2c739203829bf55b84576ae819e7cc (patch) | |
| tree | d597a033c5beaaa981e3d48ae642adecfa235baa /lisp | |
| parent | d2e61d3d258a9acf1bed5dd8b347c7aaea12c5c7 (diff) | |
Fix #103: Do not use functions unknown to GNU emacs
We don't have to depend on CL package, yet
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-toot.el | 8 |
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 () |