797 |
(set variable value)) |
(set variable value)) |
798 |
(set-default variable value))) |
(set-default variable value))) |
799 |
|
|
800 |
|
(defun custom-set-minor-mode (variable value) |
801 |
|
":set function for minor mode variables. |
802 |
|
Normally, this sets the default value of VARIABLE to nil if VALUE |
803 |
|
is nil and to t otherwise, |
804 |
|
but if `custom-local-buffer' is non-nil, |
805 |
|
this sets the local binding in that buffer instead." |
806 |
|
(if custom-local-buffer |
807 |
|
(with-current-buffer custom-local-buffer |
808 |
|
(funcall variable (or value 0))) |
809 |
|
(funcall variable (or value 0)))) |
810 |
|
|
811 |
(defun custom-quote (sexp) |
(defun custom-quote (sexp) |
812 |
"Quote SEXP iff it is not self quoting." |
"Quote SEXP iff it is not self quoting." |
813 |
(if (or (memq sexp '(t nil)) |
(if (or (memq sexp '(t nil)) |