From 1bca8fe3d1b6a68544386c96ef4040a6225b9007 Mon Sep 17 00:00:00 2001 From: Holger Dürer Date: Tue, 2 May 2017 20:37:09 +0100 Subject: Use the more canonical "nil" instead of "'()" when we don't mean an empty list. (Besides, just "()" would have been enough anyway. No need to quote "()" or "nil".) --- lisp/mastodon-media.el | 4 ++-- lisp/mastodon-toot.el | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 'lisp') diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el index 40a8f21..1b8e786 100644 --- a/lisp/mastodon-media.el +++ b/lisp/mastodon-media.el @@ -57,8 +57,8 @@ Returns the cons of (`start' . `end') points of that line or nil no more media links were found." (let ((foundp (search-forward-regexp "Media_Link::" nil t))) (when foundp - (let ((start (progn (move-beginning-of-line '()) (point))) - (end (progn (move-end-of-line '()) (point)))) + (let ((start (progn (move-beginning-of-line nil) (point))) + (end (progn (move-end-of-line nil) (point)))) (cons start end))))) (defun mastodon-media--valid-link-p (link) diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index cb8ce37..7136b6c 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -43,10 +43,10 @@ Remove MARKER if RM is non-nil." (let ((inhibit-read-only t) - (bol (progn (move-beginning-of-line '()) (point))) - (eol (progn (move-end-of-line '()) (point)))) - (when rm (replace-regexp (format "(%s) " marker) "" '() bol eol)) - (move-beginning-of-line '()) + (bol (progn (move-beginning-of-line nil) (point))) + (eol (progn (move-end-of-line nil) (point)))) + (when rm (replace-regexp (format "(%s) " marker) "" nil bol eol)) + (move-beginning-of-line nil) (mastodon-tl--goto-next-toot) (unless rm (insert (format "(%s) " -- cgit v1.2.3