diff options
| author | Yuan Fu | 2023-01-28 16:20:29 -0800 |
|---|---|---|
| committer | Yuan Fu | 2023-01-29 00:12:56 -0800 |
| commit | f50cb7d7c4b37cd8e4bb1ffa5d3f9273c7e19e10 (patch) | |
| tree | 806f193f4a7071fd65e2481b55371601e66af686 | |
| parent | 1c3ca3bb649b7e812a84b4a559463462d4357080 (diff) | |
| download | emacs-f50cb7d7c4b37cd8e4bb1ffa5d3f9273c7e19e10.tar.gz emacs-f50cb7d7c4b37cd8e4bb1ffa5d3f9273c7e19e10.zip | |
; Improve docstring of c-ts-mode--indent-style-setter
* lisp/progmodes/c-ts-mode.el:
(c-ts-mode--indent-style-setter): Improve docstring.
| -rw-r--r-- | lisp/progmodes/c-ts-mode.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 @@ | |||
| 93 | :group 'c) | 93 | :group 'c) |
| 94 | 94 | ||
| 95 | (defun c-ts-mode--indent-style-setter (sym val) | 95 | (defun c-ts-mode--indent-style-setter (sym val) |
| 96 | "Custom setter for `c-ts-mode-set-style'." | 96 | "Custom setter for `c-ts-mode-set-style'. |
| 97 | Apart from setting the default value of SYM to VAL, also change | ||
| 98 | the value of SYM in `c-ts-mode' and `c++-ts-mode' buffers to VAL." | ||
| 97 | (set-default sym val) | 99 | (set-default sym val) |
| 98 | (named-let loop ((res nil) | 100 | (named-let loop ((res nil) |
| 99 | (buffers (buffer-list))) | 101 | (buffers (buffer-list))) |
| @@ -107,6 +109,7 @@ | |||
| 107 | res) | 109 | res) |
| 108 | (let ((buffer (car buffers))) | 110 | (let ((buffer (car buffers))) |
| 109 | (with-current-buffer buffer | 111 | (with-current-buffer buffer |
| 112 | ;; FIXME: Should we use `derived-mode-p' here? | ||
| 110 | (if (or (eq major-mode 'c-ts-mode) (eq major-mode 'c++-ts-mode)) | 113 | (if (or (eq major-mode 'c-ts-mode) (eq major-mode 'c++-ts-mode)) |
| 111 | (loop (append res (list buffer)) (cdr buffers)) | 114 | (loop (append res (list buffer)) (cdr buffers)) |
| 112 | (loop res (cdr buffers)))))))) | 115 | (loop res (cdr buffers)))))))) |