diff options
| author | alexjgriffith <griffitaj @gmail.com> | 2017-05-17 10:34:34 -0400 | 
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-05-18 10:21:21 -0400 | 
| commit | 349a46befedafae39ab05598c1005f9f2c82fadf (patch) | |
| tree | 7344c3118ee7ca80080f90d9c2dc7447860ea1a2 /lisp/mastodon-toot.el | |
| parent | c0708e9338de45415c0b70019cf45ee9a5bad230 (diff) | |
replaced declare-function with autoload
Diffstat (limited to 'lisp/mastodon-toot.el')
| -rw-r--r-- | lisp/mastodon-toot.el | 30 | 
1 files changed, 15 insertions, 15 deletions
| diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 296f95f..eaf5339 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -32,13 +32,13 @@  (defvar mastodon-toot--reply-to-id nil)  (defvar mastodon-toot--content-warning nil) -(declare-function mastodon-http--api "mastodon-http") -(declare-function mastodon-http--post "mastodon-http") -(declare-function mastodon-http--triage "mastodon-http") -(declare-function mastodon-tl--field "mastodon-tl") -(declare-function mastodon-tl--goto-next-toot "mastodon-tl") -(declare-function mastodon-tl--property "mastodon-tl") -(declare-function mastodon-toot "mastodon") +(autoload 'mastodon-http--api "mastodon-http") +(autoload 'mastodon-http--post "mastodon-http") +(autoload 'mastodon-http--triage "mastodon-http") +(autoload 'mastodon-tl--field "mastodon-tl") +(autoload 'mastodon-tl--goto-next-toot "mastodon-tl") +(autoload 'mastodon-tl--property "mastodon-tl") +(autoload 'mastodon-toot "mastodon")  (defvar mastodon-toot-mode-map    (let ((map (make-sparse-keymap))) @@ -166,28 +166,28 @@ Set `mastodon-toot--content-warning' to nil."      (mapcar (lambda (b)                (setf (car b) (vector prefix (car b)))                b) -	    bindings))) +            bindings)))  (defun mastodon-toot--format-kbind-command (cmd)    "Format CMD to be more readable.  e.g. mastodon-toot--send -> Send."    (let* ((str (symbol-name cmd)) -	 (re "--\\(.*\\)$") -	 (str2 (save-match-data -		 (string-match re str) -		 (match-string 1 str)))) +         (re "--\\(.*\\)$") +         (str2 (save-match-data +                 (string-match re str) +                 (match-string 1 str))))      (capitalize (replace-regexp-in-string "-" " " str2))))  (defun mastodon-toot--format-kbind (kbind)    "Format a single keybinding, KBIND, for display in documentation."    (let ((key (help-key-description (car kbind) nil)) -	(command (mastodon-toot--format-kbind-command (cdr kbind)))) +        (command (mastodon-toot--format-kbind-command (cdr kbind))))      (format "\t%s - %s" key command)))  (defun mastodon-toot--format-kbinds (kbinds)    "Format a list keybindings, KBINDS, for display in documentation."    (mapconcat 'identity (cons "" (mapcar #'mastodon-toot--format-kbind kbinds)) -	       "\n")) +               "\n"))  (defun mastodon-toot--make-mode-docs ()    "Create formatted documentation text for the mastodon-toot-mode." @@ -217,7 +217,7 @@ If REPLY-TO-ID is provided, set the MASTODON-TOOT--REPLY-TO-ID var."  If REPLY-TO-USER is provided, inject their handle into the message.  If REPLY-TO-ID is provided, set the MASTODON-TOOT--REPLY-TO-ID var."    (let* ((buffer-exists (get-buffer "*new toot*")) -	 (buffer (or buffer-exists (get-buffer-create "*new toot*")))) +         (buffer (or buffer-exists (get-buffer-create "*new toot*"))))      (switch-to-buffer-other-window buffer)      (when (not buffer-exists)        (mastodon-toot--display-docs) | 
