1 (add-to-list 'load-path
"../contrib")
2 (add-to-list 'load-path
"../experimental")
3 (add-to-list 'load-path
"../lisp")
5 (defun muse-elint-files ()
10 (load "muse" nil nomessage
)
11 ;;(load "muse-arabic" nil nomessage)
12 (load "muse-book" nil nomessage
)
13 ;;(load "muse-cite" nil nomessage)
14 (load "muse-colors" nil nomessage
)
15 (load "muse-html" nil nomessage
)
16 (load "muse-http" nil nomessage
)
17 (load "muse-journal" nil nomessage
)
18 (load "muse-latex" nil nomessage
)
19 (load "muse-mode" nil nomessage
)
20 (load "muse-poem" nil nomessage
)
21 (load "muse-project" nil nomessage
)
22 (load "muse-regexps" nil nomessage
)
23 (load "muse-texinfo" nil nomessage
)
25 (add-to-list 'elint-standard-variables
'current-prefix-arg
)
26 (add-to-list 'elint-standard-variables
'command-line-args-left
)
27 (add-to-list 'elint-standard-variables
'buffer-file-coding-system
)
28 (add-to-list 'elint-standard-variables
'save-some-buffers-action-alist
)
29 (add-to-list 'elint-standard-variables
'emacs-major-version
)
30 (add-to-list 'elint-standard-variables
'emacs-minor-version
)
31 (add-to-list 'elint-standard-variables
'emacs-version
)
32 (add-to-list 'elint-standard-variables
'window-system
)
33 (add-to-list 'elint-standard-variables
'muse-mode-abbrev-table
)
34 (dolist (file command-line-args-left
)
36 (message "Checking %s ..." file
)
37 (elint-current-buffer)
38 (with-current-buffer (elint-get-log-buffer)
39 (goto-char (point-min))
41 (while (not (or (eobp)
42 (looking-at "^Linting complete")))
43 (message (buffer-substring (muse-line-beginning-position)
44 (muse-line-end-position)))
46 (kill-buffer (current-buffer))))