Remove useless 'with-no-warnings'

This commit is contained in:
Pierre Neidhardt 2017-12-07 21:40:33 +01:00
parent d7d67f3a50
commit e1d71de24f
4 changed files with 40 additions and 44 deletions

View File

@ -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

View File

@ -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'."

View File

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

View File

@ -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'."