From e5c8cb747b5a64f044a2b001a61de2b473ced434 Mon Sep 17 00:00:00 2001 From: TEC Date: Fri, 23 Jul 2021 02:48:39 +0800 Subject: [PATCH] Mu4e: Remove spurious autoloads None of these functions are called outside the file they're defined in. --- modules/email/mu4e/autoload/email.el | 8 -------- modules/email/mu4e/autoload/mu-lock.el | 5 ----- 2 files changed, 13 deletions(-) diff --git a/modules/email/mu4e/autoload/email.el b/modules/email/mu4e/autoload/email.el index 7aab501b3..965cc6570 100644 --- a/modules/email/mu4e/autoload/email.el +++ b/modules/email/mu4e/autoload/email.el @@ -77,9 +77,6 @@ default/fallback account." ;; TODO Interactively select email account (call-interactively #'mu4e-compose-new)) -;; Icons need a bit of work -;; Spacing needs to be determined and adjucted -;;;###autoload (defun +mu4e--get-string-width (str) "Return the width in pixels of a string in the current window's default font. If the font is mono-spaced, this @@ -93,7 +90,6 @@ will also be the width of all other printable characters." (insert str) (car (window-text-pixel-size))))) -;;;###autoload (cl-defun +mu4e-normalised-icon (name &key set color height v-adjust) "Convert :icon declaration to icon" (let* ((icon-set (intern (concat "all-the-icons-" (or set "faicon")))) @@ -123,7 +119,6 @@ will also be the width of all other printable characters." mu4e-headers-signed-mark (cons "s" (+mu4e-normalised-icon "certificate" :height 0.7 :color "dpurple")) mu4e-headers-unread-mark (cons "u" (+mu4e-normalised-icon "eye-slash" :v-adjust 0.05)))) -;;;###autoload (defun +mu4e-colorize-str (str &optional unique herring) "Apply a face from `+mu4e-header-colorized-faces' to STR. If HERRING is set, it will be used to determine the face instead of STR. @@ -155,7 +150,6 @@ a quoted symbol for a alist of current strings and faces provided." str) str) -;;;###autoload (defun +mu4e--str-color-face (str &optional offset) "Select a face from `+mu4e-header-colorized-faces' based on STR and any integer OFFSET." @@ -294,7 +288,6 @@ When otherwise called, open a dired buffer and enable `dired-mu4e-attach-ctrl-c- (with-current-buffer (call-interactively #'find-file) (dired-mu4e-attach-ctrl-c-ctrl-c 1))))) -;;;###autoload (define-minor-mode dired-mu4e-attach-ctrl-c-ctrl-c "Adds C-c C-c as an keybinding to attach files to a message." :lighter "attach" @@ -306,7 +299,6 @@ When otherwise called, open a dired buffer and enable `dired-mu4e-attach-ctrl-c- (substitute-command-keys "Mu4e attach active. `\\[+mu4e/attach-files]' to attach the marked files.")))) -;;;###autoload (defun +mu4e-current-buffers () "Return a list of active message buffers." (let (buffers) diff --git a/modules/email/mu4e/autoload/mu-lock.el b/modules/email/mu4e/autoload/mu-lock.el index c34329d6a..34ec9c476 100644 --- a/modules/email/mu4e/autoload/mu-lock.el +++ b/modules/email/mu4e/autoload/mu-lock.el @@ -10,7 +10,6 @@ (defvar +mu4e-lock-relaxed t "Whether if someone else wants the lock (signaled via `+mu4e-lock-request-file'), we should stop Mu4e and let go of it") -;;;###autoload (defun +mu4e-lock-pid-info () "Get info on the PID refered to in `+mu4e-lock-file' in the form (pid . process-attributes) If the file or process do not exist, the lock file is deleted an nil returned." @@ -24,7 +23,6 @@ (if process (cons pid process) (delete-file +mu4e-lock-file) nil)))) -;;;###autoload (defun +mu4e-lock-available (&optional strict) "If the `+mu4e-lock-file' is available (unset or owned by this emacs) return t. If STRICT only accept an unset lock file." @@ -63,7 +61,6 @@ Else, write to this process' PID to the lock file" (defvar +mu4e-lock--file-just-deleted nil) (defvar +mu4e-lock--request-watcher nil) -;;;###autoload (defun +mu4e-lock-add-watcher () (setq +mu4e-lock--file-just-deleted nil) (file-notify-rm-watch +mu4e-lock--file-watcher) @@ -72,7 +69,6 @@ Else, write to this process' PID to the lock file" '(change) #'+mu4e-lock-file-updated))) -;;;###autoload (defun +mu4e-lock-request (event) "Handle another process requesting the Mu4e lock." (when (equal (nth 1 event) 'created) @@ -84,7 +80,6 @@ Else, write to this process' PID to the lock file" (run-at-time 0.2 nil #'+mu4e-lock-add-watcher)) (delete-file +mu4e-lock-request-file))) -;;;###autoload (defun +mu4e-lock-file-updated (event) (if +mu4e-lock--file-just-deleted (+mu4e-lock-add-watcher)