Lines Matching defs:patterns
60 ;; programming languages have predefined highlighting patterns.
171 ;; Olivier Lecarme <ol@aiguemarine.unice.fr>, Pascal & Icon patterns
183 ;; minor mods to lisp-mode and c/c++ mode patterns
194 ;; minor change to fortran patterns
198 ;; patterns.
200 ;; twiddled the calendar-mode patterns a bit.
203 ;; hilit-set-mode-patterns was screwing up two part patterns. it doesn't now.
218 ;; some code moved from hilit-highlight-region to hilit-set-mode-patterns.
219 ;; This will affect you if you pass your patterns directly to
230 ;; added calendar-mode, icon-mode and pascal-mode patterns
235 ;; added optional case-fold argument to hilit-set-mode-patterns, this case-fold
236 ;; parameter is now stored in hilit-patterns-alist.
249 ;; NEW FUNCTION: hilit-add-mode-pattern... kinda like add-hook for patterns
258 ;; fixed keyword patterns for C/C++ using this technique.
275 ;; vastly improved the makefile patterns
287 ;; changed name of hilit-mode-alist to hilit-patterns-alist
289 ;; added hilit-parser-alist which can be used to apply different patterns to
292 ;; message header patterns to message bodies in mail-mode and its kin.
293 ;; hilit-set-mode-patterns now takes a list of modes and an optional parse-fn
383 (defvar hilit-patterns-alist nil
384 "alist of major-mode values and default highlighting patterns
424 (and (y-or-n-p "Have you modified the standard patterns? ")
425 (yes-or-no-p "Are your patterns *REALLY* relevant? ")
427 hilit-patterns-alist
698 (defun hilit-highlight-region (start end &optional patterns quietly)
701 major-mode is used. If PATTERNS is a symbol, then the patterns associated
705 (cond ((null patterns)
706 (setq patterns (cdr (assq major-mode hilit-patterns-alist))))
707 ((symbolp patterns)
708 (setq patterns (cdr (assq patterns hilit-patterns-alist)))))
709 ;; txt prop: (setq patterns (reverse patterns))
710 (let ((case-fold-search (car patterns))
711 (prio (1- (length patterns)))
716 (setq patterns (cdr patterns)) ; remove case-fold from head of pattern
720 (while patterns
721 (setq p (car patterns))
759 patterns (cdr patterns)))
821 (assq major-mode hilit-patterns-alist))
1004 ;; Default patterns for various modes.
1008 ;;; inappropriate, but I don't know why I wanted hilit-patterns-alist to be
1011 (setq hilit-patterns-alist nil)
1020 (defun hilit-set-mode-patterns (modelist patterns
1022 "Sets the default highlighting patterns for MODE to PATTERNS.
1031 patterns)
1032 (setq patterns (cons case-fold patterns))
1045 (hilit-associate 'hilit-patterns-alist m patterns)))))
1057 (let ((old-patterns (cdr (assq mode hilit-patterns-alist)))
1059 (cond ((not old-patterns)
1060 (hilit-set-mode-patterns mode (list new-pat)))
1062 (setcdr old-patterns (cons new-pat (cdr old-patterns))))
1064 (nconc old-patterns (list new-pat)))))
1104 (hilit-set-mode-patterns
1118 (hilit-set-mode-patterns
1133 (hilit-set-mode-patterns
1150 (hilit-set-mode-patterns
1161 (hilit-set-mode-patterns
1189 (hilit-set-mode-patterns
1204 (hilit-set-mode-patterns
1213 (hilit-set-mode-patterns 'prolog-mode
1223 (hilit-set-mode-patterns
1280 (hilit-set-mode-patterns
1288 (hilit-set-mode-patterns
1295 (hilit-set-mode-patterns
1310 (let* ((header-patterns '(("^Subject:.*$" nil msg-subject)
1314 (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>}|]\\).*$"
1316 (message-patterns (append header-patterns body-patterns)))
1317 (hilit-set-mode-patterns 'msg-header header-patterns)
1318 (hilit-set-mode-patterns 'msg-body body-patterns)
1319 (hilit-set-mode-patterns '(vm-mode text-mode mail-mode rmail-mode
1321 message-patterns
1324 (hilit-set-mode-patterns
1331 (hilit-set-mode-patterns
1346 (hilit-set-mode-patterns
1364 (hilit-set-mode-patterns
1385 (hilit-set-mode-patterns
1401 (hilit-set-mode-patterns
1413 (hilit-set-mode-patterns
1427 (hilit-set-mode-patterns
1441 (hilit-set-mode-patterns
1446 (hilit-set-mode-patterns
1454 (hilit-set-mode-patterns
1459 (hilit-set-mode-patterns
1473 (hilit-set-mode-patterns
1489 (hilit-set-mode-patterns
1512 ;; The problem I have with my patterns for Icon is that this language has a