From 9c8df73c253640f54e89c0c170336a9993290e6c Mon Sep 17 00:00:00 2001 From: Holger Dürer Date: Tue, 2 May 2017 20:37:51 +0100 Subject: Fix some whitespace issues. --- lisp/mastodon-media.el | 4 ++-- lisp/mastodon-toot.el | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el index 1b8e786..23fbc79 100644 --- a/lisp/mastodon-media.el +++ b/lisp/mastodon-media.el @@ -65,8 +65,8 @@ more media links were found." "Checks to make sure that the missing string has not been returned." - (let((missing "/files/small/missing.png")) - (not(equal link missing)))) + (let ((missing "/files/small/missing.png")) + (not (equal link missing)))) (defun mastodon-media--line-to-link (line-points) "Returns the url of the media link given at the given point. diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 7136b6c..371d8ed 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 (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))) -- cgit v1.2.3