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

; Improve docstring of c-ts-mode--indent-style-setter

Browse source 
* lisp/progmodes/c-ts-mode.el:
(c-ts-mode--indent-style-setter): Improve docstring.
This commit is contained in:
Yuan Fu 2023-01-28 16:20:29 -08:00
parent 1c3ca3bb64
commit f50cb7d7c4
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -93,7 +93,9 @@
:group 'c) :group 'c)
(defun c-ts-mode--indent-style-setter (sym val) (defun c-ts-mode--indent-style-setter (sym val)
"Custom setter for `c-ts-mode-set-style'." "Custom setter for `c-ts-mode-set-style'.
Apart from setting the default value of SYM to VAL, also change
the value of SYM in `c-ts-mode' and `c++-ts-mode' buffers to VAL."
(set-default sym val) (set-default sym val)
(named-let loop ((res nil) (named-let loop ((res nil)
(buffers (buffer-list))) (buffers (buffer-list)))
@ -107,6 +109,7 @@
res) res)
(let ((buffer (car buffers))) (let ((buffer (car buffers)))
(with-current-buffer buffer (with-current-buffer buffer
;; FIXME: Should we use `derived-mode-p' here?
(if (or (eq major-mode 'c-ts-mode) (eq major-mode 'c++-ts-mode)) (if (or (eq major-mode 'c-ts-mode) (eq major-mode 'c++-ts-mode))
(loop (append res (list buffer)) (cdr buffers)) (loop (append res (list buffer)) (cdr buffers))
(loop res (cdr buffers)))))))) (loop res (cdr buffers))))))))