1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
(add-to-list 'load-path ".")
;; If you want Planner to find all of these programs when
;; byte-compiling Planner, make sure to edit these paths to match your
;; configuration.
(add-to-list 'load-path "~/elisp/muse/lisp")
(add-to-list 'load-path "~/elisp/remember")
(add-to-list 'load-path "~/elisp/bbdb/lisp")
(add-to-list 'load-path "~/elisp/erc")
(add-to-list 'load-path "~/elisp/gnats")
(add-to-list 'load-path "~/elisp/gnus/lisp")
(add-to-list 'load-path "~/elisp/psvn")
(add-to-list 'load-path "~/elisp/vm")
(add-to-list 'load-path "~/elisp/w3m")
(add-to-list 'load-path "~/elisp/wl")
(add-to-list 'load-path "~/elisp/xtla")
(defun planner-elint-files ()
(require 'elint)
(elint-initialize)
(defvar nomessage t)
(load "planner" nil nomessage)
(load "muse-mode" nil nomessage)
(dolist (file (directory-files "." nil "\\.el$"))
(setq file (substring file 0 (string-match "\\.el$" file)))
(load file nil nomessage))
(add-to-list 'elint-standard-variables 'current-prefix-arg)
(add-to-list 'elint-standard-variables 'command-line-args-left)
(add-to-list 'elint-standard-variables 'buffer-file-coding-system)
(add-to-list 'elint-standard-variables 'save-some-buffers-action-alist)
(add-to-list 'elint-standard-variables 'emacs-major-version)
(add-to-list 'elint-standard-variables 'emacs-minor-version)
(add-to-list 'elint-standard-variables 'emacs-version)
(add-to-list 'elint-standard-variables 'window-system)
(add-to-list 'elint-standard-variables 'debug-on-error)
(add-to-list 'elint-standard-variables 'planner-mode-abbrev-table)
(dolist (file command-line-args-left)
(find-file file)
(message "Checking %s ..." file)
(elint-current-buffer)
(with-current-buffer (elint-get-log-buffer)
(goto-char (point-min))
(forward-line 2)
(while (not (or (eobp)
(looking-at "^Linting complete")))
(message (buffer-substring (planner-line-beginning-position)
(planner-line-end-position)))
(forward-line 1)))
(kill-buffer (current-buffer))))
(defun planner-generate-autoloads ()
(interactive)
(defvar autoload-package-name)
(defvar command-line-args-left)
(defvar generated-autoload-file)
(require 'autoload)
(setq generated-autoload-file (expand-file-name "planner-autoloads.el"))
(setq command-line-args-left (mapcar #'expand-file-name
command-line-args-left))
(if (featurep 'xemacs)
(progn
(setq autoload-package-name "planner")
(batch-update-autoloads))
(find-file generated-autoload-file)
(delete-region (point-min) (point-max))
(insert ";;; planner-autoloads.el --- autoloads for Planner
;;
;;; Code:
")
(save-buffer 0)
(batch-update-autoloads)
(find-file generated-autoload-file)
(goto-char (point-max))
(insert ?\n)
(insert "(provide 'planner-autoloads)
;;; planner-autoloads.el ends here
;;
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; End:
")
(insert ?\n)
(save-buffer 0)
(kill-buffer (current-buffer))))
|
