Lines Matching +refs:point +refs:min
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)))))))))
616 (parse-partial-sexp (point-min) (point)))))
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)))
1047 (point))
1054 (while (<= (point) edpos)
1065 (while (and (<= (point) edpos) (not (eobp)))
1080 ;; If arg - move point
1092 (while (< (point) e)
1093 (and (re-search-forward reg (min e (pascal-get-end-of-line 2)) 'move)
1174 (point)))
1177 (while (< (point) end)
1196 (let ((start (point))
1203 (point))
1214 (let ((start (point))
1221 (point))))
1305 (min (length match))
1312 (if (< (setq tmp (pascal-string-diff match (car elm))) min)
1314 (setq min tmp)
1315 (setq match (substring match 0 min))))
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))))))