1 (add-to-list 'load-path
"../lisp")
2 (add-to-list 'load-path
"../contrib")
4 (defun muse-elint-files ()
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
)
35 (message "Checking %s ..." file
)
36 (elint-current-buffer)
37 (with-current-buffer (elint-get-log-buffer)
38 (goto-char (point-min))
40 (while (not (or (eobp)
41 (looking-at "^Linting complete")))
42 (message (buffer-substring (muse-line-beginning-position)
43 (muse-line-end-position)))
45 (kill-buffer (current-buffer))))
