From 61eee794dba0de5906d8b0aef30cc98e634b3b2d Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 4 Feb 2009 05:48:16 +0000 Subject: [PATCH] Add "^" to interactive spec of sexp movement commands Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1534 --- lisp/ChangeLog | 6 ++++++ lisp/emacs-lisp/lisp.el | 20 ++++++++++---------- 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 + + * 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 * 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) -- 2.39.5