diff options
| author | Richard M. Stallman | 2007-10-26 03:50:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-10-26 03:50:56 +0000 |
| commit | 400b960e6779f2bf84944dd6fd676479abe285ff (patch) | |
| tree | c1c0a3faa5cbe8461ac665ce9f3422f336ef05c4 | |
| parent | a3547743e7c46b886d8b14c4098c005620b9a077 (diff) | |
| download | emacs-400b960e6779f2bf84944dd6fd676479abe285ff.tar.gz emacs-400b960e6779f2bf84944dd6fd676479abe285ff.zip | |
(custom-note-var-changed): New function.
| -rw-r--r-- | lisp/custom.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index 95abaa55da3..e75cdc32459 100644 --- a/lisp/custom.el +++ b/lisp/custom.el | |||
| @@ -579,6 +579,15 @@ This recursively follows aliases." | |||
| 579 | (or (get variable 'standard-value) | 579 | (or (get variable 'standard-value) |
| 580 | (get variable 'custom-autoload))) | 580 | (get variable 'custom-autoload))) |
| 581 | 581 | ||
| 582 | (defun custom-note-var-changed (variable) | ||
| 583 | "Inform Custom that VARIABLE has been set (changed). | ||
| 584 | VARIABLE is a symbol that names a user option. | ||
| 585 | The result is that the change is treated as having been made through Custom." | ||
| 586 | (interactive "vVariable: ") | ||
| 587 | (put variable 'customized-value (list (custom-quote (eval variable))))) | ||
| 588 | |||
| 589 | ;;; Custom Themes | ||
| 590 | |||
| 582 | ;;; Loading files needed to customize a symbol. | 591 | ;;; Loading files needed to customize a symbol. |
| 583 | ;;; This is in custom.el because menu-bar.el needs it for toggle cmds. | 592 | ;;; This is in custom.el because menu-bar.el needs it for toggle cmds. |
| 584 | 593 | ||