diff options
| -rw-r--r-- | .dir-locals.el | 3 | ||||
| -rw-r--r-- | lisp/progmodes/c-ts-mode.el | 5 |
2 files changed, 7 insertions, 1 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 6733b5326a6..0bcded4b5d1 100644 --- a/.dir-locals.el +++ b/.dir-locals.el | |||
| @@ -21,7 +21,8 @@ | |||
| 21 | (electric-quote-comment . nil) | 21 | (electric-quote-comment . nil) |
| 22 | (electric-quote-string . nil) | 22 | (electric-quote-string . nil) |
| 23 | (mode . bug-reference-prog))) | 23 | (mode . bug-reference-prog))) |
| 24 | (c-ts-mode . ((indent-tabs-mode . t) | 24 | (c-ts-mode . ((c-ts-mode-indent-style . gnu) |
| 25 | (indent-tabs-mode . t) | ||
| 25 | (mode . bug-reference-prog))) | 26 | (mode . bug-reference-prog))) |
| 26 | (log-edit-mode . ((log-edit-font-lock-gnu-style . t) | 27 | (log-edit-mode . ((log-edit-font-lock-gnu-style . t) |
| 27 | (log-edit-setup-add-author . t) | 28 | (log-edit-setup-add-author . t) |
diff --git a/lisp/progmodes/c-ts-mode.el b/lisp/progmodes/c-ts-mode.el index 166399f922d..6100f00e3ba 100644 --- a/lisp/progmodes/c-ts-mode.el +++ b/lisp/progmodes/c-ts-mode.el | |||
| @@ -136,6 +136,10 @@ symbol." | |||
| 136 | (loop (append res (list buffer)) (cdr buffers)) | 136 | (loop (append res (list buffer)) (cdr buffers)) |
| 137 | (loop res (cdr buffers)))))))) | 137 | (loop res (cdr buffers)))))))) |
| 138 | 138 | ||
| 139 | (defun c-ts-indent-style-safep (style) | ||
| 140 | "Non-nil if STYLE's value is safe for file-local variables." | ||
| 141 | (and (symbolp style) (not (functionp style)))) | ||
| 142 | |||
| 139 | (defcustom c-ts-mode-indent-style 'gnu | 143 | (defcustom c-ts-mode-indent-style 'gnu |
| 140 | "Style used for indentation. | 144 | "Style used for indentation. |
| 141 | 145 | ||
| @@ -150,6 +154,7 @@ follows the form of `treesit-simple-indent-rules'." | |||
| 150 | (symbol :tag "BSD" bsd) | 154 | (symbol :tag "BSD" bsd) |
| 151 | (function :tag "A function for user customized style" ignore)) | 155 | (function :tag "A function for user customized style" ignore)) |
| 152 | :set #'c-ts-mode--indent-style-setter | 156 | :set #'c-ts-mode--indent-style-setter |
| 157 | :safe 'c-ts-indent-style-safep | ||
| 153 | :group 'c) | 158 | :group 'c) |
| 154 | 159 | ||
| 155 | (defun c-ts-mode--get-indent-style (mode) | 160 | (defun c-ts-mode--get-indent-style (mode) |