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.")