Todo mode doc bug fix

[gnu-emacs] / lisp / cedet / semantic / wisent.el

diff --git a/lisp/cedet/semantic/wisent.el b/lisp/cedet/semantic/wisent.el
index 04669b99660ee93f5b3ab8e873f2b8227018f2bc..d0632f1640c86cb79e8f8cc438b521686f06e011 100644 (file)
--- a/lisp/cedet/semantic/wisent.el
+++ b/lisp/cedet/semantic/wisent.el
@@ -1,6 +1,6 @@
 ;;; semantic/wisent.el --- Wisent - Semantic gateway
 
-;; Copyright (C) 2001-2007, 2009-2011  Free Software Foundation, Inc.
+;; Copyright (C) 2001-2007, 2009-2016 Free Software Foundation, Inc.
 
 ;; Author: David Ponce <david@dponce.com>
 ;; Maintainer: David Ponce <david@dponce.com>
@@ -149,7 +149,7 @@ and will be collected in `semantic-lex' form: (SYMBOL START . END)."
 
 ;; Parser plug-ins
 ;;
-;; The following functions permit to plug the Wisent LALR parser in
+;; The following functions permit plugging the Wisent LALR parser in
 ;; Semantic toolkit.  They use the standard API provided by Semantic
 ;; to plug parsers in.
 ;;
@@ -322,9 +322,9 @@ the standard function `semantic-parse-region'."
               semantic--progress-reporter
               (progress-reporter-update
                semantic--progress-reporter
-               (/ (* 100 (semantic-lex-token-start
-                          (car wisent-lex-istream)))
-                  (point-max))))))
+               (floor (* 100.0 (semantic-lex-token-start
+                                (car wisent-lex-istream)))
+                      (point-max))))))
     ;; Return parse tree
     (nreverse ptree)))
 \f