Lines Matching +defs:end +defs:of
9 ;; This file is part of GNU Emacs.
12 ;; it under the terms of the GNU General Public License as published by
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; You should have received a copy of the GNU General Public License
37 See function `beginning-of-defun'."
60 (goto-char (or (scan-sexps (point) arg) (buffer-end arg)))
97 "Move forward across one balanced group of parentheses.
99 Negative arg -N means move backward across N groups of parentheses."
102 (goto-char (or (scan-lists (point) arg 0) (buffer-end arg))))
105 "Move backward across one balanced group of parentheses.
107 Negative arg -N means move forward across N groups of parentheses."
113 "Move forward down one level of parentheses.
120 (goto-char (or (scan-lists (point) inc -1) (buffer-end arg)))
124 "Move backward out of one level of parentheses.
131 "Move forward out of one level of parentheses.
138 (goto-char (or (scan-lists (point) inc 1) (buffer-end arg)))
160 A prefix argument ARG causes the relevant number of surrounding
172 (defvar beginning-of-defun-function nil
173 "If non-nil, function for `beginning-of-defun-raw' to call.
174 This is used to find the beginning of the defun instead of using the
175 normal recipe (see `beginning-of-defun'). Major modes can define this
179 The function (of no args) should go to the line on which the current
183 (defun beginning-of-defun (&optional arg)
184 "Move backward to the beginning of a defun.
186 means move forward to Nth following beginning of defun.
187 Returns t unless search stops due to beginning or end of buffer.
189 If variable `beginning-of-defun-function' is non-nil, its value
193 open-parenthesis syntax at the beginning of a line. If
196 at the beginning of the line.
202 (or (not (eq this-command 'beginning-of-defun))
203 (eq last-command 'beginning-of-defun)
206 (and (beginning-of-defun-raw arg)
207 (progn (beginning-of-line) t)))
209 (defun beginning-of-defun-raw (&optional arg)
211 This is identical to function `beginning-of-defun', except that point
212 does not move to the beginning of the line when `defun-prompt-regexp'
215 If variable `beginning-of-defun-function' is non-nil, its value
218 ; to beginning-of-defun-function.
221 (beginning-of-defun-function
224 (funcall beginning-of-defun-function))
225 ;; Better not call end-of-defun-function directly, in case
227 (end-of-defun (- arg))))
237 (progn (goto-char (1- (match-end 0)))) t))
246 ;; beginning of each comment. Fixing this is not trivial -- cyd.
256 font-lock-beginning-of-syntax-function)
258 ;; position of least enclosing paren, or nil.
260 ;; Back out of any comment/string, so that encl-pos will always
290 (defvar end-of-defun-function nil
291 "If non-nil, function for function `end-of-defun' to call.
292 This is used to find the end of the defun instead of using the normal
293 recipe (see `end-of-defun'). Major modes can define this if the
296 (defun buffer-end (arg)
297 "Return the \"far end\" position of the buffer, in direction ARG.
298 If ARG is positive, that's the end of the buffer.
299 Otherwise, that's the beginning of the buffer."
302 (defun end-of-defun (&optional arg)
303 "Move forward to next end of defun.
305 Negative argument -N means move back to Nth preceding end of defun.
307 An end of a defun occurs right after the close-parenthesis that
309 `beginning-of-defun'.
311 If variable `end-of-defun-function' is non-nil, its value
312 is called as a function to find the defun's end."
314 (or (not (eq this-command 'end-of-defun))
315 (eq last-command 'end-of-defun)
319 (if end-of-defun-function
322 (funcall end-of-defun-function))
323 ;; Better not call beginning-of-defun-function
325 (beginning-of-defun (- arg)))
332 (end-of-line 1)
333 (beginning-of-defun-raw 1)))
336 (beginning-of-defun-raw -1))
346 (beginning-of-defun-raw 1)
350 (if (beginning-of-defun-raw 2)
360 "Put mark at end of this defun, point at beginning.
373 (end-of-defun)
377 beg end)
379 ;; Try first in this order for the sake of languages with nested
380 ;; functions where several can end at the same place as with
382 (beginning-of-defun)
384 (end-of-defun)
385 (setq end (point))
392 (goto-char end)
394 ;; beginning-of-defun moved back one defun
397 (end-of-defun)
399 (beginning-of-defun))
410 beg end)
411 ;; Try first in this order for the sake of languages with nested
412 ;; functions where several can end at the same place as with
414 (beginning-of-defun)
416 (end-of-defun)
417 (setq end (point))
421 ;; beginning-of-defun moved back one defun
424 (end-of-defun)
425 (setq end (point))
426 (beginning-of-defun)
428 (goto-char end)
430 (narrow-to-region beg end))))
434 "Alist of paired characters inserted by `insert-pair'.
437 of the pair whose key is equal to the last input character with
441 "Enclose following ARG sexps in a pair of OPEN and CLOSE characters.
467 (save-excursion (goto-char (region-end)) (insert close))
500 "Delete a pair of characters enclosing the sexp that follows point."
509 (buffer-substring (region-beginning) (region-end))
527 ;; Move to end of previous line.
528 (beginning-of-line)
530 ;; Verify it doesn't end within a string or comment.
531 (let ((end (point))
533 (beginning-of-line)
534 ;; Get state at start of line.
539 ;; Parse state across the line to get state at end.
540 (setq state (parse-partial-sexp (point) end nil nil
550 More accurately, check the narrowed part of the buffer for unbalanced
576 If no characters can be completed, display a list of possible completions.
602 (let* ((end (point))
609 (pattern (buffer-substring-no-properties beg end))
623 ;; If the first element of the parent list is an open
635 (delete-region beg end)
637 ;; Don't leave around a completions buffer that's out of date.
660 ;; out of date.