← Back to branch summary

~ubuntu-branches/ubuntu/feisty/muse-el/feisty

« back to all changes in this revision

Viewing changes to scripts/muse-build.el

  • Committer: Bazaar Package Importer
  • Author(s): Michael W. Olson (GNU address)
  • Date: 2005-12-17 12:11:27 UTC
  • Revision ID: james.westby@ubuntu.com-20051217121127-b4yfr70a7hnrexdg
Tags: upstream-3.02.5
Import upstream version 3.02.5

Show diffs side-by-side

added added

removed removed

Lines of Context:
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))))