Commit 61eee794 authored by Miles Bader's avatar Miles Bader
Browse files

Add "^" to interactive spec of sexp movement commands

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1534
parent aacd8ba1
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
......
......@@ -53,7 +53,7 @@ Should take the same arguments and behave similarly to `forward-sexp'.")
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 @@ This command assumes point is not in a string or comment."
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 @@ This command assumes point is not in a string or comment."
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 @@ This command assumes point is not in a string or comment."
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 @@ This command assumes point is not in a string or comment."
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 @@ This command assumes point is not in a string or comment."
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 @@ This command assumes point is not in a string or comment."
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 @@ defun's beginning.
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 @@ is non-nil.
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 @@ matches the open-parenthesis that starts a defun; see function
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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment