Lines Matching defs:interpolated
884 u) Allows to find regular expressions which contain interpolated parts.
1155 (cperl-define-key "\C-c\C-v" 'cperl-next-interpolated-REx)
1156 (cperl-define-key "\C-c\C-x" 'cperl-next-interpolated-REx-0)
1157 (cperl-define-key "\C-c\C-y" 'cperl-next-interpolated-REx-1)
1247 ["Find next interpolated" cperl-next-interpolated-REx
1248 (next-single-property-change (point-min) 'REx-interpolated)]
1249 ["Find next interpolated (no //o)"
1250 cperl-next-interpolated-REx-0
1251 (or (text-property-any (point-min) (point-max) 'REx-interpolated t)
1252 (text-property-any (point-min) (point-max) 'REx-interpolated 1))]
1253 ["Find next interpolated (neither //o nor whole-REx)"
1254 cperl-next-interpolated-REx-1
1255 (text-property-any (point-min) (point-max) 'REx-interpolated t)])
3628 ;;; In addition, some parts of RExes may be marked as `REx-interpolated'
3629 ;;; (value: 0 in //o, 1 if "interpolated variable" is whole-REx, t otherwise).
3789 (font-lock-variable-name-face ; interpolated vars and ({})-code
3895 REx-interpolated t
3975 REx-interpolated t
4552 'REx-interpolated
7678 $\" The separator which joins elements of arrays interpolated in strings.
8689 (defun cperl-next-interpolated-REx-1 ()
8690 "Move point to next REx which has interpolated parts without //o.
8691 Skips RExes consisting of one interpolated variable.
8695 (cperl-next-interpolated-REx 1))
8697 (defun cperl-next-interpolated-REx-0 ()
8698 "Move point to next REx which has interpolated parts without //o."
8700 (cperl-next-interpolated-REx 0))
8702 (defun cperl-next-interpolated-REx (&optional skip beg limit)
8703 "Move point to next REx which has interpolated parts.
8710 Types are 0 for / $rex /o (interpolated once), 1 for /$rex/ (if $rex is
8721 (if (memq (get-text-property s 'REx-interpolated) skip)
8725 'REx-interpolated beg limit)
8727 (message "No more interpolated REx"))))