]> git.eshelyaron.com Git - emacs.git/commitdiff
(wisent-python-lex-beginning-of-line): Fix compiler warning
authorStefan Monnier <monnier@iro.umontreal.ca>
Mon, 13 Nov 2023 18:24:12 +0000 (13:24 -0500)
committerStefan Monnier <monnier@iro.umontreal.ca>
Mon, 13 Nov 2023 18:25:03 +0000 (13:25 -0500)
* lisp/cedet/semantic/wisent/python.el
(wisent-python-lex-beginning-of-line): Comment out unused test.

lisp/cedet/semantic/wisent/python.el

index c6a8a35d8df718429fd07a37a6212c43da6871d3..6b274df614ccb09cc10f46a2af4dcdcbe9e29dfe 100644 (file)
@@ -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.
   )