4.3BSD/usr/contrib/emacs/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 "Áˆ†	‰ˆÃ`\"†Ä!bˆÅWƒ!Æ ‚\"Á‡" [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ƒ
d‚e‡" [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 "ň?†
ÆUƒlj‚ň
ÆV… `dW…t`Å	…2ÈÇ!ˆÉÇ!ƒ9
‚Do†@ÈÊ!ˆÉÊ!ˆ
‰ˆËÇ!ˆÌÍ!ˆÎÏ!ƒ]ÐÇ!‚^ň`X…jň‚'*ˆS‰ˆ‚ˆÆW…¿`ÉÇ!ˆÑÇ!ˆ`ÇÒkbˆ`Yƒ´ÉÓ!ƒ¯ËÇ!ˆÌÍ!ˆÎÏ!ƒ«ÐÇ!‚¬Å‚±eb‚µÅ)ˆT‰ˆ‚u)‡" [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 10 2] 18))

(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))