Mercurial > emacs
comparison lisp/emacs-lisp/lisp.el @ 2823:8ab0e280fbf0
(mark-sexp, mark-defun): Activate the mark.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 16 May 1993 15:28:52 +0000 |
| parents | 10e417efb12a |
| children | 507f64624555 |
comparison
equal
deleted
inserted
replaced
| 2822:153a269b1315 | 2823:8ab0e280fbf0 |
|---|---|
| 53 move to with the same argument." | 53 move to with the same argument." |
| 54 (interactive "p") | 54 (interactive "p") |
| 55 (push-mark | 55 (push-mark |
| 56 (save-excursion | 56 (save-excursion |
| 57 (forward-sexp arg) | 57 (forward-sexp arg) |
| 58 (point)))) | 58 (point)) |
| 59 nil t)) | |
| 59 | 60 |
| 60 (defun forward-list (&optional arg) | 61 (defun forward-list (&optional arg) |
| 61 "Move forward across one balanced group of parentheses. | 62 "Move forward across one balanced group of parentheses. |
| 62 With argument, do it that many times. | 63 With argument, do it that many times. |
| 63 Negative arg -N means move backward across N groups of parentheses." | 64 Negative arg -N means move backward across N groups of parentheses." |
| 186 "Put mark at end of this defun, point at beginning. | 187 "Put mark at end of this defun, point at beginning. |
| 187 The defun marked is the one that contains point or follows point." | 188 The defun marked is the one that contains point or follows point." |
| 188 (interactive) | 189 (interactive) |
| 189 (push-mark (point)) | 190 (push-mark (point)) |
| 190 (end-of-defun) | 191 (end-of-defun) |
| 191 (push-mark (point)) | 192 (push-mark (point) nil t) |
| 192 (beginning-of-defun) | 193 (beginning-of-defun) |
| 193 (re-search-backward "^\n" (- (point) 1) t)) | 194 (re-search-backward "^\n" (- (point) 1) t)) |
| 194 | 195 |
| 195 (defun insert-parentheses (arg) | 196 (defun insert-parentheses (arg) |
| 196 "Put parentheses around next ARG sexps. Leave point after open-paren. | 197 "Put parentheses around next ARG sexps. Leave point after open-paren. |