mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

For moving backward sentences,

Browse source 
distinguish start of paragraph from start of its text.
This commit is contained in:
Richard M. Stallman 2011-09-23 19:55:52 -04:00
parent 19c3875245
commit e488d29cec
2 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2011-09-23 Richard Stallman <rms@gnu.org>
* textmodes/paragraphs.el (forward-sentence): For backwards case,
distinguish start of paragraph from start of its text.
* mail/emacsbug.el (report-emacs-bug-query-existing-bugs): Autoload.
* mail/rmail.el (rmail-view-buffer-kill-buffer-hook): New function.

22
lisp/textmodes/paragraphs.el
View file

@ -456,19 +456,23 @@ sentences. Also, every paragraph boundary terminates sentences as well."
(sentence-end (sentence-end)))
(while (< arg 0)
(let ((pos (point))
(par-beg
(save-excursion
(start-of-paragraph-text)
;; Move PAR-BEG back over indentation
;; to allow s1entence-end to match if it is anchored at
;; BOL and the paragraph starts indented.
(beginning-of-line)
(point))))
par-beg par-text-beg)
(save-excursion
(start-of-paragraph-text)
;; Start of real text in the paragraph.
;; We move back to here if we don't see a sentence-end.
(setq par-text-beg (point))
;; Start of the first line of the paragraph.
;; We use this as the search limit
;; to allow s1entence-end to match if it is anchored at
;; BOL and the paragraph starts indented.
(beginning-of-line)
(setq par-beg (point)))
(if (and (re-search-backward sentence-end par-beg t)
(or (< (match-end 0) pos)
(re-search-backward sentence-end par-beg t)))
(goto-char (match-end 0))
(goto-char par-beg)))
(goto-char par-text-beg)))
(setq arg (1+ arg)))
(while (> arg 0)
(let ((par-end (save-excursion (end-of-paragraph-text) (point))))