[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/lisp.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/lisp.el |
Date: |
Wed, 04 Feb 2009 05:48:19 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 09/02/04 05:48:19
Modified files:
lisp : ChangeLog
lisp/emacs-lisp: lisp.el
Log message:
Add "^" to interactive spec of sexp movement commands
Revision: address@hidden/emacs--devo--0--patch-1534
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15251&r2=1.15252
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/lisp.el?cvsroot=emacs&r1=1.94&r2=1.95
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15251
retrieving revision 1.15252
diff -u -b -r1.15251 -r1.15252
--- ChangeLog 4 Feb 2009 03:41:06 -0000 1.15251
+++ ChangeLog 4 Feb 2009 05:48:16 -0000 1.15252
@@ -1,3 +1,9 @@
+2009-02-04 Miles Bader <address@hidden>
+
+ * 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 <address@hidden>
* mail/mail-utils.el (mail-fetch-field): Previous doc fix was
Index: emacs-lisp/lisp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/lisp.el,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -b -r1.94 -r1.95
--- emacs-lisp/lisp.el 31 Jan 2009 16:19:46 -0000 1.94
+++ emacs-lisp/lisp.el 4 Feb 2009 05:48:19 -0000 1.95
@@ -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)
- [Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/lisp.el,
Miles Bader <=