(custom-note-var-changed): New function.

diff --git a/lisp/custom.el b/lisp/custom.el
index 95abaa55da36192dc448327ee2264ac4ee0c7806..e75cdc324590119eaa6f8bdd3d5f0fd154988944 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -579,6 +579,15 @@ This recursively follows aliases."
   (or (get variable 'standard-value)
       (get variable 'custom-autoload)))
 
+(defun custom-note-var-changed (variable)
+  "Inform Custom that VARIABLE has been set (changed).
+VARIABLE is a symbol that names a user option.
+The result is that the change is treated as having been made through Custom."
+  (interactive "vVariable: ")
+  (put variable 'customized-value (list (custom-quote (eval variable)))))
+  \f
+  ;;; Custom Themes
+
 ;;; Loading files needed to customize a symbol.
 ;;; This is in custom.el because menu-bar.el needs it for toggle cmds.