diff options
Diffstat (limited to 'lisp/nxml/rng-valid.el')
| -rw-r--r-- | lisp/nxml/rng-valid.el | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/lisp/nxml/rng-valid.el b/lisp/nxml/rng-valid.el index 2bf8f1dfa63..61a96545a82 100644 --- a/lisp/nxml/rng-valid.el +++ b/lisp/nxml/rng-valid.el @@ -345,17 +345,11 @@ The schema is set like `rng-auto-set-schema'." (defun rng-compute-mode-line-string () (cond (rng-validate-timer - (concat " Validated:" - (number-to-string - ;; Use floor rather than round because we want - ;; to show 99% rather than 100% for changes near - ;; the end. - (floor (if (eq (buffer-size) 0) - 0.0 - (/ (* (- rng-validate-up-to-date-end (point-min)) - 100.0) - (- (point-max) (point-min)))))) - "%%")) + (format " Validated:%d%%" + (if (= 0 (buffer-size)) + 0 + (floor (- rng-validate-up-to-date-end (point-min)) + (- (point-max) (point-min)))))) ((> rng-error-count 0) (concat " " (propertize "Invalid" |