Remove useless 'with-no-warnings'

4 files changed, 44 insertions, 48 deletions

diff --git a/evil-collection-company.el b/evil-collection-company.el
index 79f45e9..2bec8ad 100644
--- a/evil-collection-company.el
+++ b/evil-collection-company.el
@@ -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
diff --git a/evil-collection-emms.el b/evil-collection-emms.el
index 2812093..6de3fdf 100644
--- a/evil-collection-emms.el
+++ b/evil-collection-emms.el
@@ -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-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-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-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-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-setup ()
   "Set up `evil' bindings for `emms'."
diff --git a/evil-collection-eval-sexp-fu.el b/evil-collection-eval-sexp-fu.el
index 577dc92..70d54e6 100644
--- a/evil-collection-eval-sexp-fu.el
+++ b/evil-collection-eval-sexp-fu.el
@@ -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."
diff --git a/evil-collection-pdf.el b/evil-collection-pdf.el
index cc813b4..e3c7a87 100644
--- a/evil-collection-pdf.el
+++ b/evil-collection-pdf.el
@@ -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-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-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-setup ()
   "Set up `evil' bindings for `pdf-view'."