[Emacs-diffs] Changes to emacs/lisp/textmodes/paragraphs.el

[Richard M . Stallman]

Index: emacs/lisp/textmodes/paragraphs.el
diff -c emacs/lisp/textmodes/paragraphs.el:1.76 
emacs/lisp/textmodes/paragraphs.el:1.77
*** emacs/lisp/textmodes/paragraphs.el:1.76     Mon Dec 13 03:11:09 2004
--- emacs/lisp/textmodes/paragraphs.el  Wed Dec 29 01:34:31 2004
***************
*** 347,353 ****
    (or arg (setq arg 1))
    (forward-paragraph (- arg)))
  
! (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.
  
--- 347,353 ----
    (or arg (setq arg 1))
    (forward-paragraph (- arg)))
  
! (defun mark-paragraph (&optional arg allow-extend)
    "Put point at beginning of this paragraph, mark at end.
  The paragraph marked is the one that contains point or follows point.
  
***************
*** 357,371 ****
  If ARG is negative, point is put at end of this paragraph, mark is put
  at beginning of this or a previous paragraph.
  
! If this command is repeated or mark is active in Transient Mark mode,
! it marks the next ARG paragraphs after (or before, if arg is negative)
! the ones already marked."
!   (interactive "p")
    (unless arg (setq arg 1))
    (when (zerop arg)
      (error "Cannot mark zero paragraphs"))
!   (cond ((or (and (eq last-command this-command) (mark t))
!            (and transient-mark-mode mark-active))
         (set-mark
          (save-excursion
            (goto-char (mark))
--- 357,372 ----
  If ARG is negative, point is put at end of this paragraph, mark is put
  at beginning of this or a previous paragraph.
  
! Interactively, if this command is repeated
! or (in Transient Mark mode) if the mark is active, 
! it marks the next ARG paragraphs after the ones already marked."
!   (interactive "p\np")
    (unless arg (setq arg 1))
    (when (zerop arg)
      (error "Cannot mark zero paragraphs"))
!   (cond ((and allow-extend
!             (or (and (eq last-command this-command) (mark t))
!                 (and transient-mark-mode mark-active)))
         (set-mark
          (save-excursion
            (goto-char (mark))