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

[Kai Großjohann]

Index: emacs/lisp/textmodes/paragraphs.el
diff -c emacs/lisp/textmodes/paragraphs.el:1.58 
emacs/lisp/textmodes/paragraphs.el:1.59
*** emacs/lisp/textmodes/paragraphs.el:1.58     Fri Nov 30 12:18:26 2001
--- emacs/lisp/textmodes/paragraphs.el  Fri Feb 15 03:53:15 2002
***************
*** 325,338 ****
  the number of paragraphs marked equals ARG.
  
  If ARG is negative, 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 arg))
  
  (defun kill-paragraph (arg)
    "Kill forward to end of paragraph.
--- 325,347 ----
  the number of paragraphs marked equals ARG.
  
  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, it marks the next ARG paragraphs after (or
! before, if arg is negative) the ones already marked."
    (interactive "p")
!   (let (here)
!     (unless arg (setq arg 1))
!     (when (zerop arg)
!       (error "Cannot mark zero paragraphs"))
!     (when (and (eq last-command this-command) (mark t))
!       (setq here (point))
!       (goto-char (mark)))
!     (forward-paragraph arg)
!     (push-mark nil t t)
!     (if here
!       (goto-char here)
!       (backward-paragraph arg))))
  
  (defun kill-paragraph (arg)
    "Kill forward to end of paragraph.
***************
*** 424,436 ****
    (kill-region (point) (progn (backward-sentence arg) (point))))
  
  (defun mark-end-of-sentence (arg)
!   "Put mark at end of sentence.  Arg works as in `forward-sentence'."
    (interactive "p")
    (push-mark
!     (save-excursion
!       (forward-sentence arg)
!       (point))
!     nil t))
  
  (defun transpose-sentences (arg)
    "Interchange this (next) and previous sentence."
--- 433,449 ----
    (kill-region (point) (progn (backward-sentence arg) (point))))
  
  (defun mark-end-of-sentence (arg)
!   "Put mark at end of sentence.  Arg works as in `forward-sentence'.
! If this command is repeated, it marks the next ARG sentences after the
! ones already marked."
    (interactive "p")
    (push-mark
!    (save-excursion
!      (if (and (eq last-command this-command) (mark t))
!        (goto-char (mark)))
!      (forward-sentence arg)
!      (point))
!    nil t))
  
  (defun transpose-sentences (arg)
    "Interchange this (next) and previous sentence."