Lines Matching +defs:text +defs:properties +defs:at
15 ;; the Free Software Foundation; either version 2, or (at your option)
241 "*`cperl-lineup' will always lineup at multiple of this number.
248 An open brace following other text is treated as if it were this far
254 "*Extra indentation for braces, compared with other text in same context."
364 that paragraph, delete the words that appear at the ends of lines and
389 (defcustom cperl-indent-comment-at-column-0 nil
390 "*Non-nil means that comment started at column 0 should be indentable."
478 Note that that variable is only read at initialization time for
525 (defcustom cperl-use-syntax-table-text-property
526 (boundp 'parse-sexp-lookup-properties)
527 "*Non-nil means CPerl sets up and uses `syntax-table' text property."
531 (defcustom cperl-use-syntax-table-text-property-for-tags
532 cperl-use-syntax-table-text-property
533 "*Non-nil means: set up and use `syntax-table' text property generating TAGS."
610 (boundp 'parse-sexp-lookup-properties))
629 (defcustom cperl-ps-print-face-properties
805 that Emacs 20.2 has some bugs related to `syntax-table' text
806 properties. Patches are available on the main CPerl download site,
811 via `cperl-use-syntax-table-text-property'.")
850 g) Can show these explanations if you stay long enough at the
932 `cperl-use-syntax-table-text-property'
942 `cperl-use-syntax-table-text-property'
962 subroutine names at the moment of definition
1060 (put-text-property (max (point-min) (1- from))
1087 (let ((prop (get-text-property (point) 'syntax-type)))
1091 ;; In old versions (e.g., 19.33) `indent-to' would not inherit properties
1096 (or (get-text-property (point) 'syntax-type)
1097 (and (looking-at "\\=[ \t]")
1098 (put-text-property (point) (match-end 0)
1160 (cperl-define-key "\C-c\C-hP" 'cperl-perldoc-at-point)
1235 cperl-use-syntax-table-text-property]
1237 cperl-use-syntax-table-text-property]
1239 cperl-use-syntax-table-text-property]
1241 cperl-use-syntax-table-text-property]
1243 cperl-use-syntax-table-text-property]
1245 cperl-use-syntax-table-text-property]
1251 (or (text-property-any (point-min) (point-max) 'REx-interpolated t)
1252 (text-property-any (point-min) (point-max) 'REx-interpolated 1))]
1255 (text-property-any (point-min) (point-max) 'REx-interpolated t)])
1279 (get-text-property (point-min) 'in-pod)
1295 (get-text-property (point) 'syntax-type)))]
1301 (get-text-property (point) 'syntax-type))
1338 ["Define word at point" imenu-go-find-at-position
1339 (fboundp 'imenu-go-find-at-position)]
1341 ["Help on function at point" cperl-info-on-current-command t]
1342 ["Help on symbol at point" cperl-get-help t]
1344 ["Perldoc on word at point" cperl-perldoc-at-point t]
1403 "Match the text after `sub' in a subroutine declaration.
1452 "\\([^\n]+\\)$" ; 17=text
1611 beginning of the region at the start of construction, and make region
1647 An open brace following other text is treated as if it the line started
1823 (if cperl-use-syntax-table-text-property
1825 (make-local-variable 'parse-sexp-lookup-properties)
1827 (set 'parse-sexp-lookup-properties t)
1843 ;; used to ignore syntax-table text-properties. (t) is a hack
1934 (defun cperl-comment-indent () ; called at point at supposed comment
1936 (if (and (not cperl-indent-comment-at-column-0)
1937 (looking-at "^#"))
1938 0 ; Existing comment at bol stays there.
1942 phony (eq (get-text-property (point) 'syntax-table)
1956 (max (1+ was) ; Else indent at comment column
1968 ;;;Point is at start of real comment."
1973 ;;; (current-column))) ; Else indent at comment column
2102 (looking-at "\\(\\$\\$\\)*\\$\\([^\\$]\\|$\\)"))
2108 (not (looking-at "[ \t]*#")))
2160 If not, or if we are not at the end of marking range, would self-insert.
2206 (setq do (looking-at "do\\>")))
2216 (looking-at "=cut")
2217 (and cperl-use-syntax-table-text-property
2218 (not (eq (get-text-property (point)
2246 (or (looking-at "[ \t]\\|$") (insert " "))
2265 (if (looking-at "\n")
2282 (setq head1 (looking-at "head1\\>[ \t]*$"))
2283 (setq over (and (looking-at "over\\>[ \t]*$")
2284 (not (looking-at "over[ \t]*\n\n\n*=item\\>"))))
2288 (get-text-property (point) 'in-pod)
2291 (not (looking-at "\n*=cut"))
2292 (or (not cperl-use-syntax-table-text-property)
2293 (eq (get-text-property (point) 'syntax-type) 'pod))))))
2349 (looking-at "=cut")
2350 (and cperl-use-syntax-table-text-property
2351 (not (eq (get-text-property (point)
2365 (or (looking-at "[ \t]\\|$") (insert " "))
2388 (looking-at "[;{]")) ; After { or ; + spaces
2389 (looking-at "[ \t]*}") ; Before }
2395 (looking-at "[,; \t]*\\($\\|#\\)") ; Comma to allow anon subr
2396 ; Are at end
2411 (or (looking-at "{[ \t]*$") ; If there is a statement
2420 (or (looking-at "[ \t]*}[,; \t]*$") ; If there is a statement
2436 ((and (looking-at "\n[ \t]*{$")
2447 (if (looking-at "\\(\\`\n?\\|\n\\)=\\sw+")
2449 (setq cut (looking-at "\\(\\`\n?\\|\n\\)=cut\\>"))
2450 (setq over (looking-at "\\(\\`\n?\\|\n\\)=over\\>"))
2471 ((get-text-property (point) 'in-pod) ; In POD section
2474 ((looking-at "\n[ \t]*$") ; Next line is empty - use it.
2514 (not (looking-at ":"))))))
2585 line. Otherwise, indent the current line only if point is at the left margin
2631 ;;((looking-at "[ \t]*#")
2636 (cond ((looking-at "[A-Za-z_][A-Za-z_0-9]*:[^:]")
2656 ;; position after the indentation. Else stay at same point in text.
2668 (looking-at "[a-zA-Z_][a-zA-Z0-9_]*:[^:]"))))
2696 (if start (goto-char start))) ; Not at the start of file
2706 ;;; XXXX What to do at point-max???
2713 ;;; ((not (get-text-property (1- p) prop))
2726 (let ((res (get-text-property (point) 'syntax-type)))
2730 (not (get-text-property (point) 'indentable)))
2733 ((looking-at "[ \t]*\n=")
2736 (looking-at "^#"))
2737 [comment-special:at-beginning-of-line])
2738 ((get-text-property (point) 'in-pod)
2752 prop (get-text-property p 'syntax-type)
2769 ;;containing-sexp ;; We are buggy at toplevel :-(
2778 (cond ((get-text-property (point) 'indentable)
2783 (get-text-property
2809 ((get-text-property char-after-pos 'REx-part2)
2817 ;; Line is at top level. May be data or function definition,
2826 (eq (point) old-indent) ; old-indent was at comment
2837 (looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*[ \t]*:")))
2838 (get-text-property (point) 'first-format-line)))
2840 ;; Look at previous line that's at column 0
2863 (looking-at "[ \t]*\\(#\\|$\\)")
2895 (get-text-property (point) 'first-format-line)))
2919 (looking-at "#\\|[a-zA-Z0-9_$]*:[^:]\\|=[a-zA-Z]"))
2932 ;; We are at beginning of code (NOT label or comment)
2964 (cond ((get-text-property (point) 'attrib-group)
2969 (looking-at "sub\\>")))
2999 (comment-special:at-beginning-of-line nil)
3069 ;; Indenter for stuff at toplevel
3077 ;; Look at previous line that's at column 0
3117 (if (looking-at "\\(\\w\\|_\\)+[ \t]*:")
3173 (looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*:[^:]"))
3219 ;; Line is at top level.
3240 (or (looking-at "[ \t]*\\(#\\|$\\)")
3251 (or (looking-at "[ \t]*\\(#\\|$\\)")
3290 (looking-at
3301 ;; Now at the point, after label, or at start
3342 (looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*:[^:]"))
3374 (if (setq pr (get-text-property (point) 'syntax-type))
3385 ; stop at comment
3396 ((looking-at "\\(s\\|tr\\)\\>")
3401 ((looking-at "\\(m\\|q\\([qxwr]\\)?\\)\\>")
3414 (defsubst cperl-modify-syntax-type (at how)
3415 (if (< at (point-max))
3417 (put-text-property at (1+ at) 'syntax-table how)
3418 (put-text-property at (1+ at) 'rear-nonsticky '(syntax-table)))))
3425 (put-text-property (1- (point)) (point) 'syntax-table cperl-st-punct))))
3428 (if cperl-use-syntax-table-text-property
3439 (put-text-property (1+ bb) (1- e)
3445 (put-text-property bb e 'face (if string 'font-lock-string-face
3483 modify syntax-type text property if the situation is too hard."
3538 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
3604 (or now (put-text-property b e 'cperl-postpone (cons type val)))
3605 (put-text-property b e type val)))
3636 (get-text-property (setq pos (point)) 'syntax-type)))
3651 (and (looking-at "\n*=")
3658 (while (and end (get-text-property end 'syntax-type))
3666 ;;; These are needed for byte-compile (at least with v19)
3683 (while (looking-at
3721 (put-text-property start (point)
3722 'attrib-group (if (looking-at "{") t 0))
3726 (put-text-property (+ 3 pos) (cperl-1+ (point))
3731 (if (looking-at "{")
3742 (defsubst cperl-look-at-leading-count (is-x-REx e)
3850 (if cperl-use-syntax-table-text-property
3892 (remove-text-properties min max
3909 (looking-at "extproc[ \t]")) ; Analogue of #!
3947 (looking-at "cut\\>"))
3972 (remove-text-properties
3985 (put-text-property b e 'in-pod t)
3986 (put-text-property b e 'syntax-type 'in-pod)
3991 (put-text-property (cperl-1- b) (point) 'syntax-type 'pod)
3999 (put-text-property (cperl-1- (point)) e 'syntax-type 'pod)
4006 (if (looking-at
4048 (or (looking-at "[ \t]*(") ; << function_call()
4061 ((looking-at "[0-9$({]")
4064 (looking-at "[ \t]*<<")
4070 (looking-at "\\(printf?\\|system\\|exec\\|sort\\)\\>")))
4074 (looking-at
4102 (progn ; Pretend we matched at the end
4118 (put-text-property b (match-beginning 0)
4120 (put-text-property (match-beginning 0) e1
4122 (put-text-property b e1 'here-doc-group t)
4123 ;; This makes insertion at the start of HERE-DOC update
4125 (put-text-property b (cperl-1+ b) 'front-sticky '(syntax-type))
4150 (put-text-property (save-excursion
4156 (not (looking-at "^[.;]$")))
4158 ((looking-at "^#")) ; Skip comments
4160 (looking-at "^[ \t]*{"))
4167 (setq argument (looking-at "^[^\n]*[@^]"))
4178 (if (looking-at "^\\.$") ; ";" is not supported yet
4190 (put-text-property b (point) 'syntax-type 'format))
4225 (looking-at
4252 (looking-at "[a-zA-Z]\\>")
4256 (looking-at
4264 cperl-use-syntax-table-text-property
4268 (looking-at "\\s|"))))))
4281 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
4295 (looking-at ; $foo -> {s}
4301 (looking-at "\\([ \t\n]*->\\)?[ \t\n]*{"))))
4311 (looking-at "::[a-zA-Z0-9_:]*[ \t\n\f]*}")
4323 (if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
4327 (put-text-property b (point) 'syntax-type 'prestring))
4353 ;; If s{} (), then b/b1 are at "{", "(", e1/i after ")", "}"
4358 (and (if go (looking-at ".\\sw*x")
4359 (looking-at "\\sw*x")) ; qr//x
4361 (and (if go (looking-at ".\\sw*o")
4362 (looking-at "\\sw*o")) ; //o
4368 (put-text-property b (point) 'syntax-type 'string)
4370 ;; ignore other text properties:
4372 (put-text-property b (point) 'indentable t))
4378 (if (looking-at "\\sw*e") ; s///e
4391 (put-text-property b i 'syntax-type 'string)
4392 (put-text-property i (point) 'syntax-type 'multiline)
4394 (put-text-property b i 'indentable t)))
4396 (put-text-property b (point) 'syntax-type 'string)
4398 (put-text-property b i 'indentable t))
4423 (not (looking-at "split\\>")))
4449 (cperl-look-at-leading-count is-x-REx e)
4539 (looking-at "(\\\\\\?")
4550 (put-text-property
4570 (cperl-look-at-leading-count is-x-REx e))
4591 (if (and cperl-use-syntax-table-text-property
4593 (put-text-property
4672 (looking-at
4695 (if (and cperl-use-syntax-table-text-property
4697 (put-text-property
4725 (if cperl-use-syntax-table-text-property
4726 (put-text-property
4753 (if cperl-use-syntax-table-text-property
4755 (put-text-property
4758 (put-text-property
4786 (put-text-property (1+ b) (1- e)
4796 (put-text-property b1 (1+ b1)
4819 (and (looking-at ":[^:]")
4829 (put-text-property (1- bb) bb 'syntax-table cperl-st-word)
4835 ;; (put-text-property b (1+ bb) 'syntax-type 'pod) ; Cheat
4858 ;;(message "state-at=%s, done-to=%s" state-point cperl-syntax-done-to)
4878 ;; Stops at lim or after non-whitespace that is not in comment
4885 (if (memq (setq pr (get-text-property (point) 'syntax-type))
4888 (or (and (looking-at "^[ \t]*\\(#\\|$\\)")
4901 (or (memq (preceding-char) (append ";){}$@&%\C-@" nil)) ; Or label! \C-@ at bobp
4904 (get-text-property (cperl-1- (point)) 'attrib-group)
4909 (or (and (looking-at "[a-zA-Z0-9_:]+[ \t\n\f]*[{#]") ; Method call syntax
4910 (not (looking-at "\\(bless\\|return\\|q[wqrx]?\\|tr\\|[smy]\\)\\>")))
4917 (looking-at "sub[ \t\n\f#]")))))))))
4941 (get-text-property (cperl-1- (point)) 'attrib-group)
4946 (or (and (looking-at "\\(else\\|continue\\|grep\\|map\\|BEGIN\\|END\\|CHECK\\|INIT\\)\\>")
4947 (not (looking-at "\\(\\sw\\|_\\)+::")))
4954 (looking-at "sub[ \t\n\f#]"))))))
4961 TEST is the expression to evaluate at the found position. If absent,
4972 ;;(memq (setq pr (get-text-property (point) 'syntax-type))
4974 (if (get-text-property (point) 'here-doc-group)
4979 (if (get-text-property (point) 'in-pod)
4984 (if (looking-at "^[ \t]*\\(#\\|$\\)") nil ; Only comment, skip
5000 (looking-at "[ \t]*__\\(END\\|DATA\\)__") ; After this anything goes
5007 (eq (get-text-property (point) 'syntax-type)
5021 (defun cperl-at-end-of-expr (&optional lim)
5023 (or (looking-at (concat cperl-maybe-white-and-comment-rex "[;}]"))
5027 ;; otherwise fails, or ends at a start of following sexp.
5044 (not (cperl-at-end-of-expr)))
5069 (looking-at
5077 Will not indent comment if it starts at `comment-indent' or looks like
5107 (if (looking-at "\\(my\\|local\\|our\\)\\>")
5109 (if (looking-at
5122 (if (looking-at ; Try Plan C: continuation block
5142 Returns some position at the last line."
5156 (or (looking-at "[ \t]*\\(els\\(e\\|if\\)\\|continue\\|if\\|while\\|for\\(each\\)?\\|until\\)")
5159 ;; Looking at:
5163 (if (looking-at
5172 (if (looking-at "[ \t]*}[ \t]*\\(els\\(e\\|if\\)\\|continue\\)\\>")
5182 ;; Looking at:
5184 (if (looking-at "[ \t]*}\\(\t*\\|[ \t][ \t]+\\)\\<\\(els\\(e\\|if\\)\\|continue\\)\\>")
5190 ;; Looking at:
5192 (if (looking-at
5199 ;; Looking at:
5201 (if (looking-at
5208 ;; Looking at:
5210 (if (looking-at
5218 ;; Looking at (with or without "}" at start, ending after "({"):
5220 (if (looking-at
5241 (looking-at "[ \t\n]*{"))
5246 ((looking-at "\\(\t*\\| [ \t]+\\){") ; Not exactly 1 SPACE
5261 ((and (looking-at "[ \t]*\n")
5270 ((and (looking-at "[\t ]*{")
5281 (if (looking-at "[ \t\n]*{[ \t]*[^ \t\n#]")
5301 ;; Looking at:
5306 (not (looking-at "[ \t]*}[ \t]*\\(\\<\\(els\\(if\\|e\\)\\|continue\\|while\\|until\\)\\>\\|$\\|#\\)"))
5348 Should be slow. Will not indent comment if it starts at `comment-indent'
5376 (setq empty (looking-at "[ \t]*\n"))
5377 (and (setq comm (looking-at "[ \t]*#"))
5384 (not (eq (get-text-property (point) 'syntax-type) 'pod))
5385 (not (eq (get-text-property (point) 'syntax-table)
5398 (not (memq (get-text-property (point)
5401 (not (eq (get-text-property (point)
5437 ;; Figure out what kind of comment we are looking at.
5443 ((looking-at "[ \t]*#[# \t]*")
5453 (looking-at "#+[ \t]*")
5473 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
5475 (or (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")
5481 (looking-at "^[ \t]*#+[ \t]*[^ \t\n#]")))
5488 (if (looking-at "#+")
5493 "Bug in Emacs: `looking-at' in `narrow-to-region': match-data is garbage"))
5577 (looking-at "[ \t\n]*;")))) ; Plain text word 'package'
5583 (null (get-text-property (match-beginning 1) 'syntax-table))
5584 (null (get-text-property (match-beginning 1) 'syntax-type))
5585 (null (get-text-property (match-beginning 1) 'in-pod)))
5587 ;; (if (looking-at "([^()]*)[ \t\n\f]*")
5602 (set-text-properties 0 (length name) nil name)
5615 (eq 0 (get-text-property (point) 'attrib-group)))))
5621 (set-text-properties 0 (length name) nil name))
5640 (set-text-properties 0 (length name) nil name)
5708 (looking-at outline-regexp)
5721 '(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[\\., \n]"
5901 font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]"
5921 (put-text-property
5998 '(progn ; Do at end
6006 (put-text-property
6334 Style of printout regulated by the variable `cperl-ps-print-face-properties'."
6346 (cperl-ps-extend-face-list cperl-ps-print-face-properties)
6650 (defun cperl-word-at-point (&optional p)
6651 "Return the word at point or at P."
6654 (or (cperl-word-at-point-hard)
6670 (let* ((default (cperl-word-at-point))
6747 "Show documentation for Perl command at point in other window."
6749 (cperl-info-on-command (cperl-word-at-point)))
6752 (if (looking-at "^-X[ \t\n]") nil
6793 Beginning of region should be at the start of a construction.
6795 partially contained in the region are lined up at the same column.
6801 Will not move the position at the start to the left."
6814 (if (looking-at "[a-zA-Z0-9_]")
6815 (if (looking-at "\\<[a-zA-Z0-9_]+\\>")
6822 (if (looking-at "$")
6963 (if cperl-use-syntax-table-text-property-for-tags
6965 (make-local-variable 'parse-sexp-lookup-properties)
6967 (set 'parse-sexp-lookup-properties t))))
6985 (if (looking-at "[^\n]*\\<PREFIX[ \t]*=[ \t]*\\([a-zA-Z_][a-zA-Z_0-9]*\\)\\>")
7027 (if (and cperl-use-syntax-table-text-property-for-tags
7045 (1+ (count-lines 1 (point))) ; 1+ since at beg-o-l
7082 ;; On case-preserving filesystems (EMX on OS/2) case might be encoded in properties
7083 (set-text-properties 0 (length rel) nil rel)
7175 ;; On case-preserving filesystems (EMX on OS/2) case might be encoded in properties
7176 (set-text-properties 0 (length rel) nil rel)
7219 (if (looking-at (concat
7458 "[CBIXSLFZ]<\\(\\sw\\|\\s \\|\\s_\\|[\n]\\)*>" ; C<code like text>
7464 "If matches at the start of match found by `my-bad-c-style-regexp',
7507 (looking-at cperl-not-bad-style-regexp)
7551 (defun cperl-word-at-point-hard ()
7559 ;; ((or (eobp) (looking-at "[][ \t\n{}();,]")) ; Not at a symbol
7564 ((looking-at "[a-zA-Z0-9_:]") ; symbol
7576 (looking-at "\\$?[a-zA-Z0-9_:]+>")) ; <FH>
7578 ((and (looking-at "=") (eq (preceding-char) ?x)) ; x=
7580 ((and (looking-at "\\^") (eq (preceding-char) ?\$)) ; $^I
7582 ((looking-at "[-!&*+,-./<=>?\\\\^|~]")
7593 (looking-at "\\$?[a-zA-Z0-9_:]+>")))) ; <FH>
7597 (looking-at "\\$?[a-zA-Z0-9_:]+>")) ; <$fh>
7599 (if (looking-at cperl-have-help-regexp)
7603 "Get one-line docs on the symbol at the point.
7609 (let ((word (cperl-word-at-point-hard)))
7613 (or (memq (get-text-property (point) 'face)
7615 (memq (get-text-property (point) 'syntax-type)
7629 "Display the documentation of symbol at point, a Perl operator."
7654 ;; get the buffer with the documentation text
7756 -B File is a non-text (binary) file.
7762 -T File is a text file.
7852 continue of { block } continue { block }. Is executed after `next' or at end.
7860 do { ... }|SUBR while|until EXPR executes at least once
7861 do(EXPR|SUBR([LIST])) (with while|until executes at least once)
8112 ;; position at enter and at leave is not defined
8117 (cond ((looking-at "(\\?\\\\#") ; (?#) wrongly commented when //x-ing
8121 ((looking-at "(\\?[^a-zA-Z]")
8123 ((looking-at "(\\?") ; (?i)
8129 (or (looking-at "[ \t]*[\n#]")
8152 (looking-at
8178 cperl-use-syntax-table-text-property)
8187 (if (looking-at "\\^?\\]")
8240 (cond ((looking-at "[*+?]\\??")
8248 (if (looking-at "[#\n]")
8265 ;; first at line
8271 (if (looking-at "[#\n]")
8277 (or (looking-at "[ \t\n]")
8281 (or (looking-at "[#\n]")
8296 (or cperl-use-syntax-table-text-property
8299 (if (looking-at "\\s|")
8301 (if (looking-at "\\([smy]\\|qr\\)\\s|")
8313 (if (looking-at "\\sw*x")
8349 (looking-at "\\(\\\\\\\\\\)*(")))
8422 (or (looking-at w-rex)
8426 (not (looking-at w-rex))
8430 (or (looking-at w-rex)
8456 (and (looking-at "[ \t]*#") (cperl-indent-for-comment))
8462 (if (looking-at "[ \t]+$")
8464 (if (looking-at "[ \t]*#")
8468 (if (looking-at "[ \t]*$")
8486 (if (looking-at "\\<\\(if\\|unless\\|while\\|until\\|for\\|foreach\\)\\>")
8518 (looking-at "\\<els\\(e\\|if\\)\\>"))
8542 (or (looking-at ";?[ \t\n]*}")
8551 (or (looking-at "[ \t\n]*)")
8568 (if (looking-at "#")
8590 ;;(error "Not at `if', `unless', `while', `until', `for' or `foreach'")
8601 (list (let* ((default-entry (cperl-word-at-point))
8630 (defun cperl-perldoc-at-point ()
8633 (cperl-perldoc (cperl-word-at-point)))
8717 (and (eq (get-text-property beg 'syntax-type) 'string)
8721 (if (memq (get-text-property s 'REx-interpolated) skip)
8762 PROP is the text-property to search for; default to `in-pod'. Stop when
8772 (setq has-prop (get-text-property pos prop))
8785 (if (or (eq 'here-doc (get-text-property pos 'syntax-type))
8787 (eq 'pod (get-text-property pos 'syntax-type))))
8793 "Narrows editing region to the HERE-DOC at POS.
8804 "Select the HERE-DOC (or POD section) at POS.
8820 (or (get-text-property (point) 'in-pod)
8833 L is the line to start at, STEP is the number of lines to skip when
8840 (interactive "nLine to start at: \nnStep to do incremental fontification: ")
8851 (message "cperl-mode at %s: %s" l tot)
8864 WINDOW-SIZE (units is lines). Negative WINDOW-SIZE starts at end, and
8941 (remove-text-properties beg end '(face nil))
8955 (eq (get-text-property (setq beg (point)) 'syntax-type)
8966 (eq (get-text-property (setq end (point)) 'syntax-type)
9012 (setq prop (get-text-property pos 'cperl-postpone)
9014 (and prop (put-text-property pos posend (car prop) (cdr prop)))
9021 (let* ((pos (point)) (prop (get-text-property pos 'cperl-postpone)) posend)
9028 (and prop (put-text-property pos posend (car prop) (cdr prop)))
9030 (setq prop (get-text-property pos 'cperl-postpone))))
9033 ;; Called when any modification is made to buffer text.
9041 (if (and cperl-use-syntax-table-text-property