[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Convert strings to appropriate symbols
From: |
Heime |
Subject: |
Convert strings to appropriate symbols |
Date: |
Wed, 27 Mar 2024 14:23:39 +0000 |
How can I ensure that the text strings from completing-read
are properly transformed to the symbols required by
outline-minor-mode-highlight ?
(defun outl-flock (actm)
"Set font-lock rules for 'outline-minor-mode'.
(interactive
(let ( (cseq '("append" "t" "nil" "override")) )
(list
(completing-read "Font-Lock Rules: " cseq nil t "override"))))
(setq outline-minor-mode-highlight
(if (equal actm "t")
t
(intern actm))) )
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Convert strings to appropriate symbols,
Heime <=