Lines Matching +defs:function +defs:list
37 See function `beginning-of-defun'."
48 (defvar forward-sexp-function nil
49 "If non-nil, `forward-sexp' delegates to this function.
58 (if forward-sexp-function
59 (funcall forward-sexp-function arg)
96 (defun forward-list (&optional arg)
104 (defun backward-list (&optional arg)
110 (forward-list (- arg)))
112 (defun down-list (&optional arg)
123 (defun backward-up-list (&optional arg)
128 (up-list (- (or arg 1))))
130 (defun up-list (&optional arg)
158 (defun kill-backward-up-list (&optional arg)
166 (backward-up-list arg)
172 (defvar beginning-of-defun-function nil
173 "If non-nil, function for `beginning-of-defun-raw' to call.
179 The function (of no args) should go to the line on which the current
189 If variable `beginning-of-defun-function' is non-nil, its value
190 is called as a function to find the defun's beginning.
199 are both nil, the function instead finds an open-paren at the
211 This is identical to function `beginning-of-defun', except that point
215 If variable `beginning-of-defun-function' is non-nil, its value
216 is called as a function to find the defun's beginning."
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
255 (let ((ppss (let (syntax-begin-function
256 font-lock-beginning-of-syntax-function)
290 (defvar end-of-defun-function nil
291 "If non-nil, function for function `end-of-defun' to call.
308 matches the open-parenthesis that starts a defun; see function
311 If variable `end-of-defun-function' is non-nil, its value
312 is called as a function to find the defun's end."
319 (if end-of-defun-function
322 (funcall end-of-defun-function))
323 ;; Better not call beginning-of-defun-function
338 (forward-list 1)
352 (forward-list 1)
475 (memq (char-syntax (preceding-char)) (list ?w ?_ (char-syntax close)))
483 (memq (char-syntax (following-char)) (list ?w ?_ (char-syntax open)))
513 (backward-up-list 1)
520 (up-list 1)
535 (setq state (list 0 nil nil
576 If no characters can be completed, display a list of possible completions.
577 Repeating the command at that point scrolls the list.
583 symbols with function definitions are considered. Otherwise, all
584 symbols with function definitions, values or properties are
620 (progn (up-list -2) (forward-char 1)
623 ;; If the first element of the parent list is an open
627 ;; Else, we assume that a function name is expected.
644 (message "Making completion list..."))
645 (let ((list (all-completions pattern obarray predicate)))
646 (setq list (sort list 'string<))
649 (while list
650 (setq new (cons (if (fboundp (intern (car list)))
651 (list (car list) " <f>")
652 (car list))
654 (setq list (cdr list)))
655 (setq list (nreverse new))))
656 (if (> (length list) 1)
658 (display-completion-list list pattern))
664 (message "Making completion list...%s" "done")))))))))