elisp-check.el

(defun elisp-check ()
  "Check the current buffer for possible elisp problems.

This actually byte compiles the buffer, but throws away the
result and keeps only the warnings."
  (interactive)
  (let ((lisp (buffer-substring-no-properties (point-min)
                                              (point-max))))
   (with-temp-buffer
     (setq buffer-file-coding-system nil)
     (set-buffer-multibyte t)
     (insert lisp)
     (let ((byte-compile-log-buffer (format "*Check for %s*"
                                            (buffer-name)))
           (byte-compile-verbose nil))
       (byte-compile-from-buffer (current-buffer))))))