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
|
(add-to-list 'load-path ".")
;; If you want Remember to find all of these programs when
;; byte-compiling Remember, make sure to edit these paths to match your
;; configuration.
(add-to-list 'load-path "~/elisp/muse/lisp")
(add-to-list 'load-path "~/elisp/planner")
(add-to-list 'load-path "~/elisp/bbdb/lisp")
(defun remember-elint-files ()
(require 'elint)
(elint-initialize)
(defvar nomessage t)
(load "remember" 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)
(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 (point-at-bol)
(point-at-eol)))
(forward-line 1)))
(kill-buffer (current-buffer))))
(defun remember-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 "remember-autoloads.el"))
(setq command-line-args-left (mapcar #'expand-file-name
command-line-args-left))
(if (featurep 'xemacs)
(progn
(setq autoload-package-name "remember")
(batch-update-autoloads))
(find-file generated-autoload-file)
(delete-region (point-min) (point-max))
(insert ";;; remember-autoloads.el --- autoloads for Remember
;;
;;; Code:
")
(save-buffer 0)
(batch-update-autoloads)
(find-file generated-autoload-file)
(goto-char (point-max))
(insert ?\n)
(insert "(provide 'remember-autoloads)
;;; remember-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))))
|
