Mercurial > emacs
comparison lisp/custom.el @ 83542:2d56e13fd23d
Merged from emacs@sv.gnu.org
Patches applied:
* emacs@sv.gnu.org/emacs--devo--0--patch-413
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-414
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-415
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-416
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-417
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-418
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-419
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-420
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-421
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-422
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-423
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-424
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-425
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-426
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-427
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-428
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-429
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-430
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-431
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-432
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-433
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-434
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-435
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-436
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-437
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-438
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-439
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-440
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-441
lisp/url/url-methods.el: Fix format error when http_proxy is empty string
* emacs@sv.gnu.org/emacs--devo--0--patch-442
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-443
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-444
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-445
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-446
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-447
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-448
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-449
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-450
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-451
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-452
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-453
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-454
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-455
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-456
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-457
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-458
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-459
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-460
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-461
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-462
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-463
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-464
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-465
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-466
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-467
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-468
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-469
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-470
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-471
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-472
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-473
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-128
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-129
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-130
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-131
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-132
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-133
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-134
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-135
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-136
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-137
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-138
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-139
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-140
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-141
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-142
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-143
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-144
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-145
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-146
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-147
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-148
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-149
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-582
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Sat, 14 Oct 2006 17:36:28 +0000 |
parents | 16edffa03262 |
children | 7054ae4948fb bb0e318b7c53 |
comparison
equal
deleted
inserted
replaced
83541:694bbb62a75d | 83542:2d56e13fd23d |
---|---|
208 variable. It takes two arguments, the symbol and value | 208 variable. It takes two arguments, the symbol and value |
209 given in the `defcustom' call. The default is | 209 given in the `defcustom' call. The default is |
210 `custom-initialize-reset'. | 210 `custom-initialize-reset'. |
211 :set VALUE should be a function to set the value of the symbol. | 211 :set VALUE should be a function to set the value of the symbol. |
212 It takes two arguments, the symbol to set and the value to | 212 It takes two arguments, the symbol to set and the value to |
213 give it. The default choice of function is `custom-set-default'. | 213 give it. The default choice of function is `set-default'. |
214 :get VALUE should be a function to extract the value of symbol. | 214 :get VALUE should be a function to extract the value of symbol. |
215 The function takes one argument, a symbol, and should return | 215 The function takes one argument, a symbol, and should return |
216 the current value for that symbol. The default choice of function | 216 the current value for that symbol. The default choice of function |
217 is `custom-default-value'. | 217 is `default-value'. |
218 :require | 218 :require |
219 VALUE should be a feature symbol. If you save a value | 219 VALUE should be a feature symbol. If you save a value |
220 for this option, then when your `.emacs' file loads the value, | 220 for this option, then when your `.emacs' file loads the value, |
221 it does (require VALUE) first. | 221 it does (require VALUE) first. |
222 | 222 |
872 COMMENT is a comment string about SYMBOL. | 872 COMMENT is a comment string about SYMBOL. |
873 | 873 |
874 EXP itself is saved unevaluated as SYMBOL property `saved-value' and | 874 EXP itself is saved unevaluated as SYMBOL property `saved-value' and |
875 in SYMBOL's list property `theme-value' \(using `custom-push-theme')." | 875 in SYMBOL's list property `theme-value' \(using `custom-push-theme')." |
876 (custom-check-theme theme) | 876 (custom-check-theme theme) |
877 | |
878 ;; Process all the needed autoloads before anything else, so that the | |
879 ;; subsequent code has all the info it needs (e.g. which var corresponds | |
880 ;; to a minor mode), regardless of the ordering of the variables. | |
881 (dolist (entry args) | |
882 (let* ((symbol (indirect-variable (nth 0 entry)))) | |
883 (unless (or (get symbol 'standard-value) | |
884 (memq (get symbol 'custom-autoload) '(nil noset))) | |
885 ;; This symbol needs to be autoloaded, even just for a `set'. | |
886 (custom-load-symbol symbol)))) | |
887 | |
888 ;; Move minor modes and variables with explicit requires to the end. | |
877 (setq args | 889 (setq args |
878 (sort args | 890 (sort args |
879 (lambda (a1 a2) | 891 (lambda (a1 a2) |
880 (let* ((sym1 (car a1)) | 892 (let* ((sym1 (car a1)) |
881 (sym2 (car a2)) | 893 (sym2 (car a2)) |
902 (comment (nth 4 entry)) | 914 (comment (nth 4 entry)) |
903 set) | 915 set) |
904 (when requests | 916 (when requests |
905 (put symbol 'custom-requests requests) | 917 (put symbol 'custom-requests requests) |
906 (mapc 'require requests)) | 918 (mapc 'require requests)) |
907 (unless (or (get symbol 'standard-value) | |
908 (memq (get symbol 'custom-autoload) '(nil noset))) | |
909 ;; This symbol needs to be autoloaded, even just for a `set'. | |
910 (custom-load-symbol symbol)) | |
911 (setq set (or (get symbol 'custom-set) 'custom-set-default)) | 919 (setq set (or (get symbol 'custom-set) 'custom-set-default)) |
912 (put symbol 'saved-value (list value)) | 920 (put symbol 'saved-value (list value)) |
913 (put symbol 'saved-variable-comment comment) | 921 (put symbol 'saved-variable-comment comment) |
914 (custom-push-theme 'theme-value symbol theme 'set value) | 922 (custom-push-theme 'theme-value symbol theme 'set value) |
915 ;; Allow for errors in the case where the setter has | 923 ;; Allow for errors in the case where the setter has |