diff options
| author | Juanma Barranquero | 2005-05-09 08:45:47 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-05-09 08:45:47 +0000 |
| commit | 084ea2c3ee70f5403da0d0bbdda8b9a123c65636 (patch) | |
| tree | a5cb3be22855dc640e73f9e1b566d35d362c1132 | |
| parent | 2b8f53dea47097bbdc16fc636d415f979beffca6 (diff) | |
| download | emacs-084ea2c3ee70f5403da0d0bbdda8b9a123c65636.tar.gz emacs-084ea2c3ee70f5403da0d0bbdda8b9a123c65636.zip | |
(hilit-add-pattern): Replace `string-to-int' by `string-to-number'.
| -rw-r--r-- | lisp/obsolete/hilit19.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/obsolete/hilit19.el b/lisp/obsolete/hilit19.el index a5fd33adcaa..8c5b64ed5ad 100644 --- a/lisp/obsolete/hilit19.el +++ b/lisp/obsolete/hilit19.el | |||
| @@ -1050,7 +1050,7 @@ Optionally, place the new pattern first in the pattern list" | |||
| 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))) |