Mercurial > hg > xemacs-beta

comparison lisp/cus-dep.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents 677f6a0ee643
children 03446687b7cc
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
53 ;; A trivial, but useful optimization is that if cusload-file exists, 53 ;; A trivial, but useful optimization is that if cusload-file exists,
54 ;; and no .el files in the directory are newer than cusload-file, it 54 ;; and no .el files in the directory are newer than cusload-file, it
55 ;; will not be generated. This means that the directories where 55 ;; will not be generated. This means that the directories where
56 ;; nothing has changed will be skipped. 56 ;; nothing has changed will be skipped.
57 57
58 ;; The `custom-put' function, used by files generated by 58 ;; The `custom-add-loads' function, used by files generated by
59 ;; `Custom-make-dependencies', is a specialized function that updates 59 ;; `Custom-make-dependencies', updates the symbol's `custom-loads'
60 ;; a property (which must be a list of strings) with a new list of 60 ;; property (a list of strings) with a new list of strings,
61 ;; strings, eliminating the duplicates. As it also adds an 61 ;; eliminating the duplicates. Additionally, it adds the symbol to
62 ;; appropriate entry to a custom hash-table, *do not* use it outside 62 ;; `custom-group-hash-table'. It is defined in `cus-load.el'.
63 ;; of custom. Its inner workings can change anytime, without prior
64 ;; notice. `custom-put' is defined in `cus-load.el'.
65 63
66 ;; Example: 64 ;; Example:
67 65
68 ;; (custom-put 'foo 'custom-loads '("bar" "baz")) 66 ;; (custom-add-loads 'foo 'custom-loads '("bar" "baz"))
69 ;; (get 'foo 'custom-loads) 67 ;; (get 'foo 'custom-loads)
70 ;; => ("bar" "baz") 68 ;; => ("bar" "baz")
71 ;; 69 ;;
72 ;; (custom-put 'foo 'custom-loads '("hmph" "baz" "quz")) 70 ;; (custom-add-loads 'foo 'custom-loads '("hmph" "baz" "quz"))
73 ;; (get 'foo 'custom-loads) 71 ;; (get 'foo 'custom-loads)
74 ;; => ("bar" "baz" "hmph" "qux") 72 ;; => ("bar" "baz" "hmph" "qux")
75 73
76 ;; Obviously, this allows correct incremental loading of custom-load 74 ;; Obviously, this allows correct incremental loading of custom-load
77 ;; files. This is not necessary under FSF (they use a simple `put'), 75 ;; files. This is not necessary under FSF (they simply use `put'),
78 ;; since they have only *one* file. With the advent of packages, we 76 ;; since they have only one file with custom dependencies. With the
79 ;; cannot afford the same luxury. 77 ;; advent of packages, we cannot afford the same luxury.
80 78
81 79
82 ;;; Code: 80 ;;; Code:
83 81
84 (require 'cl) 82 (require 'cl)