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
|
(message "testing")
(setq debug-on-error t)
(add-to-list 'load-path (file-name-directory load-file-name))
(custom-set-variables
'(custom-file "/tmp/settings.el")
'(mac-command-modifier 'meta)
'(initsplit-customizations-alist
'(("\\`a" "/tmp/a-settings.el")
("\\`b" "/tmp/b-settings.el")
("\\`[ac]" "/tmp/c-settings.el")
("\\`d" "/tmp/a-settings.el")))
)
(require 'initsplit)
(defgroup test nil "")
(dolist (symbol '(apple boy cat dog))
(eval `(defcustom ,symbol nil "doc" :group 'test))
(set symbol t)
(put symbol 'saved-value '(t)))
(custom-save-all)
(kill-emacs)
(customize-group "test")
;; expectations:
;; a-settings.el: apple, dog
;; b-settings.el: boy
;; c-settings.el: cat
|
