diff options
| author | Chong Yidong | 2006-02-19 17:27:37 +0000 |
|---|---|---|
| committer | Chong Yidong | 2006-02-19 17:27:37 +0000 |
| commit | 8ed50a66d39f7b118d800417f29218225df3ad40 (patch) | |
| tree | bad2eae6a53af132ce53c7f8fb7b979af959777a | |
| parent | fccf278488785f482c7c50ac0713aa8f60dafbe9 (diff) | |
| download | emacs-8ed50a66d39f7b118d800417f29218225df3ad40.tar.gz emacs-8ed50a66d39f7b118d800417f29218225df3ad40.zip | |
* cus-edit.el (customize-set-variable): Push setting to `user' theme.
| -rw-r--r-- | lisp/cus-edit.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 77335615bfe..feacc9adf0d 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -932,6 +932,7 @@ If given a prefix (or a COMMENT argument), also prompt for a comment." | |||
| 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 "") |