Re: Towards a cleaner build

[Lars Ingebrigtsen]

Some of these warnings are perhaps not, like, very useful to be able to
suppress, but I thought it'd be nice if the warnings you could suppress
is the same as you can do via byte-compile-warnings, so I've implemented
almost all of them.

So now the following monstrosity compiles without a single warning.  :-)

;;; stest.el ---  -*- lexical-binding: t -*-

(require 'stest-defs)

(defun obsolete ()
  (declare (obsolete foo "22.1")))

(defun wrong-params (foo &optional _unused)
  foo)

(with-suppressed-warnings ((lexical prefixless))
  (defvar prefixless))

(with-suppressed-warnings ((redefine redefine))
  (defun redefine (foo bar)
    (cons foo bar)))

(defun tests ()
  (with-suppressed-warnings ((constants nil))
    (let ((nil t))
      (message-mail)))
  
  (with-suppressed-warnings ((obsolete obsolete))
    (obsolete))
  (with-suppressed-warnings ((callargs wrong-params))
    (wrong-params 1 2 3))
  (with-suppressed-warnings ((obsolete obsolete-variable))
    obsolete-variable)

  (with-suppressed-warnings ((mapcar mapcar))
    (mapcar #'list '(1 2 3)))
  
  (with-suppressed-warnings ((free-vars free-variable))
    free-variable)

  (with-suppressed-warnings ((suspicious set-buffer))
    (save-excursion
      (set-buffer (get-buffer-create "foo"))
      nil))

  )


-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no