Lines Matching +refs:point +refs:min
261 (defcustom cperl-min-label-indent 1
308 regardless of where in the line point is when the TAB command is used."
624 "*Non-nil means that CPerl syntaxifies up to the point before showing menu.
761 `fill-paragraph' on a comment may leave the point behind the
1060 (put-text-property (max (point-min) (1- from))
1071 (parse-partial-sexp (point) (point)))) 9))
1087 (let ((prop (get-text-property (point) 'syntax-type)))
1096 (or (get-text-property (point) 'syntax-type)
1098 (put-text-property (point) (match-end 0)
1160 (cperl-define-key "\C-c\C-hP" 'cperl-perldoc-at-point)
1248 (next-single-property-change (point-min) 'REx-interpolated)]
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)
1282 (cperl-update-syntaxification (point-max) (point-max)))
1283 (next-single-property-change (point-min) 'in-pod nil (point-max)))
1284 (point-max)))]
1288 (cperl-update-syntaxification (point-max) (point-max)))
1289 (next-single-property-change (point-min) 'here-doc-group nil (point-max)))
1290 (point-max))]
1294 (cperl-update-syntaxification (point) (point)))
1295 (get-text-property (point) 'syntax-type)))]
1300 (cperl-update-syntaxification (point) (point)))
1301 (get-text-property (point) 'syntax-type))
1338 ["Define word at point" 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]
1465 (max (point-min) (1- p)))
1468 (min (point-max) (1+ p)))
1539 causes the construct to be expanded, and the point is positioned where
1622 regardless of where in the line point is when the TAB command is used.
1651 `cperl-min-label-indent'
1934 (defun cperl-comment-indent () ; called at point at supposed comment
1935 (let ((p (point)) (c (current-column)) was phony)
1942 phony (eq (get-text-property (point) 'syntax-table)
1950 (if (= (point) p) ; Our caller found a correct place
1963 (cperl-make-indent comment-column 1) ; Indent min 1
2020 (< (mark) (point)))
2026 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point)))
2030 (setq insertpos (point-marker))
2041 ;;(cperl-after-block-p (point-min))
2067 (setq insertpos (1- (point))))
2076 (setq insertpos (1- (point)))))
2092 (> (mark) (point)))
2095 (point-marker))
2119 (setq last-command-char ?} pos (point))
2127 (let ((beg (save-excursion (beginning-of-line) (point)))
2130 (> (mark) (point)))
2133 (point-marker))
2138 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
2163 (let ((beg (save-excursion (beginning-of-line) (point)))
2169 (< (mark) (point)))
2176 (>= (save-excursion (cperl-to-comment-or-eol) (point)) (point))
2181 (setq p (point))
2196 (let ((beg (save-excursion (beginning-of-line) (point)))
2218 (not (eq (get-text-property (point)
2263 "Make sure there are N newlines after the point."
2264 (or pos (setq pos (point)))
2288 (get-text-property (point) 'in-pod)
2290 (and (re-search-backward "\\(\\`\n?\\|^\n\\)=\\sw+" (point-min) t)
2293 (eq (get-text-property (point) 'syntax-type) 'pod))))))
2312 p (point))
2324 (setq p (point))
2339 (let ((beg (save-excursion (beginning-of-line) (point))))
2351 (not (eq (get-text-property (point)
2378 (let ((beg (save-excursion (beginning-of-line) (point)))
2379 (end (save-excursion (end-of-line) (point)))
2380 (pos (point)) start over cut res)
2384 (>= (point) pos)) ; Not in a comment
2397 (cperl-after-block-p (point-min))
2400 (setq start (point-marker))
2456 (setq pos (point))
2457 (setq cut (buffer-substring (point)
2460 (point))))
2461 (delete-char (- (save-excursion (end-of-line) (point))
2462 (point)))
2471 ((get-text-property (point) 'in-pod) ; In POD section
2492 (let ((end (point))
2512 (and (< (point) end)
2517 (let ((pps (parse-partial-sexp (point) end)))
2522 (if auto (setq insertpos (point-marker)))
2540 "Backspace, or remove the whitespace around the point inserted by an electric
2551 (setq p (point))
2553 (delete-region (point) p))
2562 (setq p (point))
2564 (delete-region (point) p))
2575 (narrow-to-region (point)
2576 (progn (beginning-of-defun) (point)))
2577 (goto-char (point-max))
2578 (= (char-after (or (scan-lists (point) -1 1) (point-min))) ?\()))
2585 line. Otherwise, indent the current line only if point is at the left margin
2589 means indent rigidly all the lines of the expression starting after point
2593 (cperl-update-syntaxification (point) (point))
2602 (setq beg (point))
2604 (setq end (point))
2607 (setq beg (point)))
2621 (pos (- (point-max) (point)))
2626 (setq beg (point))
2638 (setq indent (max cperl-min-label-indent
2650 (if (> (- (point-max) pos) (point))
2651 (goto-char (- (point-max) pos)))
2652 ;;;(delete-region beg (point))
2655 ;; If initial point was within line's indentation,
2656 ;; position after the indentation. Else stay at same point in text.
2657 (if (> (- (point-max) pos) (point))
2658 (goto-char (- (point-max) pos))))
2662 ;; Returns true if the point is after label. Does not do save-excursion.
2664 (memq (char-syntax (char-after (- (point) 2)))
2679 (let ((start-point (point)) depth state start prestart)
2681 (<= parse-start start-point))
2685 (setq prestart (point))
2688 (while (< (point) start-point)
2689 (setq start (point) parse-start start depth nil
2690 state (parse-partial-sexp start start-point -1))
2697 (setq start (point))
2698 (or state (setq state (parse-partial-sexp start start-point -1 nil start-state)))
2706 ;;; XXXX What to do at point-max???
2708 (point-min))
2709 ;;; (cond ((eq p (point-min))
2716 ;;; (point-min))))
2725 (cperl-update-syntaxification (point) (point))
2726 (let ((res (get-text-property (point) 'syntax-type)))
2730 (not (get-text-property (point) 'indentable)))
2738 ((get-text-property (point) 'in-pod)
2742 (let* ((indent-point (point))
2745 (point)))
2747 (pre-indent-point (point))
2751 (setq p (max (point-min) (1- (point)))
2759 (setq pre-indent-point (point)))))
2760 (goto-char pre-indent-point) ; Orig line skipping preceeding pod/etc
2772 (setcar parse-data pre-indent-point)
2776 ;; Before this point: end of statement
2778 (cond ((get-text-property (point) 'indentable)
2786 (point) 'indentable))
2791 (if (<= (point) p)
2795 (if (memq (char-after (point))
2798 (point)))
2800 (point)))
2810 (vector 'REx-part2 (point)))
2823 (cperl-backward-to-noncomment (or old-indent (point-min)))
2826 (eq (point) old-indent) ; old-indent was at comment
2831 (point-min))) ; Was start - too close
2838 (get-text-property (point) 'first-format-line)))
2848 (list pre-indent-point)))
2865 (setq old-indent (point)) ; delim=is-brace
2866 (vector 'in-parens char-after (point) delim containing-sexp))
2870 (goto-char pre-indent-point) ; Skip one level of POD/etc
2877 (or;;(eq (char-after (- (point) 2)) ?\') ; ????
2878 (memq (char-syntax (char-after (- (point) 2)))
2888 ;; Now we get non-label preceeding the indent point
2889 (if (not (or (eq (1- (point)) containing-sexp)
2895 (get-text-property (point) 'first-format-line)))
2904 (vector 'continuation (point) char-after is-block delim))
2925 (or (next-single-property-change (point) 'in-pod)
2926 (point-max)))) ; do not loop if no syntaxification
2930 (setq colon-line-end (point)))
2935 (and (< (point) indent-point)
2936 (vector 'have-prev-sibling (point) colon-line-end
2952 (cperl-backward-to-noncomment (point-min)))
2958 (cperl-backward-to-noncomment (point-min))))
2964 (cond ((get-text-property (point) 'attrib-group)
2966 (point) 'attrib-group)))
2973 (point))
2974 (point)))))
2981 t (point) ; have something before...
2990 nil (point) ; nothing interesting before
3049 (setq p (point))
3053 (setq p (nth 0 (parse-partial-sexp (point) p))
3088 ;; in-parens char-after old-indent-point is-brace containing-sexp
3094 (goto-char (elt i 2)) ; old-indent-point
3118 (if (> (current-indentation) cperl-min-label-indent)
3133 (if (> (elt i 2) (point)) ; colon-line-end; After-label, same line
3135 cperl-min-label-indent)
3174 (if (> (current-indentation) cperl-min-label-indent)
3201 "Return a list of lists ((TYPE POS)...) of good points before the point.
3206 (let* ((start-point (point)) unused
3223 (cperl-backward-to-noncomment (or parse-start (point-min)))
3242 (point)))
3253 (point)))
3288 (while (progn (skip-chars-forward " \t\n" start-point)
3289 (and (< (point) start-point)
3299 (setq colon-line-end (point)))
3301 ;; Now at the point, after label, or at start
3303 (and (< (point) start-point)
3304 (if (> colon-line-end (point))
3307 cperl-min-label-indent)
3308 (list (list 'label-in-block (point)))
3311 (list 'label-in-block-min-indent (point))))
3313 (list 'statement-in-block (point))))))
3343 (if (> (current-indentation) cperl-min-label-indent)
3356 (setq end (point))
3360 (setq end (point)))
3367 Returns true if comment is found. In POD will not move the point."
3370 (let (state stop-in cpoint (lim (progn (end-of-line) (point))) pr e)
3374 (if (setq pr (get-text-property (point) 'syntax-type))
3375 (setq e (next-single-property-change (point) 'syntax-type nil (point-max))))
3384 (setq state (parse-partial-sexp (point) lim nil nil nil t))
3393 (setq cpoint (point))
3415 (if (< at (point-max))
3425 (put-text-property (1- (point)) (point) 'syntax-table cperl-st-punct))))
3471 The point should be before the starting delimiter.
3487 (setq b (point)
3493 ;; Whether we have an intermediate point
3511 (if (<= (point) (1+ b))
3518 (char-after (- (point) 2)))
3530 (cperl-modify-syntax-type (point) cperl-st-punct))
3534 (setq i (point) i2 i)
3541 (setq i2 (point))))
3633 (let ((pos (point)) opos)
3636 (get-text-property (setq pos (point)) 'syntax-type)))
3639 (if (eq pos (point-min))
3646 (setq pos (point)))
3649 (goto-char (point-min))))
3654 (setq pos (point))
3660 end (next-single-property-change end 'syntax-type nil (point-max)))
3663 (setq end (point)))))
3678 Should be called with the point before leading colon of an attribute."
3681 (let (st b p reset-st after-first (start (point)) start1 end1)
3706 (setq reset-st (syntax-table) p (point))
3711 (cperl-commentify p (point) t))) ; mark as string
3716 (count-lines (point-min) (point))
3721 (put-text-property start (point)
3724 (< 1 (count-lines (+ 3 pos) (point))) ; end of `sub'
3726 (put-text-property (+ 3 pos) (cperl-1+ (point))
3747 (1- (point)) (point)
3751 (defun cperl-find-pods-heres (&optional min max non-inter end ignore-max end-of-here-doc)
3757 (or min (setq min (point-min)
3759 cperl-syntax-done-to min))
3760 (or max (setq max (point-max)))
3769 (>= min (car cperl-syntax-state))))
3770 (state-point (if use-syntax-state
3772 (point-min)))
3825 (stop-point (if ignore-max
3826 (point-max)
3886 ;;(message "find: %s --> %s" min max)
3892 (remove-text-properties min max
3905 (goto-char min)
3907 (eq (point) 1)
3910 (cperl-commentify min
3911 (save-excursion (end-of-line) (point))
3914 (< (point) max)
3919 state-point b nil nil state))
3920 state-point b)
3927 (setq b (1- (point))
3929 state-point (1- b) nil nil state)
3930 state-point (1- b))
3937 ;; No processing in strings/comments beyond this point:
3944 state-point b nil nil state)
3945 state-point b)
3951 (or (car err-l) (setcar err-l (point))))
3954 (setq b (point)
3960 (or (re-search-forward "^\n=cut\\>" stop-point 'toend)
3963 (if (re-search-forward "\n=cut\\>" stop-point 'toend)
3969 (setq e (point))
3991 (put-text-property (cperl-1- b) (point) 'syntax-type 'pod)
3992 (cperl-put-do-not-fontify b (point) t)
3995 (cperl-postpone-fontification b (point) 'face face t))
3998 (setq b (point)))
3999 (put-text-property (cperl-1- (point)) e 'syntax-type 'pod)
4000 (cperl-put-do-not-fontify (point) e t)
4004 (cperl-postpone-fontification (point) e 'face face t)
4022 (or (eq e (point-max))
4043 (setq b (point)
4092 (setq i (point))
4095 (setq b (point))
4099 stop-point 'toend)
4103 (goto-char (point-max))
4129 (setq cperl-syntax-state (cons state-point state))
4134 (if (and overshoot (> overshoot (point)))
4143 (setq b (point)
4152 (point))
4166 (setq b1 (point))
4170 (cperl-postpone-fontification b1 (point)
4172 (cperl-commentify b1 (point) nil)
4173 (cperl-put-do-not-fontify b1 (point) t))))
4176 (re-search-forward "^[.;]$" stop-point 'toend))
4181 (cperl-postpone-fontification (point) (+ (point) 2)
4183 (cperl-commentify (point) (+ (point) 2) nil)
4184 (cperl-put-do-not-fontify (point) (+ (point) 2) t))
4188 (if (> (point) max)
4190 (put-text-property b (point) 'syntax-type 'format))
4200 b (point) ; end of qq etc
4229 (cperl-backward-to-noncomment (point-min))
4244 (cperl-after-block-p (point-min)))
4259 (eq (char-after (- (point) 2)) ?.))
4273 go (point))
4305 (eq (char-after (1+ (point))) ?\>))
4326 (if (> (point) b)
4327 (put-text-property b (point) 'syntax-type 'prestring))
4331 (setq b (point) ; before the first delimiter
4336 i (cperl-forward-re stop-point end
4340 ;; as in s/foo//x; the point is before final "slash"
4345 i (car i) ; intermediate point
4346 e1 (point) ; end
4367 (cperl-commentify b (point) t)
4368 (put-text-property b (point) 'syntax-type 'string)
4372 (put-text-property b (point) 'indentable t))
4381 (setq cperl-syntax-state (cons state-point state))
4384 (car (cperl-find-pods-heres b1 (1- (point)) t end))
4389 (cperl-modify-syntax-type (1- (point)) cperl-st-ket)
4392 (put-text-property i (point) 'syntax-type 'multiline)
4395 (cperl-commentify b1 (point) t)
4396 (put-text-property b (point) 'syntax-type 'string)
4406 (if tail (cperl-commentify tail (point) t))
4408 e1 (point) 'face my-cperl-REx-modifiers-face)))
4517 (and (< (point) (1- e))
4520 (setq REx-subgr-start (point)
4527 (if (>= (point) e)
4530 (match-beginning 0) (point)
4537 (if (> (point) b)
4540 (eq (char-after (1+ (point))) ?\?))
4548 (if (> (point) (1+ REx-subgr-start))
4551 (match-beginning 0) (point)
4556 (eq (point)
4574 (if (>= (point) e)
4580 (setq REx-subgr-start (point)
4583 (- (point) 2) (- (point) 1) 'face
4594 REx-subgr-start (1- (point))
4597 (1- (point)) (point) 'face
4628 (1- REx-subgr-start) (point)
4635 (eq (char-after (cperl-1+ (point)))
4642 qtag (point))
4645 (eq (char-after (cperl-1+ (point)))
4666 (< REx-subgr-start (point))
4687 (setq argument (point))))
4688 (setq tag (cons (cons argument (point))
4690 argument (point)) ; continue
4696 (> (- (point) 2) REx-subgr-start))
4698 (1+ REx-subgr-start) (1- (point))
4704 (1- (point)) (point) 'face
4708 (- (point) 2) (1- (point))
4720 (if (> (point) e)
4727 (1- (point)) (point)
4730 (1- (point)) (point)
4736 (and (>= (point) e)
4738 (and (not (eq (char-after (- (point) 2))
4745 (1- tag) (1- (point))
4751 (1- (point)) (point)
4756 (- (point) 2) (1- (point))
4775 (if (>= (point) e)
4779 (setq REx-subgr-end (point))
4798 (if (> (point) max)
4848 (if (> (point) stop-point)
4854 (goto-char stop-point))))
4855 (setq cperl-syntax-state (cons state-point state)
4857 cperl-syntax-done-to (or tmpend (max (point) max)))
4858 ;;(message "state-at=%s, done-to=%s" state-point cperl-syntax-done-to)
4873 (defun cperl-find-pods-heres-region (min max)
4875 (cperl-find-pods-heres min max))
4881 (while (and (not stop) (> (point) (or lim (point-min))))
4883 (setq p (point))
4885 (if (memq (setq pr (get-text-property (point) 'syntax-type))
4893 (if (< p (point)) (goto-char p))
4900 (cperl-backward-to-noncomment (point-min))
4904 (get-text-property (cperl-1- (point)) 'attrib-group)
4913 (cperl-backward-to-noncomment (point-min))
4935 (or (eq (point) lim)
4941 (get-text-property (cperl-1- (point)) 'attrib-group)
4964 (let ((lim (or lim (point-min)))
4966 (cperl-update-syntaxification (point) (point))
4968 (while (and (not stop) (> (point) lim))
4970 (setq p (point))
4972 ;;(memq (setq pr (get-text-property (point) 'syntax-type))
4974 (if (get-text-property (point) 'here-doc-group)
4977 (cperl-beginning-of-property (point) 'here-doc-group))
4979 (if (get-text-property (point) 'in-pod)
4982 (cperl-beginning-of-property (point) 'in-pod))
4988 (if (< p (point)) (goto-char p))
4989 (setq p (point))
4999 (eq (point) lim)
5007 (eq (get-text-property (point) 'syntax-type)
5014 (> (point) lim))
5030 (let ((p (point)))
5035 (or (< (point) p)
5040 (let ((p (point))))
5043 (while (and (< (point) (or lim (point-max)))
5052 (if (<= (point) lim)
5062 (cperl-backward-to-noncomment (point-min))
5064 (eq (point) lim)
5084 (let ((tmp-end (progn (end-of-line) (point))) top done)
5088 (setq top (point))
5090 (while (= -1 (nth 0 (parse-partial-sexp (point) tmp-end -1)))
5091 (setq top (point))) ; Get the outermost parenths in line
5093 (while (< (point) tmp-end)
5094 (parse-partial-sexp (point) tmp-end nil t) ; To start-sexp or eol
5096 (if (> (point) tmp-end) ; Yes, there an unfinished block
5100 (setq top (point))
5119 (setq top (point)))))
5129 (setq tmp-end (point))))
5133 (setq tmp-end (point))))
5135 (setq tmp-end (point-marker)))
5138 (cperl-indent-region (point) tmp-end))))
5145 (setq end (point-max)))
5146 (let ((ee (save-excursion (end-of-line) (point)))
5152 (setq ret (point))
5167 (setq p (point))
5169 (delete-region p (point))
5177 (setq ret (point))
5181 (setq ret (point)))))))
5226 (setq p (point))
5230 (setq pp (point))) ; past parenth-group
5254 (setq ret (point))
5258 (setq ret (point)))))
5265 (setq pp (point))
5267 (delete-region pp (point))
5275 (setq ret (point))
5279 (setq ret (point))))))
5284 (setq pp (point))
5286 (setq p (point))
5295 (setq ret (point))
5299 (setq p (point) pp (save-excursion (end-of-line) (point))) ; May be different from ee.
5310 (if (and (<= (point) pp)
5312 (cperl-after-block-and-statement-beg (point-min)))
5331 (cperl-after-block-p (point-min)))
5334 (setq ret (point)))
5343 (setq cperl-update-start (min beg (or cperl-update-start (point-max))))
5344 (setq cperl-update-end (max end (or cperl-update-end (point-min)))))
5373 (while (and (<= (point) end) (not (eobp))) ; bol to check start
5374 (setq st (point))
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)
5426 block of it that point is in, preserving the comment's initial
5454 (setq start (point) c (current-column)
5459 (buffer-substring (point) start))
5460 dc (- c (current-column)) len (- start (point))
5461 start (point-marker))
5470 (if start (progn (beginning-of-line) (point))
5477 (point)))
5482 (point)))
5485 (goto-char (point-min))
5486 (while (progn (forward-line 1) (< (point) (point-max)))
5490 (if (and (eq (point) (match-beginning 0))
5491 (not (eq (point) (match-end 0)))) nil
5520 (cperl-to-comment-or-eol) (point)))
5522 (if (>= c (point))
5525 (setq marker (point-marker))
5564 (goto-char (point-min))
5565 (cperl-update-syntaxification (point-max) (point-max))
5590 p (point))
5610 (parse-partial-sexp (point) (point-max) -1) (point))
5615 (eq 0 (get-text-property (point) 'attrib-group)))))
5991 (1- (point))) ; report limit
5994 (point-max) ; No limit for continuation
6004 (point))))
6007 (1+ cperl-font-lock-multiline-start) (point)
6646 (make-local-variable 'window-min-height)
6647 (setq window-min-height 2)
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))
6689 (goto-char (point-min))
6700 (setq pos (point)
6727 (match-beginning 0) (point-max)))))
6747 "Show documentation for Perl command at point in other window."
6749 (cperl-info-on-command (cperl-word-at-point)))
6788 (set-window-start (selected-window) (point))
6807 (setq end (point-marker))
6810 (setq beg (point-marker))
6829 (and (< (point) end)
6843 (and (< (point) end)
6973 (goto-char (point-min))
7044 (point)
7045 (1+ (count-lines 1 (point))) ; 1+ since at beg-o-l
7050 (point))
7053 (point))))))))
7079 (setq pos (point))
7087 (setq ret (buffer-substring 1 (point-max)))
7170 (cond ((eq erase 'ignore) (goto-char (point-max)))
7182 (delete-region (point)
7187 (- (point) 2)
7188 (point-max)))))
7189 (goto-char (point-max)))))
7474 (let (found-bad (p (point)))
7476 (goto-char (point-min))
7501 (let (p (not-found t) (point (point)) found)
7504 (setq p (point))
7515 (setq found (point))
7517 (let ((pps (parse-partial-sexp (point) found)))
7551 (defun cperl-word-at-point-hard ()
7556 (save-excursion (beginning-of-line) (point))
7568 (eq (char-after (- (point) 2)) ?\$))
7586 (not (eq (char-after (- (point) 2)) ?\$))) ; $-
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)
7621 (buffer-substring (point) (min (+ 5 (point)) (point-max))))))))))
7629 "Display the documentation of symbol at point, a Perl operator."
7658 (goto-char (point-min))
7661 (if (re-search-forward regexp (point-max) t)
7664 (let ((lnstart (point)))
7666 (message "%s" (buffer-substring lnstart (point)))))
8140 (set-marker e (point))))
8143 (while (< (point) (marker-position e))
8145 (setq s (point)
8148 (delete-region s (point))
8186 (setq tmp (point))
8208 (setq tmp (point))
8214 (set-marker m (1- (point)))
8215 (set-marker m1 (point))
8223 (indent-rigidly (point) m1 (- c1 pos)))
8233 (cperl-beautify-regexp-piece (point) m t level))
8236 (cperl-beautify-regexp-piece (point) m t level))
8258 (setq tmp (point))
8266 (delete-region (point) tmp))
8283 (buffer-substring (point) (1+ (point)))))
8286 (if (and (>= (point) (marker-position e))
8305 (let ((b (point)) (e (make-marker)) have-x delim (c (current-column))
8308 (set-marker e (1- (point)))
8310 (if (and sub-p (eq delim (char-after (- (point) 2))))
8332 (let ((b (point)) (e (make-marker)))
8334 (set-marker e (1- (point)))
8359 (let ((b (point)) (e (make-marker)) c)
8361 (set-marker e (1- (point)))
8383 (let ((b (point)) (e (make-marker)) s c)
8385 (set-marker e (1- (point)))
8402 (let ((b (point)) (e (make-marker)))
8404 (set-marker e (1- (point)))
8415 (setq pre-if (point))
8417 (setq pre-B (point))
8420 (setq post-A (point))
8427 (> (point) pre-B))
8429 (setq pre-if (point))))
8436 (setq post-if (point))
8439 (setq post-B (point))
8441 (setq pre-B (point))
8448 (setq pre-A (point))
8450 (setq post-A (point))
8454 (delete-region pre-A (point)) ; we move to pre-A
8461 (setq post-B (point))
8471 (delete-region (point) (1+ (point)))))
8487 (let ((pre-if (point))
8491 (setq post-A (point))
8493 (setq pre-A (point))
8506 (setq post-B (point))
8508 (setq pre-B (point))
8526 (setq end-B-code (point))
8540 (setq B (buffer-substring (point) end-B-code))
8546 (buffer-substring (point) (1- post-B)))))
8553 (setq p (point))
8556 (setq A (buffer-substring (point) p))
8564 (setq pre-A (point))
8567 (setq post-B (point))
8577 (while (<= (point) (marker-position pre-A))
8601 (list (let* ((default-entry (cperl-word-at-point))
8630 (defun cperl-perldoc-at-point ()
8631 "Run a `perldoc' on the word around point."
8633 (cperl-perldoc (cperl-word-at-point)))
8690 "Move point to next REx which has interpolated parts without //o.
8698 "Move point to next REx which has interpolated parts without //o."
8703 "Move point to next REx which has interpolated parts.
8705 point and the limit of search (default to point and end of buffer).
8714 (or beg (setq beg (point)))
8715 (or limit (setq limit (point-max))) ; needed for n-s-p-c
8744 (setq beg (min (mark) (point))
8745 end (max (mark) (point)))
8746 (setq beg (point-min)
8747 end (point-max)))
8754 (point))))
8766 (or s (setq s (point-min)))
8767 (or end (setq end (point-max)))
8780 "Return HERE document region around the point.
8781 Return nil if the point is not in a HERE document region. If POD is non-nil,
8782 will return a POD section if point is in a POD section."
8783 (or pos (setq pos (point)))
8790 (cons b (or e (point-max))))))
8794 POS defaults to the point."
8796 (or pos (setq pos (point)))
8805 POS defaults to the point."
8820 (or (get-text-property (point) 'in-pod)
8856 (cperl-update-syntaxification (point) (point))
8871 (point-min)
8872 (point-max)))
8879 (< pos (point-max))
8880 (> pos (point-min)))
8883 (point)))
8884 (font-lock-fontify-region (min p pos) (max p pos))
8938 (inhibit-read-only t) (inhibit-point-motion-hooks t)
8955 (eq (get-text-property (setq beg (point)) 'syntax-type)
8959 (setq beg (point))
8966 (eq (get-text-property (setq end (point)) 'syntax-type)
8968 (setq end (next-single-property-change end 'syntax-type nil (point-max)))
8970 (setq end (point)))
8977 (let ((dbg (point)) (iend end) (idone cperl-syntax-done-to)
8986 (setq cperl-syntax-done-to (point-min)
8992 (min cperl-syntax-done-to (point))))
8995 (setq start (point))
8998 start (point)))
9009 (let ((pos (point-min)) prop posend)
9010 (setq end (point-max))
9021 (let* ((pos (point)) (prop (get-text-property pos 'cperl-postpone)) posend)
9025 (point-min))))
9038 (setq cperl-syntax-done-to (min cperl-syntax-done-to beg))))