Function: setopt--set-local

setopt--set-local is an autoloaded and byte-compiled function defined in cus-edit.el.gz.

Signature

(setopt--set-local VARIABLE VALUE)

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
;;;###autoload
(defun setopt--set-local (variable value)
  (custom-load-symbol variable)
  ;; Check that the type is correct.
  (when-let* ((type (get variable 'custom-type)))
    (unless (widget-apply (widget-convert type) :match value)
      (warn "Value does not match %S's type `%S': %S" variable type value)))
  (condition-case _
      (funcall (or (get variable 'custom-set)
                   (lambda (x v &optional _) (set-local x v)))
               variable value 'buffer-local)
    (wrong-number-of-arguments
     (error "The setter of %S does not support setopt-local" variable))))