From: Yuan Fu <casouri@gmail.com>
Date: Sun, 29 Jan 2023 00:20:29 +0000 (-0800)
Subject: ; Improve docstring of c-ts-mode--indent-style-setter
X-Git-Tag: emacs-29.0.90~569
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f50cb7d7c4b37cd8e4bb1ffa5d3f9273c7e19e10;p=emacs.git

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

* lisp/progmodes/c-ts-mode.el:
(c-ts-mode--indent-style-setter): Improve docstring.
---

diff --git a/lisp/progmodes/c-ts-mode.el b/lisp/progmodes/c-ts-mode.el
index c6eb1afecec..26ad61c975d 100644
--- a/lisp/progmodes/c-ts-mode.el
+++ b/lisp/progmodes/c-ts-mode.el
@@ -93,7 +93,9 @@
   :group 'c)
 
 (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)
   (named-let loop ((res nil)
                    (buffers (buffer-list)))
@@ -107,6 +109,7 @@
               res)
       (let ((buffer (car buffers)))
         (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))
               (loop (append res (list buffer)) (cdr buffers))
             (loop res (cdr buffers))))))))