diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-16 15:28:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-16 15:28:52 +0000 |
| commit | 0ba911156b93dbb1db9aaf5c58de7bbf0816165b (patch) | |
| tree | e4ba310900b7f96bcb0d57eb95ea8de98231e197 /lisp/emacs-lisp | |
| parent | a1929ae348ad9a4152f70d7b91c717913236cdff (diff) | |
| download | emacs-0ba911156b93dbb1db9aaf5c58de7bbf0816165b.tar.gz emacs-0ba911156b93dbb1db9aaf5c58de7bbf0816165b.tar.bz2 emacs-0ba911156b93dbb1db9aaf5c58de7bbf0816165b.zip | |
(mark-sexp, mark-defun): Activate the mark.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 9cd00517cc2..9c4cbd1d788 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -55,7 +55,8 @@ move to with the same argument." (push-mark (save-excursion (forward-sexp arg) - (point)))) + (point)) + nil t)) (defun forward-list (&optional arg) "Move forward across one balanced group of parentheses. @@ -188,7 +189,7 @@ The defun marked is the one that contains point or follows point." (interactive) (push-mark (point)) (end-of-defun) - (push-mark (point)) + (push-mark (point) nil t) (beginning-of-defun) (re-search-backward "^\n" (- (point) 1) t)) |