/[emacs]/emacs/lisp/obsolete/hilit19.el
ViewVC logotype

Diff of /emacs/lisp/obsolete/hilit19.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by monnier, Wed Oct 27 19:52:02 2004 UTC revision 1.10 by lektu, Mon May 9 08:45:47 2005 UTC
# Line 1050  Optionally, place the new pattern first Line 1050  Optionally, place the new pattern first
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)))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26