From df380962210bb5f655f9ad80b38e88a8254b6b61 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 13 Mar 2003 18:10:41 +0000 Subject: [PATCH] (custom-set-minor-mode): New fun. --- lisp/custom.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/custom.el b/lisp/custom.el index 8ed78fd649d..bcec5904fd8 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -797,6 +797,17 @@ this sets the local binding in that buffer instead." (set variable value)) (set-default variable value))) +(defun custom-set-minor-mode (variable value) + ":set function for minor mode variables. +Normally, this sets the default value of VARIABLE to nil if VALUE +is nil and to t otherwise, +but if `custom-local-buffer' is non-nil, +this sets the local binding in that buffer instead." + (if custom-local-buffer + (with-current-buffer custom-local-buffer + (funcall variable (or value 0))) + (funcall variable (or value 0)))) + (defun custom-quote (sexp) "Quote SEXP iff it is not self quoting." (if (or (memq sexp '(t nil)) -- 2.39.5