annotate lisp/cus-dep.el @ 62129:c86c86ce57a3

Update maintainer. (solar-setup): Throw error if called non-interactively.
author Glenn Morris <rgm@gnu.org>
date Fri, 06 May 2005 20:56:52 +0000
parents 695cf19ef79e
children 6fb026ad601f 375f2633d815
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 30884
diff changeset
1 ;;; cus-dep.el --- find customization dependencies
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
2 ;;
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
4 ;;
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
6 ;; Keywords: internal
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
7
17520
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
8 ;; This file is part of GNU Emacs.
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
9
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
13 ;; any later version.
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
14
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
18 ;; GNU General Public License for more details.
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
19
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
20 ;; You should have received a copy of the GNU General Public License
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
23 ;; Boston, MA 02111-1307, USA.
f33d7729b6a1 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17479
diff changeset
24
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 30884
diff changeset
25 ;;; Commentary:
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 30884
diff changeset
26
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
27 ;;; Code:
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
28
28301
88b4e08f3ac1 Require CL at compile-time only.
Gerd Moellmann <gerd@gnu.org>
parents: 23099
diff changeset
29 (eval-when-compile (require 'cl))
17685
3a1471ba9387 (custom-make-dependencies):
Richard M. Stallman <rms@gnu.org>
parents: 17520
diff changeset
30 (require 'widget)
3a1471ba9387 (custom-make-dependencies):
Richard M. Stallman <rms@gnu.org>
parents: 17520
diff changeset
31 (require 'cus-face)
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
32
48992
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
33 (defvar generated-custom-dependencies-file "cus-load.el"
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
34 "File \\[cusom-make-dependencies] puts custom dependencies into.")
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
35
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
36 (defun custom-make-dependencies ()
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
37 "Batch function to extract custom dependencies from .el files.
17744
2522a70cd009 (custom-make-dependencies): Don't find the subdirs here;
Richard M. Stallman <rms@gnu.org>
parents: 17685
diff changeset
38 Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
47824
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
39 (let ((enable-local-eval nil))
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
40 (set-buffer (get-buffer-create " cus-dep temp"))
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
41 (dolist (subdir command-line-args-left)
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
42 (message "Directory %s" subdir)
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
43 (let ((files (directory-files subdir nil "\\`[^=].*\\.el\\'"))
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
44 (default-directory (expand-file-name subdir))
47850
6a654788d913 (custom-make-dependencies): Ignore preloaded files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47824
diff changeset
45 (preloaded (concat "\\`"
6a654788d913 (custom-make-dependencies): Ignore preloaded files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47824
diff changeset
46 (regexp-opt (mapcar
6a654788d913 (custom-make-dependencies): Ignore preloaded files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47824
diff changeset
47 (lambda (f)
6a654788d913 (custom-make-dependencies): Ignore preloaded files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47824
diff changeset
48 (file-name-sans-extension
6a654788d913 (custom-make-dependencies): Ignore preloaded files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47824
diff changeset
49 (file-name-nondirectory f)))
6a654788d913 (custom-make-dependencies): Ignore preloaded files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47824
diff changeset
50 preloaded-file-list) t)
48249
4da41542c6ed Don't require 'autoload.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48187
diff changeset
51 "\\.el\\'")))
47824
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
52 (dolist (file files)
47850
6a654788d913 (custom-make-dependencies): Ignore preloaded files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47824
diff changeset
53 (when (and (file-exists-p file)
6a654788d913 (custom-make-dependencies): Ignore preloaded files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47824
diff changeset
54 ;; Ignore files that are preloaded.
6a654788d913 (custom-make-dependencies): Ignore preloaded files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47824
diff changeset
55 (not (string-match preloaded file)))
17744
2522a70cd009 (custom-make-dependencies): Don't find the subdirs here;
Richard M. Stallman <rms@gnu.org>
parents: 17685
diff changeset
56 (erase-buffer)
2522a70cd009 (custom-make-dependencies): Don't find the subdirs here;
Richard M. Stallman <rms@gnu.org>
parents: 17685
diff changeset
57 (insert-file-contents file)
2522a70cd009 (custom-make-dependencies): Don't find the subdirs here;
Richard M. Stallman <rms@gnu.org>
parents: 17685
diff changeset
58 (goto-char (point-min))
2522a70cd009 (custom-make-dependencies): Don't find the subdirs here;
Richard M. Stallman <rms@gnu.org>
parents: 17685
diff changeset
59 (string-match "\\`\\(.*\\)\\.el\\'" file)
48335
ce84fde651fc (custom-make-dependencies): Bind load-file-name.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48249
diff changeset
60 (let ((name (file-name-nondirectory (match-string 1 file)))
ce84fde651fc (custom-make-dependencies): Bind load-file-name.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48249
diff changeset
61 (load-file-name file))
47824
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
62 (if (save-excursion
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
63 (re-search-forward
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
64 (concat "(provide[ \t\n]+\\('\\|(quote[ \t\n]\\)[ \t\n]*"
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
65 (regexp-quote name) "[ \t\n)]")
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
66 nil t))
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
67 (setq name (intern name)))
17744
2522a70cd009 (custom-make-dependencies): Don't find the subdirs here;
Richard M. Stallman <rms@gnu.org>
parents: 17685
diff changeset
68 (condition-case nil
47824
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
69 (while (re-search-forward
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
70 "^(def\\(custom\\|face\\|group\\)" nil t)
17744
2522a70cd009 (custom-make-dependencies): Don't find the subdirs here;
Richard M. Stallman <rms@gnu.org>
parents: 17685
diff changeset
71 (beginning-of-line)
2522a70cd009 (custom-make-dependencies): Don't find the subdirs here;
Richard M. Stallman <rms@gnu.org>
parents: 17685
diff changeset
72 (let ((expr (read (current-buffer))))
21755
44c9237d9e52 (custom-make-dependencies): Don't give up
Richard M. Stallman <rms@gnu.org>
parents: 19526
diff changeset
73 (condition-case nil
47571
c26abde8fcad (custom-make-dependencies): Bind to t around evaluating the def-form.
Richard M. Stallman <rms@gnu.org>
parents: 47557
diff changeset
74 (let ((custom-dont-initialize t))
21755
44c9237d9e52 (custom-make-dependencies): Don't give up
Richard M. Stallman <rms@gnu.org>
parents: 19526
diff changeset
75 (eval expr)
44c9237d9e52 (custom-make-dependencies): Don't give up
Richard M. Stallman <rms@gnu.org>
parents: 19526
diff changeset
76 (put (nth 1 expr) 'custom-where name))
44c9237d9e52 (custom-make-dependencies): Don't give up
Richard M. Stallman <rms@gnu.org>
parents: 19526
diff changeset
77 (error nil))))
47824
f9a9cf859646 (custom-make-dependencies): Don't use find-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47571
diff changeset
78 (error nil))))))))
48992
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
79 (message "Generating %s..." generated-custom-dependencies-file)
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
80 (set-buffer (find-file-noselect generated-custom-dependencies-file))
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
81 (erase-buffer)
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
82 (insert "\
48992
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
83 ;;; " (file-name-nondirectory generated-custom-dependencies-file)
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
84 " --- automatically extracted custom dependencies
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
85 ;;
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
86 ;;; Code:
17395
ad9d92edda0d Added newline.
Per Abrahamsen <abraham@dina.kvl.dk>
parents: 17393
diff changeset
87
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
88 ")
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
89 (mapatoms (lambda (symbol)
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
90 (let ((members (get symbol 'custom-group))
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
91 item where found)
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
92 (when members
47528
227850832281 (custom-make-dependencies): Sort MEMBERS before use.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
93 ;; So x and no-x builds won't differ.
47555
bb2e6b4867d5 (custom-make-dependencies): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 47528
diff changeset
94 (setq members
49588
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49221
diff changeset
95 (sort (copy-sequence members)
47557
5a735e0d66d4 (custom-make-dependencies): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 47555
diff changeset
96 (lambda (x y) (string< (car x) (car y)))))
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
97 (while members
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
98 (setq item (car (car members))
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
99 members (cdr members)
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
100 where (get item 'custom-where))
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
101 (unless (or (null where)
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
102 (member where found))
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
103 (if found
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
104 (insert " ")
49588
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49221
diff changeset
105 (insert "(put '" (symbol-name symbol)
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
106 " 'custom-loads '("))
17473
83503d0dc576 Fixed generation of empty dependencies lists.
Per Abrahamsen <abraham@dina.kvl.dk>
parents: 17395
diff changeset
107 (prin1 where (current-buffer))
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
108 (push where found)))
17473
83503d0dc576 Fixed generation of empty dependencies lists.
Per Abrahamsen <abraham@dina.kvl.dk>
parents: 17395
diff changeset
109 (when found
83503d0dc576 Fixed generation of empty dependencies lists.
Per Abrahamsen <abraham@dina.kvl.dk>
parents: 17395
diff changeset
110 (insert "))\n"))))))
17479
b613ee4fd988 provide `cus-load'.
Per Abrahamsen <abraham@dina.kvl.dk>
parents: 17474
diff changeset
111 (insert "\
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
112 ;;; These are for handling :version. We need to have a minimum of
49588
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49221
diff changeset
113 ;;; information so `customize-changed-options' could do its job.
49221
1d842f148f6e Update the description of version handling.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 49219
diff changeset
114
1d842f148f6e Update the description of version handling.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 49219
diff changeset
115 ;;; For groups we set `custom-version', `group-documentation' and
1d842f148f6e Update the description of version handling.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 49219
diff changeset
116 ;;; `custom-tag' (which are shown in the customize buffer), so we
1d842f148f6e Update the description of version handling.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 49219
diff changeset
117 ;;; don't have to load the file containing the group.
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
118
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
119 ;;; `custom-versions-load-alist' is an alist that has as car a version
49221
1d842f148f6e Update the description of version handling.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 49219
diff changeset
120 ;;; number and as elts the files that have variables or faces that
1d842f148f6e Update the description of version handling.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 49219
diff changeset
121 ;;; contain that version. These files should be loaded before showing
1d842f148f6e Update the description of version handling.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 49219
diff changeset
122 ;;; the customization buffer that `customize-changed-options'
1d842f148f6e Update the description of version handling.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 49219
diff changeset
123 ;;; generates.
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
124
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
125 ;;; This macro is used so we don't modify the information about
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
126 ;;; variables and groups if it's already set. (We don't know when
48992
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
127 ;;; " (file-name-nondirectory generated-custom-dependencies-file)
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
128 " is going to be loaded and at that time some of the
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
129 ;;; files might be loaded and some others might not).
30884
a6155f9c1e66 (custom-make-dependencies): Quote open-paren in string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30883
diff changeset
130 \(defmacro custom-put-if-not (symbol propname value)
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
131 `(unless (get ,symbol ,propname)
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
132 (put ,symbol ,propname ,value)))
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
133
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
134 ")
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
135 (let ((version-alist nil))
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
136 (mapatoms (lambda (symbol)
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
137 (let ((version (get symbol 'custom-version))
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
138 where)
49588
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49221
diff changeset
139 (when version
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
140 (setq where (get symbol 'custom-where))
48249
4da41542c6ed Don't require 'autoload.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48187
diff changeset
141 (when where
49219
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
142 (if (or (custom-variable-p symbol)
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
143 (custom-facep symbol))
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
144 ;; This means it's a variable or a face.
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
145 (progn
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
146 (if (assoc version version-alist)
49588
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49221
diff changeset
147 (unless
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49221
diff changeset
148 (member where
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
149 (cdr (assoc version version-alist)))
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
150 (push where (cdr (assoc version version-alist))))
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
151 (push (cons version (list where)) version-alist)))
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
152 ;; This is a group
49588
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49221
diff changeset
153 (insert "(custom-put-if-not '" (symbol-name symbol)
49219
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
154 " 'custom-version ")
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
155 (prin1 version (current-buffer))
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
156 (insert ")\n")
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
157 (insert "(custom-put-if-not '" (symbol-name symbol))
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
158 (insert " 'group-documentation ")
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
159 (prin1 (get symbol 'group-documentation) (current-buffer))
49219
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
160 (insert ")\n")
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
161 (when (get symbol 'custom-tag)
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
162 (insert "(custom-put-if-not '" (symbol-name symbol))
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
163 (insert " 'custom-tag ")
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
164 (prin1 (get symbol 'custom-tag) (current-buffer))
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
165 (insert ")\n"))
e53c0b341ec5 (custom-make-dependencies): Don't set standard-value
Markus Rost <rost@math.uni-bielefeld.de>
parents: 48992
diff changeset
166 ))))))
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
167
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
168 (insert "\n(defvar custom-versions-load-alist "
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
169 (if version-alist "'" ""))
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
170 (prin1 version-alist (current-buffer))
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
171 (insert "\n \"For internal use by custom.\")\n"))
49588
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49221
diff changeset
172
22538
2649d061d370 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21755
diff changeset
173 (insert "\
17479
b613ee4fd988 provide `cus-load'.
Per Abrahamsen <abraham@dina.kvl.dk>
parents: 17474
diff changeset
174
48992
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
175 \(provide '" (file-name-sans-extension
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
176 (file-name-nondirectory generated-custom-dependencies-file)) ")
17479
b613ee4fd988 provide `cus-load'.
Per Abrahamsen <abraham@dina.kvl.dk>
parents: 17474
diff changeset
177
30883
869204bacd5f Add local-variable settings to the generated file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28301
diff changeset
178 ;;; Local Variables:
869204bacd5f Add local-variable settings to the generated file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28301
diff changeset
179 ;;; version-control: never
869204bacd5f Add local-variable settings to the generated file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28301
diff changeset
180 ;;; no-byte-compile: t
869204bacd5f Add local-variable settings to the generated file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28301
diff changeset
181 ;;; no-update-autoloads: t
869204bacd5f Add local-variable settings to the generated file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28301
diff changeset
182 ;;; End:
48992
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
183 ;;; " (file-name-nondirectory generated-custom-dependencies-file) " ends here\n")
17685
3a1471ba9387 (custom-make-dependencies):
Richard M. Stallman <rms@gnu.org>
parents: 17520
diff changeset
184 (let ((kept-new-versions 10000000))
3a1471ba9387 (custom-make-dependencies):
Richard M. Stallman <rms@gnu.org>
parents: 17520
diff changeset
185 (save-buffer))
48992
1e54c94f1eca * cus-dep.el (generated-custom-dependencies-file): New variable.
Andreas Schwab <schwab@suse.de>
parents: 48335
diff changeset
186 (message "Generating %s...done" generated-custom-dependencies-file)
17744
2522a70cd009 (custom-make-dependencies): Don't find the subdirs here;
Richard M. Stallman <rms@gnu.org>
parents: 17685
diff changeset
187 (kill-emacs))
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
188
30883
869204bacd5f Add local-variable settings to the generated file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28301
diff changeset
189
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49588
diff changeset
190
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49588
diff changeset
191 ;;; arch-tag: b7b6421a-bf7a-44fd-a382-6f44976bdf68
17393
14c7f7b87c22 Initial revision
Per Abrahamsen <abraham@dina.kvl.dk>
parents:
diff changeset
192 ;;; cus-dep.el ends here