diff options
| -rw-r--r-- | lisp/mastodon-tl.el | 4 | ||||
| -rw-r--r-- | lisp/mastodon.el | 2 | ||||
| -rw-r--r-- | test/mastodon-notifications-test.el | 2 | ||||
| -rw-r--r-- | test/mastodon-tl-tests.el | 10 | ||||
| -rw-r--r-- | test/mastodon-toot-tests.el | 4 |
5 files changed, 11 insertions, 11 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 4d8df7e..ad3de3c 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -459,9 +459,9 @@ links in the text. If TOOT is nil no parsing occurs." (when (string= (cdr (assoc 'acct mention)) short-acct) (setq return (cdr (assoc 'id mention)))) - (setq mention (pop mentions))) + (setq mention (pop mentions))) return)) - + (defun mastodon-tl--extract-userhandle-from-url (url buffer-text) "Returns the user hande the URL points to or nil if it is not a profile link. diff --git a/lisp/mastodon.el b/lisp/mastodon.el index d608887..3019b95 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -78,7 +78,7 @@ Use. e.g. \"%c\" for your locale's date and time format." (define-key map (kbd "j") #'mastodon-tl--goto-next-toot) (define-key map (kbd "k") #'mastodon-tl--goto-prev-toot) (define-key map (kbd "h") #'mastodon-tl--next-tab-item) - (define-key map (kbd "l") #'mastodon-tl--previous-tab-item) + (define-key map (kbd "l") #'mastodon-tl--previous-tab-item) (define-key map [?\t] #'mastodon-tl--next-tab-item) (define-key map [backtab] #'mastodon-tl--previous-tab-item) (define-key map [?\S-\t] #'mastodon-tl--previous-tab-item) diff --git a/test/mastodon-notifications-test.el b/test/mastodon-notifications-test.el index 9758123..ba08bd4 100644 --- a/test/mastodon-notifications-test.el +++ b/test/mastodon-notifications-test.el @@ -197,7 +197,7 @@ notification to be tested." (timestamp (cdr (assoc 'created_at sample)))) (with-temp-buffer (funcall fun sample) (buffer-substring-no-properties (point-min) (point-max))))) - + (ert-deftest mastodon-notifications--test-byline-concat () "Ensure proper suffix is appended to action." (should (and diff --git a/test/mastodon-tl-tests.el b/test/mastodon-tl-tests.el index f7c6091..851dc39 100644 --- a/test/mastodon-tl-tests.el +++ b/test/mastodon-tl-tests.el @@ -142,7 +142,7 @@ a string or a numeric." "Should request toots more recent than since_id. `mastodon-tl--updated-json' should accept and id that is either -a string or a numeric." +a string or a numeric." (let ((mastodon-instance-url "https://instance.url")) (with-mock (mock (mastodon-http--get-json "https://instance.url/api/v1/timelines/foo?since_id=12345")) @@ -775,7 +775,7 @@ constant." (with-temp-buffer (cl-dotimes (n 12) (insert-timestamp (+ n 2))) (setq markers (nreverse markers)) - + (with-mock (mock (current-time) => now) (stub run-at-time => 'fake-timer) @@ -856,13 +856,13 @@ constant." (should (eq t (get-text-property body-position 'invisible))) ;; Click the link: - (mastodon-tl--do-link-action-at-point (car link-region)) + (mastodon-tl--do-link-action-at-point (car link-region)) ;; The body is now visible: (should (eq nil (get-text-property body-position 'invisible))) ;; Click the link once more: - (mastodon-tl--do-link-action-at-point (car link-region)) + (mastodon-tl--do-link-action-at-point (car link-region)) ;; The body is invisible again: (should (eq t (get-text-property body-position 'invisible))) @@ -873,7 +873,7 @@ constant." (mastodon-tl--toggle-spoiler-text-in-toot) (should (eq nil (get-text-property body-position 'invisible))) (should (eq toot-start (point))) - + ;; Go to the toot's end (goto-char toot-end) ;; Press 'c' and the body is invisible again and point hasn't changed: diff --git a/test/mastodon-toot-tests.el b/test/mastodon-toot-tests.el index 3e25536..0734723 100644 --- a/test/mastodon-toot-tests.el +++ b/test/mastodon-toot-tests.el @@ -20,7 +20,7 @@ (ert-deftest toot-multi-mentions () (let ((mastodon-auth--acct-alist '(("https://local.social". "null"))) - (mastodon-instance-url "https://local.social")) + (mastodon-instance-url "https://local.social")) (should (string= (mastodon-toot--mentions mastodon-toot-multi-mention) "@local@local.social @federated@federated.social @federated@federated.cafe ")))) @@ -36,7 +36,7 @@ (ert-deftest toot-no-mention () (let ((mastodon-auth--acct-alist '(("https://local.social". "null"))) - (mastodon-instance-url "https://local.social")) + (mastodon-instance-url "https://local.social")) (should (string= (mastodon-toot--mentions mastodon-toot-no-mention) "")))) (ert-deftest cancel () |