From c7234011518133da8b5f585719be511a1dfbcf11 Mon Sep 17 00:00:00 2001 From: Philipp Stephani Date: Fri, 14 Jan 2022 20:56:03 +0100 Subject: [PATCH] Simplify code for 'indent-for-tab-command' slightly. * lisp/indent.el (indent-for-tab-command): Don't use a one-element list for SYN. --- lisp/indent.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/indent.el b/lisp/indent.el index 40669b38424..8dc4c31f135 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -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 -- 2.39.2