diff options
| author | Holger Dürer <me@hdurer.net> | 2017-05-02 20:37:09 +0100 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-05-05 15:01:50 -0400 |
| commit | 1bca8fe3d1b6a68544386c96ef4040a6225b9007 (patch) | |
| tree | 2bd37487d3b3b1b50c45d567fd7a079f349f7c3b | |
| parent | cd9942997e233594e422b8a1a26aa83d05e5af0d (diff) | |
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".)
| -rw-r--r-- | lisp/mastodon-media.el | 4 | ||||
| -rw-r--r-- | lisp/mastodon-toot.el | 8 |
2 files changed, 6 insertions, 6 deletions
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) " |