Mercurial > emacs
comparison lisp/obsolete/hilit19.el @ 90180:62afea0771d8
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-51
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 289-301)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 68)
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 12 May 2005 03:41:19 +0000 |
parents | e24e2e78deda db28615c678a |
children | f9a65d7ebd29 |
comparison
equal
deleted
inserted
replaced
90179:b745036dab36 | 90180:62afea0771d8 |
---|---|
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))) |