mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(syntax-ppss-stats): Be more robust when dividing by 0.

Browse source
This commit is contained in:
Stefan Monnier 2001-10-28 05:43:36 +00:00
parent 8259bf101d
commit e8ac59b819
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/syntax.el
View file

@ -92,7 +92,10 @@ point (where the PPSS is equivalent to nil).")
(defvar syntax-ppss-stats
[(0 . 0.0) (0 . 0.0) (0 . 0.0) (0 . 0.0) (0 . 0.0) (1 . 2500.0)])
(defun syntax-ppss-stats ()
(mapcar (lambda (x) (cons (car x) (truncate (/ (cdr x) (car x)))))
(mapcar (lambda (x)
(condition-case nil
(cons (car x) (truncate (/ (cdr x) (car x))))
(error nil)))
syntax-ppss-stats))
;;;###autoload