From 979d39f332be96715330a20dd3cc06863fe78ef3 Mon Sep 17 00:00:00 2001 From: yoctocell Date: Sun, 6 Dec 2020 21:17:02 +0100 Subject: [PATCH] Prefix function names with #' --- peertube.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/peertube.el b/peertube.el index 0c00631..735aa7c 100644 --- a/peertube.el +++ b/peertube.el @@ -193,7 +193,7 @@ Format to thousands (K) or millions (M) if necessary." ("Date" 10 t) ("Views" 6 t) ("Tags" 10 nil)]) - (setq tabulated-list-entries (mapcar 'peertube--insert-entry + (setq tabulated-list-entries (mapcar #'peertube--insert-entry peertube-videos)) (tabulated-list-init-header) (tabulated-list-print)) @@ -207,7 +207,7 @@ Format to thousands (K) or millions (M) if necessary." (interactive) (let* ((url (peertube-video-url (peertube--get-current-video))) (res (completing-read "Resolution of video: " - (mapcar 'number-to-string peertube-video-resolutions))) + (mapcar #'number-to-string peertube-video-resolutions))) (torrent-link (replace-regexp-in-string "https://\\(.*\\)/videos/watch/\\(.*$\\)" (concat "https://\\1/download/torrents/\\2-" @@ -269,7 +269,7 @@ Format to thousands (K) or millions (M) if necessary." "Search PeerTube for QUERY." (interactive "sSearch PeerTube: ") (let ((videos (if peertube-disable-nsfw - (cl-remove-if #'null (mapcar 'peertube--remove-nsfw (peertube-query query))) + (cl-remove-if #'null (mapcar #'peertube--remove-nsfw (peertube-query query))) (peertube-query query)))) (setq peertube-videos videos)) (setq peertube-search-term query) -- 2.38.5