Mercurial > emacs
changeset 101789:7d131969b5e2
Add "^" to interactive spec of sexp movement commands
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1534
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 04 Feb 2009 05:48:16 +0000 |
| parents | dc93dbd4d490 |
| children | e98ddfaefcae |
| files | lisp/ChangeLog lisp/emacs-lisp/lisp.el |
| diffstat | 2 files changed, 16 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Feb 04 03:51:27 2009 +0000 +++ b/lisp/ChangeLog Wed Feb 04 05:48:16 2009 +0000 @@ -1,3 +1,9 @@ +2009-02-04 Miles Bader <miles@gnu.org> + + * emacs-lisp/lisp.el (forward-sexp, backward-sexp, forward-list) + (backward-list, backward-up-list, beginning-of-defun) + (beginning-of-defun-raw, end-of-defun): Add "^" to interactive spec. + 2009-02-04 Glenn Morris <rgm@gnu.org> * mail/mail-utils.el (mail-fetch-field): Previous doc fix was
--- a/lisp/emacs-lisp/lisp.el Wed Feb 04 03:51:27 2009 +0000 +++ b/lisp/emacs-lisp/lisp.el Wed Feb 04 05:48:16 2009 +0000 @@ -53,7 +53,7 @@ With ARG, do it that many times. Negative arg -N means move backward across N balanced expressions. This command assumes point is not in a string or comment." - (interactive "p") + (interactive "^p") (or arg (setq arg 1)) (if forward-sexp-function (funcall forward-sexp-function arg) @@ -65,7 +65,7 @@ With ARG, do it that many times. Negative arg -N means move forward across N balanced expressions. This command assumes point is not in a string or comment." - (interactive "p") + (interactive "^p") (or arg (setq arg 1)) (forward-sexp (- arg))) @@ -100,7 +100,7 @@ With ARG, do it that many times. Negative arg -N means move backward across N groups of parentheses. This command assumes point is not in a string or comment." - (interactive "p") + (interactive "^p") (or arg (setq arg 1)) (goto-char (or (scan-lists (point) arg 0) (buffer-end arg)))) @@ -109,7 +109,7 @@ With ARG, do it that many times. Negative arg -N means move forward across N groups of parentheses. This command assumes point is not in a string or comment." - (interactive "p") + (interactive "^p") (or arg (setq arg 1)) (forward-list (- arg))) @@ -118,7 +118,7 @@ With ARG, do this that many times. A negative argument means move backward but still go down a level. This command assumes point is not in a string or comment." - (interactive "p") + (interactive "^p") (or arg (setq arg 1)) (let ((inc (if (> arg 0) 1 -1))) (while (/= arg 0) @@ -130,7 +130,7 @@ With ARG, do this that many times. A negative argument means move forward but still to a less deep spot. This command assumes point is not in a string or comment." - (interactive "p") + (interactive "^p") (up-list (- (or arg 1)))) (defun up-list (&optional arg) @@ -138,7 +138,7 @@ With ARG, do this that many times. A negative argument means move backward but still to a less deep spot. This command assumes point is not in a string or comment." - (interactive "p") + (interactive "^p") (or arg (setq arg 1)) (let ((inc (if (> arg 0) 1 -1))) (while (/= arg 0) @@ -213,7 +213,7 @@ Regardless of the values of `defun-prompt-regexp' and `beginning-of-defun-function', point always moves to the beginning of the line whenever the search is successful." - (interactive "p") + (interactive "^p") (or (not (eq this-command 'beginning-of-defun)) (eq last-command 'beginning-of-defun) (and transient-mark-mode mark-active) @@ -229,7 +229,7 @@ If variable `beginning-of-defun-function' is non-nil, its value is called as a function to find the defun's beginning." - (interactive "p") ; change this to "P", maybe, if we ever come to pass ARG + (interactive "^p") ; change this to "P", maybe, if we ever come to pass ARG ; to beginning-of-defun-function. (unless arg (setq arg 1)) (cond @@ -335,7 +335,7 @@ If variable `end-of-defun-function' is non-nil, its value is called as a function to find the defun's end." - (interactive "p") + (interactive "^p") (or (not (eq this-command 'end-of-defun)) (eq last-command 'end-of-defun) (and transient-mark-mode mark-active)