Mercurial > emacs
comparison lisp/cus-edit.el @ 69007:b9e2a1b4b54a
* cus-edit.el (customize-set-variable): Push setting to `user' theme.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 19 Feb 2006 17:27:37 +0000 |
| parents | f4a06252f47c |
| children | 901e5cda9c30 d1c5430c5bff |
comparison
equal
deleted
inserted
replaced
| 69006:e4d97c1f1377 | 69007:b9e2a1b4b54a |
|---|---|
| 930 If given a prefix (or a COMMENT argument), also prompt for a comment." | 930 If given a prefix (or a COMMENT argument), also prompt for a comment." |
| 931 (interactive (custom-prompt-variable "Set variable: " | 931 (interactive (custom-prompt-variable "Set variable: " |
| 932 "Set customized value for %s to: " | 932 "Set customized value for %s to: " |
| 933 current-prefix-arg)) | 933 current-prefix-arg)) |
| 934 (custom-load-symbol variable) | 934 (custom-load-symbol variable) |
| 935 (custom-push-theme 'theme-value variable 'user 'set (custom-quote value)) | |
| 935 (funcall (or (get variable 'custom-set) 'set-default) variable value) | 936 (funcall (or (get variable 'custom-set) 'set-default) variable value) |
| 936 (put variable 'customized-value (list (custom-quote value))) | 937 (put variable 'customized-value (list (custom-quote value))) |
| 937 (cond ((string= comment "") | 938 (cond ((string= comment "") |
| 938 (put variable 'variable-comment nil) | 939 (put variable 'variable-comment nil) |
| 939 (put variable 'customized-variable-comment nil)) | 940 (put variable 'customized-variable-comment nil)) |