procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Simplify code for 'indent-for-tab-command' slightly.

Browse source 
* lisp/indent.el (indent-for-tab-command): Don't use a one-element
list for SYN.
This commit is contained in:
Philipp Stephani 2022-01-14 20:56:03 +01:00
parent d29291d665
commit c723401151
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/indent.el
View file

@ -170,7 +170,7 @@ prefix argument is ignored."
(let ((old-tick (buffer-chars-modified-tick))
(old-point (point))
(old-indent (current-indentation))
(syn `(,(syntax-after (point)))))
(syn (syntax-after (point))))
;; Indent the line.
(or (not (eq (indent--funcall-widened indent-line-function) 'noindent))
@ -190,13 +190,13 @@ prefix argument is ignored."
(eolp))
(and (member tab-first-completion
'(word word-or-paren word-or-paren-or-punct))
(not (member 2 syn)))
(not (eql 2 syn)))
(and (member tab-first-completion
'(word-or-paren word-or-paren-or-punct))
(not (or (member 4 syn)
(member 5 syn))))
(not (or (eql 4 syn)
(eql 5 syn))))
(and (equal tab-first-completion 'word-or-paren-or-punct)
(not (member 1 syn)))))
(not (eql 1 syn)))))
(completion-at-point))
;; If a prefix argument was given, rigidly indent the following