diff options
| -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))) |