Lines Matching +defs:goto +defs:line
81 (define-key map "\r" 'electric-pascal-terminate-line)
93 (define-key map "\C-c\C-d" 'pascal-goto-defun)
109 "file" "for" "function" "goto" "if" "in" "label" "mod" "nil" "not" "of"
180 '("\\<\\(goto\\)\\>[ \t]*\\([0-9]+\\)?"
182 '("\\<\\(goto\\)\\>[ \t]*\\([0-9]+\\)?"
209 "*Non-nil means TAB in Pascal mode should always reindent the current line.
210 If this is nil, TAB inserts a tab if it is at the end of the line
277 (defsubst pascal-get-beg-of-line (&optional arg)
279 (beginning-of-line arg)
282 (defsubst pascal-get-end-of-line (&optional arg)
284 (end-of-line arg)
292 (save-excursion (end-of-line 2) (point)) t))
301 (re-search-backward "[:=]\\|\\<\\(type\\|var\\|label\\|const\\)\\>\\|\\(\\<record\\>\\)\\|\\(\\<end\\>\\)" (pascal-get-beg-of-line 0) t))
310 (nth 3 (parse-partial-sexp (pascal-get-beg-of-line) (point)))))
332 \\[pascal-goto-defun]\t- Goto function prompted for in the minibuffer.
347 Non-nil means TAB in Pascal mode should always reindent the current line,
348 regardless of where in the line point is when the TAB command is used.
367 (make-local-variable 'indent-line-function)
368 (setq indent-line-function 'pascal-indent-line)
398 (defun electric-pascal-terminate-line ()
399 "Terminate line and indent next line."
401 ;; First, check if current line should be indented
403 (beginning-of-line)
406 (pascal-indent-line)))
409 ;; Indent next line
410 (pascal-indent-line)
417 (forward-line -1)
425 (search-forward "*)" (pascal-get-end-of-line) t))))
427 ;; If last line was a star comment line then this one shall be too.
429 (pascal-indent-line)
434 "Insert `;' or `.' character and reindent the line."
438 (beginning-of-line)
439 (pascal-indent-line))
441 (electric-pascal-terminate-line)))
444 "Insert `:' and do all indentions except line indent on this line."
451 (beginning-of-line)
452 (pascal-indent-line))
468 (if (save-excursion (beginning-of-line) (looking-at "^[ \t]*#"))
469 (save-excursion (beginning-of-line)
478 (save-excursion (beginning-of-line) (eq (following-char) ?#))))
480 ;; If pascal-tab-always-indent, indent the beginning of the line.
483 (beginning-of-line)
484 (pascal-indent-line))
488 (pascal-indent-line)
502 (electric-pascal-terminate-line)
506 (beginning-of-line)
507 (pascal-indent-line)))
512 (pascal-indent-line)
514 (electric-pascal-terminate-line)
516 (electric-pascal-terminate-line)
545 (goto-char end)
548 (forward-line 1)
549 (beginning-of-line))
553 (goto-char start)
554 (beginning-of-line)
558 (goto-char end)
585 (goto-char end)
586 (beginning-of-line)
588 (end-of-line)
598 (goto-char start)
599 (beginning-of-line)
601 (end-of-line)
655 (goto-char (match-beginning 0))
664 (forward-line 1))
686 (goto-char (match-beginning 0))
725 (goto-char (point-min))
736 "Insert `{ case }' or `{ NAME }' on this line if appropriate.
737 Insert `{ case }' if there is an `end' on the line which
739 on the line which ends a function or procedure named NAME."
741 (forward-line -1)
745 (end-of-line)
746 (search-backward "{" (pascal-get-beg-of-line) t))))
753 (end-of-line)
769 (end-of-line)
819 (defun pascal-indent-line ()
820 "Indent current line as a Pascal statement."
847 "Calculate the indent of the current Pascal line.
861 (goto-char (scan-lists (point) -1 (car state)))
863 ((save-excursion (beginning-of-line)
875 (end-of-line) (backward-sexp) (point))
877 (> (save-excursion (goto-char oldpos)
878 (beginning-of-line)
933 (goto-char oldpos)
934 (forward-line -1)
957 (beginning-of-line)
977 (end-of-line)
994 (goto-char beg)
1008 (goto-char savepos)))
1011 "Indent current line in parameterlist.
1013 indent of the current line in parameterlist."
1016 (stpos (progn (goto-char (scan-lists (point) -1 1)) (point)))
1019 (search-backward ")" (pascal-get-beg-of-line) t)
1024 (goto-char oldpos)
1025 (beginning-of-line)
1028 (goto-char stpos)
1051 (goto-char stpos)
1055 (beginning-of-line)
1060 (forward-line 1)))
1064 (goto-char stpos)
1066 (if (search-forward lineup (pascal-get-end-of-line) 'move)
1071 (forward-line 1) ; No more indent if there is no : or =
1078 (forward-line 1)))))
1081 (if arg (forward-line -1)
1082 (goto-char pos))))
1084 ; "Return the indent level that will line up several lines within the region
1090 (goto-char b)
1093 (and (re-search-forward reg (min e (pascal-get-end-of-line 2)) 'move)
1099 (goto-char e))
1101 (goto-char (match-beginning 0))
1105 (goto-char (match-end 0))
1106 (end-of-line)
1112 (goto-char b)
1113 (end-of-line)
1162 (if (re-search-forward pascal-str (pascal-get-end-of-line) t)
1168 (goto-char (match-beginning 0)))))
1178 (if (re-search-forward "[:=]" (pascal-get-end-of-line) t)
1179 ;; Traverse current line
1183 (pascal-get-beg-of-line) t)
1190 (if (re-search-forward "\\<record\\>" (pascal-get-end-of-line) t)
1192 (forward-line 1)))))
1223 (if (search-forward "(" (pascal-get-end-of-line) t)
1271 (pascal-get-beg-of-line) t))))
1455 (goto-char (point-min))
1467 (defun pascal-goto-defun ()
1489 (goto-char (point-min))
1491 (beginning-of-line)))))
1505 (define-key map "\C-c\C-d" 'pascal-outline-goto-defun)
1513 "Outline-line minor mode for Pascal mode.
1523 \\[pascal-outline-goto-defun]\
1540 (goto-char b) (setq b (line-end-position))
1541 (goto-char e) (setq e (line-end-position)))
1568 (goto-char (point-min))
1576 (goto-char opoint)))
1589 (goto-char end)
1600 (if (< (progn (forward-line -1) (point)) end)
1602 (goto-char beg)
1619 (defun pascal-outline-goto-defun ()
1622 (pascal-goto-defun)