master 1124a9853f6: (wisent-python-lex-beginning-of-line): Fix compiler warning

[Stefan Monnier]

branch: master
commit 1124a9853f660d243de7fdc4819140b82447ead9
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

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