Mercurial > emacs

comparison lisp/custom.el @ 86028:cdd09d6acfdc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-note-var-changed): Remove the `interactive' spec from this new non-interactive function.
author Juri Linkov <juri@jurta.org>
date Sat, 10 Nov 2007 23:03:31 +0000
parents 58abbc936e8f
children 531c5185ef7c 880960b70474
comparison
equal deleted inserted replaced
86027:f194d32fb97d 86028:cdd09d6acfdc
581 581
582 (defun custom-note-var-changed (variable) 582 (defun custom-note-var-changed (variable)
583 "Inform Custom that VARIABLE has been set (changed). 583 "Inform Custom that VARIABLE has been set (changed).
584 VARIABLE is a symbol that names a user option. 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." 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))))) 586 (put variable 'customized-value (list (custom-quote (eval variable)))))
588 587
589 ;;; Custom Themes 588
589 ;;; Custom Themes
590 590
591 ;;; Loading files needed to customize a symbol. 591 ;;; Loading files needed to customize a symbol.
592 ;;; 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.
593 593
594 (defvar custom-load-recursion nil 594 (defvar custom-load-recursion nil