1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00

(hilit-add-pattern): Replace string-to-int' by string-to-number'.

This commit is contained in:
Juanma Barranquero 2005-05-09 08:45:47 +00:00
parent 2b8f53dea4
commit 084ea2c3ee

View file

@ -1050,7 +1050,7 @@ Optionally, place the new pattern first in the pattern list"
(and (equal pstart "") (error "Must specify starting regex"))
(cond ((equal pend "") (setq pend 0))
((string-match "^[0-9]+$" pend) (setq pend (string-to-int pend))))
((string-match "^[0-9]+$" pend) (setq pend (string-to-number pend))))
(or mode (setq mode major-mode))
(let ((old-patterns (cdr (assq mode hilit-patterns-alist)))
(new-pat (list pstart pend face)))