Mercurial > emacs
comparison lisp/obsolete/hilit19.el @ 62195:db28615c678a
(hilit-add-pattern): Replace `string-to-int' by `string-to-number'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 09 May 2005 08:45:47 +0000 |
| parents | 6e18b0aebeb3 |
| children | 18a818a2ee7c 62afea0771d8 |
comparison
equal
deleted
inserted
replaced
| 62194:dda44460de33 | 62195:db28615c678a |
|---|---|
| 1048 Optionally, place the new pattern first in the pattern list" | 1048 Optionally, place the new pattern first in the pattern list" |
| 1049 (interactive "sPattern start regex: \nsPattern end regex (default none): \nxFace: ") | 1049 (interactive "sPattern start regex: \nsPattern end regex (default none): \nxFace: ") |
| 1050 | 1050 |
| 1051 (and (equal pstart "") (error "Must specify starting regex")) | 1051 (and (equal pstart "") (error "Must specify starting regex")) |
| 1052 (cond ((equal pend "") (setq pend 0)) | 1052 (cond ((equal pend "") (setq pend 0)) |
| 1053 ((string-match "^[0-9]+$" pend) (setq pend (string-to-int pend)))) | 1053 ((string-match "^[0-9]+$" pend) (setq pend (string-to-number pend)))) |
| 1054 (or mode (setq mode major-mode)) | 1054 (or mode (setq mode major-mode)) |
| 1055 (let ((old-patterns (cdr (assq mode hilit-patterns-alist))) | 1055 (let ((old-patterns (cdr (assq mode hilit-patterns-alist))) |
| 1056 (new-pat (list pstart pend face))) | 1056 (new-pat (list pstart pend face))) |
| 1057 (cond ((not old-patterns) | 1057 (cond ((not old-patterns) |
| 1058 (hilit-set-mode-patterns mode (list new-pat))) | 1058 (hilit-set-mode-patterns mode (list new-pat))) |