From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 13 Nov 2023 18:24:12 +0000 (-0500)
Subject: (wisent-python-lex-beginning-of-line): Fix compiler warning
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1124a9853f660d243de7fdc4819140b82447ead9;p=emacs.git

(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.
---

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.
   )