mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

Widen in indent-for-tab-command in the normal case, too

Browse Source 
Fixing this obvious omission.
* lisp/indent.el (indent--funcall-widened): New function.
(indent-for-tab-command): Use it.
This commit is contained in:
Dmitry Gutov 2017-12-20 01:42:49 +02:00
parent 446faf3efa
commit b9fbc03b86
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/indent.el
View File

@ -142,13 +142,11 @@ prefix argument is ignored."
(old-indent (current-indentation)))
;; Indent the line.
(or (not (eq (funcall indent-line-function) 'noindent))
(or (not (eq (indent--funcall-widened indent-line-function) 'noindent))
(indent--default-inside-comment)
(when (or (<= (current-column) (current-indentation))
(not (eq tab-always-indent 'complete)))
(save-restriction
(widen)
(funcall (default-value 'indent-line-function)))))
(indent--funcall-widened (default-value 'indent-line-function))))
(cond
;; If the text was already indented right, try completion.
@ -170,6 +168,11 @@ prefix argument is ignored."
(< (point) end-marker))
(indent-rigidly (point) end-marker indentation-change))))))))))
(defun indent--funcall-widened (func)
(save-restriction
(widen)
(funcall func)))
(defun insert-tab (&optional arg)
(let ((count (prefix-numeric-value arg)))
(if (and abbrev-mode