From fc4ae0a90bf907013330c9e4917c9853ebc8d518 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Thu, 30 Jan 2020 11:52:46 +0900
Subject: [PATCH] Add some declaration to suppress warnings

---
 emacs.el | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/emacs.el b/emacs.el
index eea2d1e..13022c7 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1493,6 +1493,7 @@ ORIG-FUNC is the target function, and ARGS is the argument when it is called."
                '("^\\([^ \n]+\\):\\([0-9]+\\) " 1 2))
   )
 
+(declare-function company-cancel "company")
 (when (fboundp 'global-company-mode)
   (add-hook 'after-first-visit-hook
             'global-company-mode))
@@ -2163,6 +2164,7 @@ ARG is num to show, or defaults to 7."
                     (my-file-head f
                                   7)))))
 
+(declare-function dired-get-marked-files "dired")
 (defun my-dired-diff ()
   "Show diff of marked file and file of current line."
   (interactive)
@@ -2203,6 +2205,8 @@ ARG is num to show, or defaults to 7."
 ;;   ""
 ;;   (interactive "p"))
 
+(declare-function dired-get-subdir "dired")
+(declare-function dired-move-to-filename "dired")
 (defun my-dired-previous-line (arg)
   "Move ARG lines up."
   (interactive "p")
@@ -2595,6 +2599,7 @@ and search from projectile root (if projectile is available)."
 (defalias 'make 'compile)
 (define-key ctl-x-map "c" 'compile)
 
+(autoload 'pb/push-item "pushbullet")
 (defun my-pushbullet-note (text &optional title)
   "Push TEXT with optional TITLE."
   (interactive "sText to Push: ")
@@ -2626,6 +2631,7 @@ and search from projectile root (if projectile is available)."
   "Regexp to parse line of output of git-bug ls.
 Used by `git-bug-ls'.")
 
+(declare-function string-trim "subr-x")
 (defun git-bug-bugs ()
   "Get list of git-bug bugs."
   (with-temp-buffer
@@ -2653,6 +2659,12 @@ Used by `git-bug-ls'.")
   (interactive)
   (pop-to-buffer (git-bug-ls-noselect)))
 
+(defun git-bug-ls--set-tabulated-list-mode-variables ()
+  "Not implemented.")
+
+(defun git-bug-ls-mode ()
+  "Not implemented.")
+
 (defun git-bug-ls-noselect (&optional directory)
   "Open git bug list buffer.
 
@@ -2755,6 +2767,8 @@ Any output will be written to current buffer."
 ;; (set-variable 'enable-recursive-minibuffers t)
 ;; (minibuffer-depth-indicate-mode 1)
 
+(declare-function ivy--regex-ignore-order "ivy")
+(declare-function ivy--regex-fuzzy "ivy")
 (defun my--ivy-regex-fuzzy-ignore-order (str)
   "Re-build regex from STR for ignore-order fuzzy match."
   (let ((re-list (ivy--regex-ignore-order str)))
@@ -2913,6 +2927,10 @@ Any output will be written to current buffer."
 ;;;; Make the mark visible, and the visibility toggleable. ('mmv' means 'make
 ;;;; mark visible'.) By Patrick Gundlach, Teemu Leisti, and Stefan.
 
+(defgroup mmv nil
+  "Make mark visible."
+  :group 'tools)
+
 (defvar mmv-face-foreground
   (face-foreground 'hi-yellow)
   "Foreground color for `mmv-face'.")
@@ -2923,7 +2941,8 @@ Any output will be written to current buffer."
 
 (defface mmv-face
   `((t :background ,mmv-face-background :foreground ,mmv-face-foreground))
-  "Face used for showing the mark's position.")
+  "Face used for showing the mark's position."
+  :group 'mmv)
 
 (defvar-local mmv-mark-overlay nil
   "The overlay for showing the mark's position.")