From: Yuan Fu <casouri@gmail.com>
Date: Sun, 29 Jan 2023 00:25:23 +0000 (-0800)
Subject: ; Fix byte-compile warnings in c-ts-mode.el
X-Git-Tag: emacs-29.0.90~568
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b1714571c8c6cf7ae2ee2602c66b7c903c45a4a;p=emacs.git

; Fix byte-compile warnings in c-ts-mode.el

* lisp/progmodes/c-ts-mode.el:
(c-ts-mode--get-indent-style): Move down.
(c-ts-mode-set-style): Add docstring.
---

diff --git a/lisp/progmodes/c-ts-mode.el b/lisp/progmodes/c-ts-mode.el
index 26ad61c975d..353c4c45479 100644
--- a/lisp/progmodes/c-ts-mode.el
+++ b/lisp/progmodes/c-ts-mode.el
@@ -114,15 +114,6 @@ the value of SYM in `c-ts-mode' and `c++-ts-mode' buffers to VAL."
               (loop (append res (list buffer)) (cdr buffers))
             (loop res (cdr buffers))))))))
 
-(defun c-ts-mode--get-indent-style (mode)
-  "Helper function to set indentation style.
-MODE is either `c' or `cpp'."
-  (let ((style
-         (if (functionp c-ts-mode-indent-style)
-             (funcall c-ts-mode-indent-style)
-           (alist-get c-ts-mode-indent-style (c-ts-mode--indent-styles mode)))))
-    `((,mode ,@style))))
-
 (defcustom c-ts-mode-indent-style 'gnu
   "Style used for indentation.
 
@@ -139,13 +130,28 @@ follows the form of `treesit-simple-indent-rules'."
   :set #'c-ts-mode--indent-style-setter
   :group 'c)
 
+(defun c-ts-mode--get-indent-style (mode)
+  "Helper function to set indentation style.
+MODE is either `c' or `cpp'."
+  (let ((style
+         (if (functionp c-ts-mode-indent-style)
+             (funcall c-ts-mode-indent-style)
+           (alist-get c-ts-mode-indent-style (c-ts-mode--indent-styles mode)))))
+    `((,mode ,@style))))
+
 (defun c-ts-mode-set-style ()
+  "Set the indent style of C/C++ modes globally.
+
+This changes the current indent style of every C/C++ buffer and
+the default C/C++ indent style in this Emacs session."
   (interactive)
+  ;; FIXME: Should we use `derived-mode-p' here?
   (or (eq major-mode 'c-ts-mode) (eq major-mode 'c++-ts-mode)
       (error "Buffer %s is not a c-ts-mode (c-ts-mode-set-style)"
              (buffer-name)))
   (c-ts-mode--indent-style-setter
    'c-ts-mode-indent-style
+   ;; NOTE: We can probably use the interactive form for this.
    (intern
     (completing-read
      "Select style: "