diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2023-08-27 22:52:11 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2023-08-27 22:54:34 -0400 |
commit | 5640de5f2ee5875313e239c0f4237454e027913c (patch) | |
tree | 2507fb746c9907c05fbb4d76c4c71154db87a263 /lisp/mastodon-tl.el | |
parent | f646c2d5128db8f64c580c9d1133c7e445840800 (diff) |
Misc minor cosmetic changes
Prefer # to quote function names.
Remove some redundant `:group` arguments.
Properly newline-terminate text files.
Fix some ' warnings in docstrings.
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r-- | lisp/mastodon-tl.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 9e86327..7a02a03 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -203,8 +203,8 @@ If nil `(point-min)' is used instead.") (defvar mastodon-tl--link-keymap (let ((map (make-sparse-keymap))) - (define-key map [return] 'mastodon-tl--do-link-action-at-point) - (define-key map [mouse-2] 'mastodon-tl--do-link-action) + (define-key map [return] #'mastodon-tl--do-link-action-at-point) + (define-key map [mouse-2] #'mastodon-tl--do-link-action) (define-key map [follow-link] 'mouse-face) map) "The keymap for link-like things in buffer (except for shr.el generate links). @@ -1594,7 +1594,7 @@ This includes the update profile note buffer, but not the preferences one." (string-prefix-p "accounts" (mastodon-tl--endpoint nil :no-error))) (defun mastodon-tl--timeline-proper-p () - "Return non-nil if the current buffer is a 'proper' timeline. + "Return non-nil if the current buffer is a \"proper\" timeline. A proper timeline excludes notifications, threads, profiles, and other toot buffers that aren't strictly mastodon timelines." (let ((timeline-buffers @@ -2284,7 +2284,7 @@ when showing followers or accounts followed." (defun mastodon-tl--get-link-header-from-response (headers) "Get http Link header from list of http HEADERS." ;; pleroma uses "link", so case-insensitive match required: - (when-let ((link-headers (alist-get "Link" headers nil nil 'cl-equalp))) + (when-let ((link-headers (alist-get "Link" headers nil nil #'cl-equalp))) (split-string link-headers ", "))) (defun mastodon-tl--more () |