* Toggle between read-only-mode
@ 2020-11-06 10:53 jai-bholeki via Users list for the GNU Emacs text editor
2020-11-06 12:23 ` jai-bholeki
0 siblings, 1 reply; 2+ messages in thread
From: jai-bholeki via Users list for the GNU Emacs text editor @ 2020-11-06 10:53 UTC (permalink / raw)
To: help-gnu-emacs@gnu.org
Have made two functions to set paren-style-parenthesis.
Now I am trying to make a keybinding that toggles through the two settings.
Have checked around and have not found examples on how it can be done.
> (defun parenhl-paren ()
> "paren-style-parenthesis sets highlighting for parenthetical marks"
> (interactive)
> (setq show-paren-style 'parenthesis)
> )
>
> (defun parenhl-expr ()
> "paren-style-parenthesis sets highlighting for parenthetical marks"
> (interactive)
> (setq show-paren-style 'expression)
> )
Sent with [ProtonMail](https://protonmail.com) Secure Email.
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Toggle between read-only-mode
2020-11-06 10:53 Toggle between read-only-mode jai-bholeki via Users list for the GNU Emacs text editor
@ 2020-11-06 12:23 ` jai-bholeki
0 siblings, 0 replies; 2+ messages in thread
From: jai-bholeki @ 2020-11-06 12:23 UTC (permalink / raw)
To: jai-bholeki; +Cc: help-gnu-emacs@gnu.org
Have done as follows, and it works
(defun parenhl-cycle ()
"Toggles the highlighting of parenthetical regions."
(interactive)
;; Use the property 'state' to cycle between parenthetical styles
(if (get 'paren-expr 'state)
(progn
(setq show-paren-style 'parenthesis)
(put 'paren-expr 'state nil))
(progn
(setq show-paren-style 'expression)
(put 'paren-expr 'state t))))
(global-set-key (kbd "H-z") 'parenhl-cycle)
‐‐‐‐‐‐‐ Original Message ‐‐‐‐‐‐‐
On Friday, 6 November 2020 11:53, jai-bholeki via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> wrote:
> Have made two functions to set paren-style-parenthesis.
>
> Now I am trying to make a keybinding that toggles through the two settings.
> Have checked around and have not found examples on how it can be done.
>
> > (defun parenhl-paren ()
> > "paren-style-parenthesis sets highlighting for parenthetical marks"
> > (interactive)
> > (setq show-paren-style 'parenthesis)
> > )
> > (defun parenhl-expr ()
> > "paren-style-parenthesis sets highlighting for parenthetical marks"
> > (interactive)
> > (setq show-paren-style 'expression)
> > )
>
> Sent withProtonMail Secure Email.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2020-11-06 12:23 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-11-06 10:53 Toggle between read-only-mode jai-bholeki via Users list for the GNU Emacs text editor
2020-11-06 12:23 ` jai-bholeki
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).