Use different mapping for S-tab on Windows.
[muse-el.git] / scripts / muse-build.el
blobe2ea69a3f68b5a023cf3a97364281f13dc2b0431
1 (add-to-list 'load-path "../contrib")
2 (add-to-list 'load-path "../lisp")
4 (defun muse-elint-files ()
5 (require 'elint)
6 (elint-initialize)
8 (defvar nomessage t)
9 (load "muse" nil nomessage)
10 ;;(load "muse-arabic" nil nomessage)
11 (load "muse-book" nil nomessage)
12 ;;(load "muse-cite" nil nomessage)
13 (load "muse-colors" nil nomessage)
14 (load "muse-html" nil nomessage)
15 (load "muse-http" nil nomessage)
16 (load "muse-journal" nil nomessage)
17 (load "muse-latex" nil nomessage)
18 (load "muse-mode" nil nomessage)
19 (load "muse-poem" nil nomessage)
20 (load "muse-project" nil nomessage)
21 (load "muse-regexps" nil nomessage)
22 (load "muse-texinfo" nil nomessage)
24 (add-to-list 'elint-standard-variables 'current-prefix-arg)
25 (add-to-list 'elint-standard-variables 'command-line-args-left)
26 (add-to-list 'elint-standard-variables 'buffer-file-coding-system)
27 (add-to-list 'elint-standard-variables 'save-some-buffers-action-alist)
28 (add-to-list 'elint-standard-variables 'emacs-major-version)
29 (add-to-list 'elint-standard-variables 'emacs-minor-version)
30 (add-to-list 'elint-standard-variables 'emacs-version)
31 (add-to-list 'elint-standard-variables 'window-system)
32 (add-to-list 'elint-standard-variables 'muse-mode-abbrev-table)
33 (dolist (file command-line-args-left)
34 (find-file file)
35 (message "Checking %s ..." file)
36 (elint-current-buffer)
37 (with-current-buffer (elint-get-log-buffer)
38 (goto-char (point-min))
39 (forward-line 2)
40 (while (not (or (eobp)
41 (looking-at "^Linting complete")))
42 (message (buffer-substring (muse-line-beginning-position)
43 (muse-line-end-position)))
44 (forward-line 1)))
45 (kill-buffer (current-buffer))))