Lines Matching +defs:char +defs:after
232 "Expression statements contain expressions after their keyword.")
347 (after-change-functions nil)
411 (save-excursion (goto-char p) (current-column)))
460 (if from-point (goto-char from-point))
463 (goto-char curr-point)
527 (and (delphi-is kind delphi-strings) (eq ?\n (char-after (1- p)))))))
601 (defsubst delphi-char-token-at (p char kind)
604 (when (eq char (char-after p))
614 (goto-char p)
617 (goto-char (1+ p))
620 (goto-char currp)
656 ((delphi-char-token-at p ?\( 'open-group))
657 ((delphi-char-token-at p ?\) 'close-group))
658 ((delphi-char-token-at p ?\[ 'open-group))
659 ((delphi-char-token-at p ?\] 'close-group))
660 ((delphi-char-token-at p ?\n 'newline))
661 ((delphi-char-token-at p ?\; 'semicolon))
662 ((delphi-char-token-at p ?. 'dot))
663 ((delphi-char-token-at p ?, 'comma))
664 ((delphi-char-token-at p ?= 'equals))
665 ((delphi-char-token-at p ?+ 'plus))
666 ((delphi-char-token-at p ?- 'minus))
667 ((delphi-char-token-at p ?* 'times))
668 ((delphi-char-token-at p ?/ 'divides))
669 ((delphi-char-token-at p ?: 'colon))
680 ;; Returns the token after the specified token.
698 ;; Returns the first non-space token after the specified token.
709 (goto-char from)
743 Defaults to t in case the delphi-after-change function is called on a
747 (defun delphi-after-change (change-start change-end old-length)
754 ;; line after the change.
757 (progn (goto-char change-end) (end-of-line) (point)))
961 (goto-char (+ (delphi-token-start comment)
1007 (goto-char comment-start)
1035 ;; True if we are after the end of a uses type clause.
1060 (defun delphi-is-block-after-expr-statement (token)
1102 ;; This fixes the irritating case of having indents after a uses
1295 ;; the point is before or after it. Remember that we encountered one.
1301 ;; With a non-delimited expression statement we indent after the
1373 ;; A block statement after an expression delimiter has its start
1380 ((delphi-is-block-after-expr-statement token)
1412 ;; If the ":" was not processed above and we have token after the "=",
1477 ((delphi-is-block-after-expr-statement block-start)
1511 ;; Advance our marked point after inserted spaces.
1516 (goto-char marked-point)
1534 (goto-char (point-max))
1566 (interactive "NGoto char: ")
1567 (goto-char p))
1571 (goto-char (delphi-token-start (delphi-next-token (delphi-current-token)))))
1575 (goto-char
1621 (goto-char from)
1623 (goto-char (delphi-token-end (delphi-current-token)))
1800 ;; Advance our marked point after inserted spaces.
1804 (goto-char content-start)
1806 (delete-char -1)
1813 (goto-char p)
1819 (goto-char (point-max))
1826 (goto-char (point-max))
1827 (delete-char -1)
1830 (goto-char (point-min))
1834 (goto-char p)
1843 (goto-char marked-point)
1876 (goto-char end)
1915 '("\177" backward-delete-char-untabify)
1998 (add-hook 'after-change-functions 'delphi-after-change nil t)