>>>> "jpw" == John Paul Wallington
<jpw(a)shootybangbang.com> writes:
jpw> Is it a good idea to submit the following patch to
jpw> xemacs-patches?
Yes. For synchs like this, you should try them locally, if they seem
to work right, submit a patch to xemacs-patches (must be context, diff
-u preferred) with XEmacs ChangeLog.
Unless you want people to comment on the implementation, there's no
need to post to xemacs-beta first.
In the text, explain why you think it should be applied ("it's cool"
is good enough but has less urgency than "prevents end of world as we
know it"), and any testing that you have done. Note that it's a
synch, and if it changes UI (as this does) or API that the new
interface is the same as GNU Emacs.
For a synch, you should update the FSF Copyright line at the head of
the file to include the current year if not already present. If you
did a fair amount of work for the synch, it would be nice to note
"this function was synched to GNU Emacs 2001-12-04 by jpw" in a
comment.
This kind of patch is unlikely to go into 21.4.
--- lisp/paragraphs.el.orig Tue Dec 4 05:28:04 2001
+++ lisp/paragraphs.el Tue Dec 4 06:18:56 2001
@@ -292,13 +292,19 @@
(or arg (setq arg 1))
(forward-paragraph (- arg)))
-(defun mark-paragraph ()
+(defun mark-paragraph (&optional arg)
"Put point at beginning of this paragraph, mark at end.
-The paragraph marked is the one that contains point or follows point."
- (interactive)
- (forward-paragraph 1)
+The paragraph marked is the one that contains point or follows point.
+With arg N, puts mark at end of following N paragraphs;
+negative arg -N means point is put at end of this paragraph, mark is put
+at beginning of this or a previous paragraph."
+ (interactive "p")
+ (unless arg (setq arg 1))
+ (when (zerop arg)
+ (error "Cannot mark zero paragraphs"))
+ (forward-paragraph arg)
(push-mark nil t t)
- (backward-paragraph 1))
+ (backward-paragraph arg))
(defun kill-paragraph (arg)
"Kill forward to end of paragraph.
--
John Paul Wallington
--
Institute of Policy and Planning Sciences
http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Don't ask how you can "do" free software business;
ask what your business can "do for" free software.