diff options
| -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) " |