1050 |
|
|
1051 |
(and (equal pstart "") (error "Must specify starting regex")) |
(and (equal pstart "") (error "Must specify starting regex")) |
1052 |
(cond ((equal pend "") (setq pend 0)) |
(cond ((equal pend "") (setq pend 0)) |
1053 |
((string-match "^[0-9]+$" pend) (setq pend (string-to-int pend)))) |
((string-match "^[0-9]+$" pend) (setq pend (string-to-number pend)))) |
1054 |
(or mode (setq mode major-mode)) |
(or mode (setq mode major-mode)) |
1055 |
(let ((old-patterns (cdr (assq mode hilit-patterns-alist))) |
(let ((old-patterns (cdr (assq mode hilit-patterns-alist))) |
1056 |
(new-pat (list pstart pend face))) |
(new-pat (list pstart pend face))) |