Merge from origin/emacs-29
db8f207e52
Fix some cases of incomplete code's indentation [c/c++-ts...589959fb09
project-search: Pipe the list of files through 'file-regu...
This commit is contained in:
commit
79b5d1022f
3 changed files with 35 additions and 1 deletions
|
@ -859,6 +859,18 @@ the semicolon. This function skips the semicolon."
|
|||
(goto-char (match-end 0)))
|
||||
(treesit-default-defun-skipper))
|
||||
|
||||
(defun c-ts-base--before-indent (args)
|
||||
(pcase-let ((`(,node ,parent ,bol) args))
|
||||
(when (null node)
|
||||
(let ((smallest-node (treesit-node-at (point))))
|
||||
;; "Virtual" closer curly added by the
|
||||
;; parser's error recovery.
|
||||
(when (and (equal (treesit-node-type smallest-node) "}")
|
||||
(equal (treesit-node-end smallest-node)
|
||||
(treesit-node-start smallest-node)))
|
||||
(setq parent (treesit-node-parent smallest-node)))))
|
||||
(list node parent bol)))
|
||||
|
||||
(defun c-ts-mode-indent-defun ()
|
||||
"Indent the current top-level declaration syntactically.
|
||||
|
||||
|
@ -933,6 +945,11 @@ the semicolon. This function skips the semicolon."
|
|||
;; function_definitions, so we need to find the top-level node.
|
||||
(setq-local treesit-defun-prefer-top-level t)
|
||||
|
||||
;; When the code is in incomplete state, try to make a better guess
|
||||
;; about which node to indent against.
|
||||
(add-function :filter-args (local 'treesit-indent-function)
|
||||
#'c-ts-base--before-indent)
|
||||
|
||||
;; Indent.
|
||||
(when (eq c-ts-mode-indent-style 'linux)
|
||||
(setq-local indent-tabs-mode t))
|
||||
|
|
|
@ -1227,7 +1227,10 @@ To continue searching for the next match, use the
|
|||
command \\[fileloop-continue]."
|
||||
(interactive "sSearch (regexp): ")
|
||||
(fileloop-initialize-search
|
||||
regexp (project-files (project-current t)) 'default)
|
||||
regexp
|
||||
;; XXX: See the comment in project-query-replace-regexp.
|
||||
(cl-delete-if-not #'file-regular-p (project-files (project-current t)))
|
||||
'default)
|
||||
(fileloop-continue))
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
@ -464,3 +464,17 @@ main (void)
|
|||
|
|
||||
}
|
||||
=-=-=
|
||||
|
||||
Name: Empty Line (Block Start)
|
||||
|
||||
=-=
|
||||
int
|
||||
main (void)
|
||||
{
|
||||
|
|
||||
=-=
|
||||
int
|
||||
main (void)
|
||||
{
|
||||
|
|
||||
=-=-=
|
||||
|
|
Loading…
Add table
Reference in a new issue