mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/indent.el (indent--default-inside-comment): New function

Browse source 
(indent-for-tab-command): Use it for `noindent' indentation.
This commit is contained in:
Stefan Monnier 2015-10-06 22:56:24 -04:00
parent 3b4d119c40
commit f54e5ccfdb
1 changed files with 21 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/indent.el
View file

@ -86,6 +86,22 @@ that case, indent by aligning to the previous non-blank line."
;; The normal case.
(funcall indent-line-function)))
(defun indent--default-inside-comment ()
(unless (or (> (current-column) (current-indentation))
(eq this-command last-command))
(let ((ppss (syntax-ppss)))
(when (nth 4 ppss)
(indent-line-to
(save-excursion
(forward-line -1)
(skip-chars-forward " \t")
(when (< (1- (point)) (nth 8 ppss) (line-end-position))
(goto-char (nth 8 ppss))
(when (looking-at comment-start-skip)
(goto-char (match-end 0))))
(current-column)))
t))))
(defun indent-for-tab-command (&optional arg)
"Indent the current line or region, or insert a tab, as appropriate.
This function either inserts a tab, or indents the current line,
@ -124,7 +140,11 @@ prefix argument is ignored."
(old-indent (current-indentation)))
;; Indent the line.
(funcall indent-line-function)
(or (not (eq (funcall indent-line-function) 'noindent))
(indent--default-inside-comment)
(when (or (<= (current-column) (current-indentation))
(not (eq tab-always-indent 'complete)))
(funcall (default-value 'indent-line-function))))
(cond
;; If the text was already indented right, try completion.