841 |
this sets the local binding in that buffer instead." |
this sets the local binding in that buffer instead." |
842 |
(if custom-local-buffer |
(if custom-local-buffer |
843 |
(with-current-buffer custom-local-buffer |
(with-current-buffer custom-local-buffer |
844 |
(funcall variable (or value 0))) |
(funcall variable (if value 1 0))) |
845 |
(funcall variable (or value 0)))) |
(funcall variable (if value 1 0)))) |
846 |
|
|
847 |
(defun custom-quote (sexp) |
(defun custom-quote (sexp) |
848 |
"Quote SEXP iff it is not self quoting." |
"Quote SEXP iff it is not self quoting." |