4.4BSD/usr/src/contrib/emacs-18.57/lisp/lisp.elc


(defun forward-sexp (&optional arg) "\
Move forward across one balanced expression.
With argument, do this that many times." (interactive "p") (byte-code "	‰`\"!bW " [arg nil 1 scan-sexps buffer-end 0 backward-prefix-chars] 4))

(defun backward-sexp (&optional arg) "\
Move backward across one balanced expression.
With argument, do this that many times." (interactive "p") (byte-code "	‰[!" [arg nil 1 forward-sexp] 2))

(defun mark-sexp (arg) "\
Set mark ARG sexps from point." (interactive "p") (byte-code "Š!`)!" [arg nil push-mark forward-sexp] 3))

(defun forward-list (&optional arg) "\
Move forward across one balanced group of parentheses.
With argument, do this that many times." (interactive "p") (byte-code "	‰`#!b" [arg nil 1 scan-lists 0 buffer-end] 4))

(defun backward-list (&optional arg) "\
Move backward across one balanced group of parentheses.
With argument, do this that many times." (interactive "p") (byte-code "	‰[!" [arg nil 1 forward-list] 2))

(defun down-list (arg) "\
Move forward down one level of parentheses.
With argument, do this that many times.
A negative argument means move backward but still go down a level." (interactive "p") (byte-code "ˆ	VĂ
	\"+`# 	!b	Z)" [inc arg nil 0 1 -1 /= scan-lists buffer-end] 6))

(defun backward-up-list (arg) "\
Move backward out of one level of parentheses.
With argument, do this that many times.
A negative argument means move forward but still to a less deep spot." (interactive "p") (byte-code "[!" [arg nil up-list] 2))

(defun up-list (arg) "\
Move forward out of one level of parentheses.
With argument, do this that many times.
A negative argument means move backward but still to a less deep spot." (interactive "p") (byte-code "ˆ	VĂ
	\"+`# 	!b	Z)" [inc arg nil 0 1 -1 /= scan-lists buffer-end] 6))

(defun kill-sexp (arg) "\
Kill the syntactic expression following the cursor.
With argument, kill that many expressions after (or before) the cursor." (interactive "p") (byte-code "ˆ`	!`\")" [opoint arg nil forward-sexp kill-region] 4))

(defun backward-kill-sexp (arg) "\
Kill the syntactic expression preceding the cursor.
With argument, kill that many expressions before (or after) the cursor." (interactive "p") (byte-code "[!" [arg nil kill-sexp] 2))

(defun beginning-of-defun (&optional arg) "\
Move backward to next beginning-of-defun.
With argument, do this that many times.
Returns t unless search stops due to end of buffer." (interactive "p") (byte-code "W!$! ‡" [arg nil t 0 forward-char 1 re-search-backward "^\\s(" move beginning-of-line] 6))

(defun buffer-end (arg) (byte-code "V
de" [arg 0] 2))

(defun end-of-defun (&optional arg) "\
Move forward to next end of defun.
An end of a defun is found by moving forward from the beginning of one." (interactive "p") (byte-code "ň?
UljV`dWl`	.!!5ł@o<!!ʼn!!!V!`Xbň#*SW`!!!`Y!!!!!eb)Tm)" [arg first t pos npos nil 0 1 forward-char beginning-of-defun -1 forward-list skip-chars-forward " 	" looking-at "[;
]" forward-line forward-sexp 2] 19))

(defun mark-defun nil "\
Put mark at end of defun, point at beginning." (interactive) (byte-code "`! `! `Z#" [t nil push-mark end-of-defun beginning-of-defun re-search-backward "^
" 1] 8))

(defun insert-parentheses (arg) "\
Put parentheses around next ARG sexps.  Leave point after open-paren.
No argument is equivalent to zero: just insert () and leave point between." (interactive "P") (byte-code "c!!c)" [arg nil 40 forward-sexp prefix-numeric-value 41] 3))

(defun move-past-close-and-reindent nil "\
Move past next ), delete indentation before it, then indent after it." (interactive) (byte-code "!!` `U)) 
! " [before-paren nil up-list 1 forward-char -1 back-to-indentation delete-indentation newline-and-indent] 7))

(defun lisp-complete-symbol nil "\
Perform completion on Lisp symbol preceding point.
That symbol is compared against the symbols that exist
and any additional characters determined by what is there
are inserted.
If the symbol starts just after an open-parenthesis,
only symbols with function definitions are considered.
Otherwise, all symbols with function definitions, values
or properties are considered." (interactive) (byte-code "ˈ` ͎!!g!U!!`))
\"
Sf=7ւ8
#=?X\" \"?l
\"c!
#	
=
		@!!	@D	@
B
	A	
!	)	!)\"." [end buffer-syntax beg emacs-lisp-mode-syntax-table pattern predicate completion obarray t list new nil syntax-table ((byte-code "!" [buffer-syntax set-syntax-table] 2)) set-syntax-table backward-sexp 1 char-syntax 39 forward-char buffer-substring 40 fboundp (lambda (sym) (byte-code "!!!" [sym boundp fboundp symbol-plist] 4)) try-completion message "Can't find completion for \"%s\"" ding string= delete-region "Making completion list..." all-completions intern " <f>" nreverse " *Completions*" display-completion-list "Making completion list...%s" "done"] 20))