/[emacs]/emacs/lisp/textmodes/paragraphs.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/paragraphs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.65 by handa, Mon Feb 24 04:50:59 2003 UTC revision 1.66 by rms, Fri May 23 12:46:38 2003 UTC
# Line 420  sentences.  Also, every paragraph bounda Line 420  sentences.  Also, every paragraph bounda
420        (setq arg (1- arg)))        (setq arg (1- arg)))
421      (constrain-to-field nil opoint t)))      (constrain-to-field nil opoint t)))
422    
423    (defun repunctuate-sentences ()
424      (interactive)
425      "Put two spaces at the end of sentences from point to the end of buffer.
426    It works using `query-replace-regexp'."
427      (query-replace-regexp "\\([]\"')]?\\)\\([.?!]\\)\\([]\"')]?\\) +"
428                            "\\1\\2\\3  "))
429    
430    
431  (defun backward-sentence (&optional arg)  (defun backward-sentence (&optional arg)
432    "Move backward to start of sentence.  With arg, do it arg times.    "Move backward to start of sentence.  With arg, do it arg times.
433  See `forward-sentence' for more information."  See `forward-sentence' for more information."

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26