procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Implement prefix arg for 'c-ts-mode-toggle-comment-style'

Browse source 
* lisp/progmodes/c-ts-mode.el (c-ts-mode-toggle-comment-style):
Actually implement the optional numeric arg mentioned in the
docstring.

Copyright-paperwork-exempt: yes
This commit is contained in:
Felix 2023-02-27 16:15:02 +01:00 • committed by Eli Zaretskii
parent eb2ab52fb0
commit c2b5c6acc5
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/progmodes/c-ts-mode.el
View file

@ -88,19 +88,23 @@
:safe 'integerp
:group 'c)
(defun c-ts-mode-toggle-comment-style ()
(defun c-ts-mode-toggle-comment-style (&optional arg)
"Toggle the comment style between block and line comments.
Optional numeric ARG, if supplied, switches to block comment
style when positive, to line comment style when negative, and
just toggles it when zero or left out."
(interactive)
(pcase-let ((`(,starter . ,ender)
(if (string= comment-start "// ")
(cons "/* " " */")
(cons "// " ""))))
(setq-local comment-start starter
comment-end ender))
(c-ts-mode-set-modeline))
(interactive "P")
(let ((prevstate-line (string= comment-start "// ")))
(when (or (not arg)
(zerop (setq arg (prefix-numeric-value arg)))
(xor (> 0 arg) prevstate-line))
(pcase-let ((`(,starter . ,ender)
(if prevstate-line
(cons "/* " " */")
(cons "// " ""))))
(setq-local comment-start starter
comment-end ender))
(c-ts-mode-set-modeline))))
(defun c-ts-mode-set-modeline ()
(setq mode-name