From 1124a9853f660d243de7fdc4819140b82447ead9 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 13 Nov 2023 13:24:12 -0500 Subject: [PATCH] (wisent-python-lex-beginning-of-line): Fix compiler warning * lisp/cedet/semantic/wisent/python.el (wisent-python-lex-beginning-of-line): Comment out unused test. --- lisp/cedet/semantic/wisent/python.el | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/lisp/cedet/semantic/wisent/python.el b/lisp/cedet/semantic/wisent/python.el index c6a8a35d8df..6b274df614c 100644 --- a/lisp/cedet/semantic/wisent/python.el +++ b/lisp/cedet/semantic/wisent/python.el @@ -262,18 +262,19 @@ the indentation of the current line." ;; Loop lexer to handle tokens in current line. t) ;; Indentation decreased - ((progn - ;; Pop items from indentation stack - (while (< curr-indent last-indent) - (pop wisent-python-indent-stack) - (setq semantic-lex-current-depth (1- semantic-lex-current-depth) - last-indent (car wisent-python-indent-stack)) - (semantic-lex-push-token - (semantic-lex-token 'DEDENT last-pos (point)))) - (= last-pos (point))) - ;; If pos did not change, then we must return nil so that - ;; other lexical analyzers can be run. - nil)))) + (t + ;; Pop items from indentation stack + (while (< curr-indent last-indent) + (pop wisent-python-indent-stack) + (setq semantic-lex-current-depth (1- semantic-lex-current-depth) + last-indent (car wisent-python-indent-stack)) + (semantic-lex-push-token + (semantic-lex-token 'DEDENT last-pos (point)))) + ;; (if (= last-pos (point)) + ;; ;; If pos did not change, then we must return nil so that + ;; ;; other lexical analyzers can be run. + ;; nil) + )))) ;; All the work was done in the above analyzer matching condition. ) -- 2.39.2