I have the following function, where I would like to use completion to set the style. But the way I have done does not reset the style using M-x rk-bracemk-companion.
(defcustom rk-bracemk-companion-style '("parenthesis" "expression" "mixed") "Set bracemk-companion-style." :type '(repeat string) :group 'convenience) (defun rk-bracemk-companion (style) "Indicates counterpart character when matching bracketing pairs." (interactive (list (completing-read "bracemk-companion, Sel Style: " rk-bracemk-companion-style))) (show-paren-mode 1) (setq show-paren-delay 1.3) ;; Options: Style | `parenthesis', `expression', `mixed' (setq show-paren-style style) (setq show-paren-when-point-inside-paren t))