Add "^" to interactive spec of sexp movement commands

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1534

2 files changed, 16 insertions, 10 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11d748f5862..9c806c616b9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 76141c56274..ba1546980ae 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -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)