Lines Matching +defs:end +defs:of
10 ;; This file is part of GNU Emacs.
13 ;; it under the terms of the GNU General Public License as published by
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; You should have received a copy of the GNU General Public License
46 (define-key icon-mode-map "\e\C-a" 'beginning-of-icon-defun)
47 (define-key icon-mode-map "\e\C-e" 'end-of-icon-defun)
54 (define-key map [beginning-of-icon-defun] '("Beginning of function" . beginning-of-icon-defun))
55 (define-key map [end-of-icon-defun] '("End of function" . end-of-icon-defun))
91 "*Indentation of Icon statements with respect to containing block."
96 "*Imagined indentation of a Icon open brace that actually follows a statement."
124 It will then reindent, regardless of where in the line point is
147 regardless of where in the line point is when the TAB command is used.
152 Indentation of Icon statements within surrounding block.
154 of the line on which the open-brace appears.
157 then-clause of an if or body of a while.
165 this far to the right of the start of its line.
167 Turning on Icon mode calls the value of the variable `icon-mode-hook'
186 (make-local-variable 'comment-end)
187 (setq comment-end "")
197 nil nil ((?_ . "w")) beginning-of-defun
208 (cons '(icon-mode "\\<procedure\\>" "\\<end\\>" nil
256 A numeric argument, regardless of its value, means indent rigidly all the
257 lines of the expression starting after point so that this line becomes
258 properly indented. The relative indentation among the lines of the
263 ;; and shift remaining lines of expression the same amount.
265 beg end)
268 (beginning-of-line))
271 (setq end (point))
275 (if (> end beg)
276 (indent-code-rigidly beg end shift-amt "#")))
291 (beginning-of-line)
303 (icon-backward-to-start-of-if)
306 (looking-at "end\\b"))
328 (beginning-of-line)
336 (setq toplevel (beginning-of-icon-defun)))
358 (progn (beginning-of-icon-defun)
366 ;; This line is continuation of preceding line's statement;
368 ;; first line of the statement.
370 (icon-backward-to-start-of-continued-exp containing-sexp)
411 ;; Get initial indentation of the line we are on.
414 ;; List of words to check for as the last thing on a line.
415 ;; If cdr is t, next line is a continuation of the same statement,
421 ("link" . t) ("local" . t) ("of") ("record" . t) ("repeat" . t)
439 (beginning-of-line)
445 (defun icon-backward-to-start-of-continued-exp (lim)
448 (beginning-of-line)
458 (t (end-of-line 0) (icon-backward-to-start-of-continued-exp lim))))
462 (end-of-line 0)
465 (defun icon-backward-to-start-of-if (&optional limit)
466 "Move to the start of the last \"unbalanced\" if."
467 (or limit (setq limit (save-excursion (beginning-of-icon-defun) (point))))
482 "Put mark at end of Icon function, point at beginning."
485 (end-of-icon-defun)
487 (beginning-of-line 0)
488 (beginning-of-icon-defun))
490 (defun beginning-of-icon-defun ()
491 "Go to the start of the enclosing procedure; return t if at top level."
493 (if (re-search-backward "^procedure\\s \\|^end[ \t\n]" (point-min) 'move)
497 (defun end-of-icon-defun ()
500 (re-search-forward "\\(\\s \\|^\\)end\\(\\s \\|$\\)" (point-max) 'move)
506 "Indent each line of the Icon grouping following point."
524 ;; does not end inside a comment or string.
530 (setq state (parse-partial-sexp (point) (progn (end-of-line) (point))
577 ;; Preceding line did not end in comma or semi;
581 (icon-backward-to-start-of-continued-exp (car contain-stack))
588 (progn (icon-backward-to-start-of-if opoint)
600 (looking-at "end\\b"))
607 (delete-region (point) (progn (beginning-of-line) (point)))
611 (if (re-search-forward comment-start-skip (save-excursion (end-of-line) (point)) t)
612 (progn (indent-for-comment) (beginning-of-line))))))))))
637 "until" "case" "of" "while" "create" "every" "suspend" "default"
640 ;; "end" "initial"
641 (cons (regexp-opt '("end" "initial") 'words)
664 (goto-char (or (match-beginning 2) (match-end 1))) nil
691 (beginning-of-icon-defun)
692 (end-of-icon-defun)