scripts/muse-build.el

   1 (add-to-list 'load-path "../contrib")
   2 (add-to-list 'load-path "../experimental")
   3 (add-to-list 'load-path "../lisp")
   4
   5 (defun muse-elint-files ()
   6   (require 'elint)
   7   (elint-initialize)
   8
   9   (defvar nomessage t)
  10   (load "muse" nil nomessage)
  11   (dolist (dir '("../lisp" "../contrib" "../experimental"))
  12     (dolist (file (directory-files dir nil "\\.el$"))
  13       (setq file (substring file 0 (string-match "\\.el$" file)))
  14       (load file nil nomessage)))
  15
  16   (add-to-list 'elint-standard-variables 'current-prefix-arg)
  17   (add-to-list 'elint-standard-variables 'command-line-args-left)
  18   (add-to-list 'elint-standard-variables 'buffer-file-coding-system)
  19   (add-to-list 'elint-standard-variables 'save-some-buffers-action-alist)
  20   (add-to-list 'elint-standard-variables 'emacs-major-version)
  21   (add-to-list 'elint-standard-variables 'emacs-minor-version)
  22   (add-to-list 'elint-standard-variables 'emacs-version)
  23   (add-to-list 'elint-standard-variables 'window-system)
  24   (add-to-list 'elint-standard-variables 'muse-mode-abbrev-table)
  25   (dolist (file command-line-args-left)
  26     (find-file file)
  27     (message "Checking %s ..." file)
  28     (elint-current-buffer)
  29     (with-current-buffer (elint-get-log-buffer)
  30       (goto-char (point-min))
  31       (forward-line 2)
  32       (while (not (or (eobp)
  33                       (looking-at "^Linting complete")))
  34         (message (buffer-substring (muse-line-beginning-position)
  35                                    (muse-line-end-position)))
  36         (forward-line 1)))
  37     (kill-buffer (current-buffer))))