* bug#75109: [PATCH] indent.el Comments for indent-for-tab-command as a first step for refactoring.
[not found] <87v7v7h1wp.fsf@gmx.com>
@ 2024-12-25 21:48 ` Vitaliy via Bug reports for GNU Emacs, the Swiss army knife of text editors
0 siblings, 0 replies; only message in thread
From: Vitaliy via Bug reports for GNU Emacs, the Swiss army knife of text editors @ 2024-12-25 21:48 UTC (permalink / raw)
To: 75109
[-- Attachment #1: Type: text/plain, Size: 75 bytes --]
Fixed "From" header inside of patch.
Vitaliy <vitalij@gmx.com> writes:
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Comment-for-indent-for-tab-command-as-a-first-step-t.patch --]
[-- Type: text/x-patch, Size: 2367 bytes --]
From 00c1dbbf729b1180963abb6743116ec4c8c6b5ad Mon Sep 17 00:00:00 2001
From: Vitaliy <vitalij@gmx.com>
Date: Wed, 25 Dec 2024 21:26:05 +0000
Subject: [PATCH] Comment for indent-for-tab-command as a first step to
refactoring.
---
lisp/indent.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/lisp/indent.el b/lisp/indent.el
index 74ef9183d95..613454918b8 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -160,6 +160,7 @@ prefix argument is ignored."
;; The region is active, indent it.
((use-region-p)
(indent-region (region-beginning) (region-end)))
+ ;; *1.* inserts a tab character for special indentation cases.
((or ;; indent-to-left-margin is only meant for indenting,
;; so we force it to always insert a tab here.
(eq indent-line-function 'indent-to-left-margin)
@@ -172,15 +173,17 @@ prefix argument is ignored."
(old-point (point))
(old-indent (current-indentation)))
- ;; Indent the line.
+ ;; *2.* Indent the line with specified function
(or (not (eq (indent--funcall-widened indent-line-function) 'noindent))
+ ;; *3.* Indent comment
(indent--default-inside-comment)
+ ;; *4.* Fallback to default indent function
(when (or (<= (current-column) (current-indentation))
(not (eq tab-always-indent 'complete)))
(indent--funcall-widened (default-value 'indent-line-function))))
(cond
- ;; If the text was already indented right, try completion.
+ ;; *5.* If the text was already indented right, try completion.
((and (eq tab-always-indent 'complete)
(eql old-point (point))
(eql old-tick (buffer-chars-modified-tick))
@@ -193,9 +196,9 @@ prefix argument is ignored."
('word-or-paren (not (memq syn '(2 4 5))))
('word-or-paren-or-punct (not (memq syn '(2 4 5 1))))))))
(completion-at-point))
-
- ;; If a prefix argument was given, rigidly indent the following
- ;; sexp to match the change in the current line's indentation.
+ ;; *6* If a prefix argument was given, rigidly indent the
+ ;; following sexp to match the change in the current line's
+ ;; indentation.
(arg
(let ((end-marker
(save-excursion
--
2.45.2
[-- Attachment #3: Type: text/plain, Size: 3667 bytes --]
> Tags: notabug
> Package: indent.el
> Version: master
> Severity: wishlist
>
> In GNU Emacs master.
>
> #'indent-for-tab-command function now have strict steps, I hope in
> future we will add ability to select on what orded they should go, as a
> first step I suggest to comment them to separate.
> This steps in unclear heap now:
> -. **Check for Active Region**: If there is an active region, it indents that region.
> 1. **Handle Special Indentation Cases**: If the indentation function is specific or certain conditions are met, it inserts a tab character.
> 2. **Default Indentation Handling**: If neither of the above, it performs standard line indentation.
> 3. **Check for Completion Conditions**: If specific conditions are met after indentation, it triggers completion.
> 4. **Rigid Indentation with Prefix Argument**: If a prefix argument is provided, it rigidly indents the balanced expression to reflect the current line's indentation.
> From 00c1dbbf729b1180963abb6743116ec4c8c6b5ad Mon Sep 17 00:00:00 2001
> From: none <none>
> Date: Wed, 25 Dec 2024 21:26:05 +0000
> Subject: [PATCH] Comment for indent-for-tab-command as a first step to
> refactoring.
>
> ---
> lisp/indent.el | 13 ++++++++-----
> 1 file changed, 8 insertions(+), 5 deletions(-)
>
> diff --git a/lisp/indent.el b/lisp/indent.el
> index 74ef9183d95..613454918b8 100644
> --- a/lisp/indent.el
> +++ b/lisp/indent.el
> @@ -160,6 +160,7 @@ prefix argument is ignored."
> ;; The region is active, indent it.
> ((use-region-p)
> (indent-region (region-beginning) (region-end)))
> + ;; *1.* inserts a tab character for special indentation cases.
> ((or ;; indent-to-left-margin is only meant for indenting,
> ;; so we force it to always insert a tab here.
> (eq indent-line-function 'indent-to-left-margin)
> @@ -172,15 +173,17 @@ prefix argument is ignored."
> (old-point (point))
> (old-indent (current-indentation)))
>
> - ;; Indent the line.
> + ;; *2.* Indent the line with specified function
> (or (not (eq (indent--funcall-widened indent-line-function) 'noindent))
> + ;; *3.* Indent comment
> (indent--default-inside-comment)
> + ;; *4.* Fallback to default indent function
> (when (or (<= (current-column) (current-indentation))
> (not (eq tab-always-indent 'complete)))
> (indent--funcall-widened (default-value 'indent-line-function))))
>
> (cond
> - ;; If the text was already indented right, try completion.
> + ;; *5.* If the text was already indented right, try completion.
> ((and (eq tab-always-indent 'complete)
> (eql old-point (point))
> (eql old-tick (buffer-chars-modified-tick))
> @@ -193,9 +196,9 @@ prefix argument is ignored."
> ('word-or-paren (not (memq syn '(2 4 5))))
> ('word-or-paren-or-punct (not (memq syn '(2 4 5 1))))))))
> (completion-at-point))
> -
> - ;; If a prefix argument was given, rigidly indent the following
> - ;; sexp to match the change in the current line's indentation.
> + ;; *6* If a prefix argument was given, rigidly indent the
> + ;; following sexp to match the change in the current line's
> + ;; indentation.
> (arg
> (let ((end-marker
> (save-excursion
> --
> 2.45.2
>
>
> --
> Best regards,
> Vitaliy
> Magic number: 7850B0B5E3F536601D2E6A9DE1C43E074A047699
--
Best regards,
Magic number: 7850B0B5E3F536601D2E6A9DE1C43E074A047699
^ permalink raw reply related [flat|nested] only message in thread