Lines Matching +refs:point +refs:max
280 (point)))
285 (point)))
292 (save-excursion (end-of-line 2) (point)) t))
310 (nth 3 (parse-partial-sexp (pascal-get-beg-of-line) (point)))))
318 \\[pascal-complete-word] completes the word around current point with respect \
320 \\[pascal-show-completions] shows all possible completions at this point.
348 regardless of where in the line point is when the TAB command is used.
510 "Insert Pascal star comment at point."
523 This puts the mark at the end, and point at the beginning."
525 (push-mark (point))
527 (push-mark (point))
551 (setq end (point))
572 (let ((start (point))
573 (end (point)))
577 (point)))
579 (point))))
581 (if (or (equal start (point)) (<= end (point)))
587 (let ((pos (point)))
589 (delete-region pos (1+ (point))))
600 (let ((pos (point)))
602 (delete-region pos (1+ (point)))))))))
610 (let ((nest 0) (max -1) (func 0)
616 (parse-partial-sexp (point-min) (point)))))
620 (if (and (looking-at "\\<record\\>") (>= max 0))
623 max (max nest max)))
625 (if (and (= nest max) (>= max 0))
649 (parse-partial-sexp (point-min) (point)))))
682 (throw 'found (point)))
689 (throw 'found (point))))))))
699 (throw 'found (point)))
725 (goto-char (point-min))
777 (point))
779 (point))))
851 (oldpos (point))
852 (state (save-excursion (parse-partial-sexp (point-min) (point))))
861 (goto-char (scan-lists (point) -1 (car state)))
875 (end-of-line) (backward-sexp) (point))
876 (point))
879 (point))
880 (point)))
975 (let ((savepos (point-marker))
978 (point-marker)
980 (beg (point))
983 (while (< (point) end)
988 (if (< (point) end)
996 (while (< (point) end)
1015 (let* ((oldpos (point))
1016 (stpos (progn (goto-char (scan-lists (point) -1 1)) (point)))
1020 (point)))
1037 (let ((pos (point-marker)))
1043 (forward-word 2) (backward-word 1) (point)))
1046 (max (progn (pascal-declaration-end)
1047 (point))
1054 (while (<= (point) edpos)
1065 (while (and (<= (point) edpos) (not (eobp)))
1080 ;; If arg - move point
1092 (while (< (point) e)
1174 (point)))
1177 (while (< (point) end)
1196 (let ((start (point))
1203 (point))
1214 (let ((start (point))
1221 (point))))
1336 "Complete word at current point.
1340 (let* ((b (save-excursion (skip-chars-backward "a-zA-Z0-9_") (point)))
1341 (e (save-excursion (skip-chars-forward "a-zA-Z0-9_") (point)))
1390 (momentary-string-display "" (point))
1395 "Show all possible completions at current point."
1397 (let* ((b (save-excursion (skip-chars-backward "a-zA-Z0-9_") (point)))
1398 (e (save-excursion (skip-chars-forward "a-zA-Z0-9_") (point)))
1410 (momentary-string-display "" (point))
1415 "Return symbol around current point as a string."
1420 (point))
1423 (point)))))
1455 (goto-char (point-min))
1469 The default is a name found in the buffer around point."
1489 (goto-char (point-min))
1554 (pascal-outline-change (point-min) (point-max) ?\n))
1562 (point)))
1566 (point)))
1567 (opoint (point-min)))
1568 (goto-char (point-min))
1573 (setq opoint (point))
1575 (if (> (progn (pascal-end-of-defun) (point)) beg)
1585 (setq opoint (point))
1587 (pascal-outline-change opoint (point) ?\^M))
1595 (setq opoint (point))
1597 (pascal-outline-change opoint (point-max) ?\^M)
1600 (if (< (progn (forward-line -1) (point)) end)
1605 (pascal-outline-change (point) (point-max) ?\^M))))))