mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

In comment-dwim with style `extra-line', respect indent-tabs-mode.

Browse source 
This fixes bug #22369.

* lisp/newcomment.el (comment-make-bol-ws): New function.
(comment-make-extra-lines): Use new function instead of a crude `make-string'.

[This reapplies commit 016b3d5894,
which was inadvertently lost by merge commit
7823745acb.]
This commit is contained in:
Alan Mackenzie 2016-01-15 12:32:32 +00:00 • committed by Paul Eggert
parent 05b6268078
commit 5a78876770
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/newcomment.el
View file

@ -990,6 +990,14 @@ comment markers."
(goto-char (point-max))))))
(set-marker end nil))
(defun comment-make-bol-ws (len)
"Make a white-space string of width LEN for use at BOL.
When `indent-tabs-mode' is non-nil, tab characters will be used."
(if (and indent-tabs-mode (> tab-width 0))
(concat (make-string (/ len tab-width) ?\t)
(make-string (% len tab-width) ? ))
(make-string len ? )))
(defun comment-make-extra-lines (cs ce ccs cce min-indent max-indent &optional block)
"Make the leading and trailing extra lines.
This is used for `extra-line' style (or `box' style if BLOCK is specified)."
@ -1025,8 +1033,8 @@ This is used for `extra-line' style (or `box' style if BLOCK is specified)."
(setq cs (replace-match fill t t s)))
(string-match re e)
(setq ce (replace-match fill t t e))))
(cons (concat cs "\n" (make-string min-indent ? ) ccs)
(concat cce "\n" (make-string (+ min-indent eindent) ? ) ce))))
(cons (concat cs "\n" (comment-make-bol-ws min-indent) ccs)
(concat cce "\n" (comment-make-bol-ws (+ min-indent eindent)) ce))))
(defmacro comment-with-narrowing (beg end &rest body)
"Execute BODY with BEG..END narrowing.