From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 9 Aug 2005 14:05:24 +0000 (+0000)
Subject: (fill-nonuniform-paragraphs): Improve argument/docstring consistency.
X-Git-Tag: emacs-pretest-22.0.90~7684
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ad8316c3eb56952e12b682b6cedce95210a8da1;p=emacs.git

(fill-nonuniform-paragraphs): Improve argument/docstring consistency.
(canonically-space-region, fill-context-prefix, fill-french-nobreak-p,
fill-delete-newlines, fill-comment-paragraph, justify-current-line):
"?\ " -> "?\s".
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1fa27e44974..817bee01c17 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-08-09  Juanma Barranquero  <lekktu@gmail.com>
+
+	* textmodes/fill.el (canonically-space-region)
+	(fill-context-prefix, fill-french-nobreak-p)
+	(fill-delete-newlines, fill-comment-paragraph)
+	(justify-current-line): "?\ " -> "?\s".
+
+2005-08-09  Ben North  <ben@redfrontdoor.org>  (tiny change)
+
+	* textmodes/fill.el (fill-nonuniform-paragraphs):
+	Improve argument/docstring consistency.
+
 2005-08-09  Richard M. Stallman  <rms@gnu.org>
 
 	* files.el (find-file-noselect): Don't call set-buffer-major-mode.
@@ -8,7 +20,7 @@
 
 2005-08-09  Magnus Henoch  <mange@freemail.hu>
 
-	* textmodes/ispell.el (aspell-have-dictionaries): New variable.  
+	* textmodes/ispell.el (aspell-have-dictionaries): New variable.
 	(aspell-find-dictionaries): New command.
 	(aspell-data-dir): New variable.
 	(aspell-find-data-dir): New function.
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index d77daaeed39..11ddfc0e967 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -163,7 +163,7 @@ Remove indentation from each line."
       ;; This is quick, but loses when a tab follows the end of a sentence.
       ;; Actually, it is difficult to tell that from "Mr.\tSmith".
       ;; Blame the typist.
-      (subst-char-in-region beg end ?\t ?\ )
+      (subst-char-in-region beg end ?\t ?\s)
       (while (and (< (point) end)
 		  (re-search-forward end-spc-re end t))
 	(delete-region
@@ -282,7 +282,7 @@ act as a paragraph-separator."
 				(string-match comment-start-skip
 					      first-line-prefix)))
 		       first-line-prefix
-		     (make-string (string-width first-line-prefix) ?\ ))))
+		     (make-string (string-width first-line-prefix) ?\s))))
 	      ;; But either way, reject it if it indicates the start
 	      ;; of a paragraph when text follows it.
 	      (if (not (eq 0 (string-match paragraph-start
@@ -312,7 +312,7 @@ places."
 	  (backward-char 1)
 	  (or (looking-at "[([{,A+,b+(B]")
 	      ;; Don't cut right after a single-letter word.
-	      (and (memq (preceding-char) '(?\t ?\ ))
+	      (and (memq (preceding-char) '(?\t ?\s))
 		   (eq (char-syntax (following-char)) ?w)))))))
 
 (defcustom fill-nobreak-predicate nil
@@ -439,10 +439,10 @@ Point is moved to just past the fill prefix on the first line."
 	(sentence-end-without-space-list
 	 (string-to-list sentence-end-without-space)))
     (while (re-search-forward eol-double-space-re to t)
-      (or (>= (point) to) (memq (char-before) '(?\t ?\ ))
+      (or (>= (point) to) (memq (char-before) '(?\t ?\s))
 	  (memq (char-after (match-beginning 0))
 		sentence-end-without-space-list)
-	  (insert-and-inherit ?\ ))))
+	  (insert-and-inherit ?\s))))
 
   (goto-char from)
   (if enable-multibyte-characters
@@ -471,7 +471,7 @@ Point is moved to just past the fill prefix on the first line."
   (goto-char from)
   (skip-chars-forward " \t")
   ;; Then change all newlines to spaces.
-  (subst-char-in-region from to ?\n ?\ )
+  (subst-char-in-region from to ?\n ?\s)
   (if (and nosqueeze (not (eq justify 'full)))
       nil
     (canonically-space-region (or squeeze-after (point)) to)
@@ -830,10 +830,10 @@ can take care of filling.  JUSTIFY is used as in `fill-paragraph'."
 		(if has-code-and-comment
 		    (concat
 		     (if (not indent-tabs-mode)
-			 (make-string (current-column) ?\ )
+			 (make-string (current-column) ?\s)
 		       (concat
 			(make-string (/ (current-column) tab-width) ?\t)
-			(make-string (% (current-column) tab-width) ?\ )))
+			(make-string (% (current-column) tab-width) ?\s)))
 		     (buffer-substring (point) comin))
 		  (buffer-substring (line-beginning-position) comin))))
 	     beg end)
@@ -1223,7 +1223,7 @@ otherwise it is made canonical."
 			 (while (> count 0)
 			   (skip-chars-forward " ")
 			   (insert-and-inherit
-			    (make-string (/ curr-fracspace nspaces) ?\ ))
+			    (make-string (/ curr-fracspace nspaces) ?\s))
 			   (search-forward " " nil t)
 			   (setq count (1- count)
 				 curr-fracspace
@@ -1282,8 +1282,8 @@ in the paragraph.
 
 When calling from a program, pass range to fill as first two arguments.
 
-Optional third and fourth arguments JUSTIFY and MAIL-FLAG:
-JUSTIFY to justify paragraphs (prefix arg),
+Optional third and fourth arguments JUSTIFYP and CITATION-REGEXP:
+JUSTIFYP to justify paragraphs (prefix arg).
 When filling a mail message, pass a regexp for CITATION-REGEXP
 which will match the prefix of a line which is a citation marker
 plus whitespace, but no other kind of prefix.