Remove useless 'with-no-warnings'
This commit is contained in:
parent
d7d67f3a50
commit
e1d71de24f
|
@ -69,8 +69,7 @@ be set through custom or before evil-collection loads."
|
|||
(define-key company-search-map (kbd "M-k") 'company-select-previous)
|
||||
|
||||
;; Sets up YCMD like behavior.
|
||||
(when evil-collection-company-use-tng
|
||||
(with-no-warnings (company-tng-configure-default))))
|
||||
(when evil-collection-company-use-tng (company-tng-configure-default)))
|
||||
|
||||
(provide 'evil-collection-company)
|
||||
;;; evil-collection-company.el ends here
|
||||
|
|
|
@ -48,36 +48,35 @@
|
|||
"Default `emms-browser' to motion state."
|
||||
(evil-motion-state))
|
||||
|
||||
(with-no-warnings
|
||||
(defun evil-collection-emms-playlist-mode-insert-newline-above ()
|
||||
"Insert a newline above point."
|
||||
(interactive)
|
||||
(emms-with-inhibit-read-only-t
|
||||
(evil-insert-newline-above)))
|
||||
(defun evil-collection-emms-playlist-mode-insert-newline-above ()
|
||||
"Insert a newline above point."
|
||||
(interactive)
|
||||
(emms-with-inhibit-read-only-t
|
||||
(evil-insert-newline-above)))
|
||||
|
||||
(defun evil-collection-emms-playlist-mode-insert-newline-below ()
|
||||
"Insert a newline below point."
|
||||
(interactive)
|
||||
(emms-with-inhibit-read-only-t
|
||||
(evil-insert-newline-below)))
|
||||
(defun evil-collection-emms-playlist-mode-insert-newline-below ()
|
||||
"Insert a newline below point."
|
||||
(interactive)
|
||||
(emms-with-inhibit-read-only-t
|
||||
(evil-insert-newline-below)))
|
||||
|
||||
(defun evil-collection-emms-playlist-mode-paste-before ()
|
||||
"Pastes the latest yanked playlist items before the cursor position.
|
||||
The return value is the yanked text."
|
||||
(interactive)
|
||||
(emms-with-inhibit-read-only-t
|
||||
(goto-char (point-at-bol))
|
||||
(yank)
|
||||
(emms-playlist-mode-correct-previous-yank)
|
||||
(evil-previous-line)
|
||||
(evil-beginning-of-line)))
|
||||
(defun evil-collection-emms-playlist-mode-paste-before ()
|
||||
"Pastes the latest yanked playlist items before the cursor position.
|
||||
The return value is the yanked text."
|
||||
(interactive)
|
||||
(emms-with-inhibit-read-only-t
|
||||
(goto-char (point-at-bol))
|
||||
(yank)
|
||||
(emms-playlist-mode-correct-previous-yank)
|
||||
(evil-previous-line)
|
||||
(evil-beginning-of-line)))
|
||||
|
||||
(defun evil-collection-emms-playlist-mode-paste-after ()
|
||||
"Pastes the latest yanked playlist items behind point.
|
||||
The return value is the yanked text."
|
||||
(interactive)
|
||||
(evil-next-line)
|
||||
(evil-collection-emms-playlist-mode-paste-before)))
|
||||
(defun evil-collection-emms-playlist-mode-paste-after ()
|
||||
"Pastes the latest yanked playlist items behind point.
|
||||
The return value is the yanked text."
|
||||
(interactive)
|
||||
(evil-next-line)
|
||||
(evil-collection-emms-playlist-mode-paste-before))
|
||||
|
||||
(defun evil-collection-emms-setup ()
|
||||
"Set up `evil' bindings for `emms'."
|
||||
|
|
|
@ -28,8 +28,7 @@
|
|||
|
||||
;;; Code:
|
||||
(require 'evil)
|
||||
(with-no-warnings
|
||||
(require 'eval-sexp-fu nil t))
|
||||
(require 'eval-sexp-fu nil t)
|
||||
|
||||
(defun evil-collection-eval-sexp-fu-bounds-of-thing-at-point-sexp (command &rest args)
|
||||
"In normal-state or motion-state, last sexp ends at point."
|
||||
|
|
|
@ -30,20 +30,19 @@
|
|||
(require 'evil)
|
||||
(require 'pdf-view nil t)
|
||||
|
||||
(with-no-warnings
|
||||
(defun evil-collection-pdf-view-goto-page (&optional page)
|
||||
"`evil' wrapper around `pdf-view-last-page'."
|
||||
(interactive "P")
|
||||
(if page
|
||||
(pdf-view-goto-page page)
|
||||
(pdf-view-last-page)))
|
||||
(defun evil-collection-pdf-view-goto-page (&optional page)
|
||||
"`evil' wrapper around `pdf-view-last-page'."
|
||||
(interactive "P")
|
||||
(if page
|
||||
(pdf-view-goto-page page)
|
||||
(pdf-view-last-page)))
|
||||
|
||||
(defun evil-collection-pdf-view-goto-first-page (&optional page)
|
||||
"`evil' wrapper around `pdf-view-first-page'."
|
||||
(interactive "P")
|
||||
(if page
|
||||
(pdf-view-goto-page page)
|
||||
(pdf-view-first-page))))
|
||||
(defun evil-collection-pdf-view-goto-first-page (&optional page)
|
||||
"`evil' wrapper around `pdf-view-first-page'."
|
||||
(interactive "P")
|
||||
(if page
|
||||
(pdf-view-goto-page page)
|
||||
(pdf-view-first-page)))
|
||||
|
||||
(defun evil-collection-pdf-setup ()
|
||||
"Set up `evil' bindings for `pdf-view'."
|
||||
|
|
Loading…
Reference in New Issue