From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 4 Jul 2005 03:01:10 +0000 (+0000)
Subject: (postscript, ebnf2ps, ebnf-special, ebnf-except, ebnf-repeat, ebnf-terminal,
X-Git-Tag: emacs-pretest-22.0.90~8399
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfbe3e71eec568c78dc572e01d5228908fd6dfd7;p=emacs.git

(postscript, ebnf2ps, ebnf-special, ebnf-except, ebnf-repeat, ebnf-terminal,
ebnf-non-terminal, ebnf-production, ebnf-shape, ebnf-displacement,
ebnf-syntactic, ebnf-optimization): Finish `defgroup' description with period.
(ebnf-eps-filename, ebnf-trim-right): "?\ " -> "?\s".
---

diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 1a680ffa077..22240a3a205 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -1135,14 +1135,14 @@ Elements of ALIST that are not conses are ignored."
 ;;; Interface to the command system
 
 (defgroup postscript nil
-  "PostScript Group"
+  "PostScript Group."
   :tag "PostScript"
   :version "20"
   :group 'emacs)
 
 
 (defgroup ebnf2ps nil
-  "Translate an EBNF to a syntactic chart on PostScript"
+  "Translate an EBNF to a syntactic chart on PostScript."
   :prefix "ebnf-"
   :version "20"
   :group 'wp
@@ -1150,7 +1150,7 @@ Elements of ALIST that are not conses are ignored."
 
 
 (defgroup ebnf-special nil
-  "Special customization"
+  "Special customization."
   :prefix "ebnf-"
   :tag "Special"
   :version "20"
@@ -1158,7 +1158,7 @@ Elements of ALIST that are not conses are ignored."
 
 
 (defgroup ebnf-except nil
-  "Except customization"
+  "Except customization."
   :prefix "ebnf-"
   :tag "Except"
   :version "20"
@@ -1166,7 +1166,7 @@ Elements of ALIST that are not conses are ignored."
 
 
 (defgroup ebnf-repeat nil
-  "Repeat customization"
+  "Repeat customization."
   :prefix "ebnf-"
   :tag "Repeat"
   :version "20"
@@ -1174,7 +1174,7 @@ Elements of ALIST that are not conses are ignored."
 
 
 (defgroup ebnf-terminal nil
-  "Terminal customization"
+  "Terminal customization."
   :prefix "ebnf-"
   :tag "Terminal"
   :version "20"
@@ -1182,7 +1182,7 @@ Elements of ALIST that are not conses are ignored."
 
 
 (defgroup ebnf-non-terminal nil
-  "Non-Terminal customization"
+  "Non-Terminal customization."
   :prefix "ebnf-"
   :tag "Non-Terminal"
   :version "20"
@@ -1190,7 +1190,7 @@ Elements of ALIST that are not conses are ignored."
 
 
 (defgroup ebnf-production nil
-  "Production customization"
+  "Production customization."
   :prefix "ebnf-"
   :tag "Production"
   :version "20"
@@ -1198,7 +1198,7 @@ Elements of ALIST that are not conses are ignored."
 
 
 (defgroup ebnf-shape nil
-  "Shapes customization"
+  "Shapes customization."
   :prefix "ebnf-"
   :tag "Shape"
   :version "20"
@@ -1206,7 +1206,7 @@ Elements of ALIST that are not conses are ignored."
 
 
 (defgroup ebnf-displacement nil
-  "Displacement customization"
+  "Displacement customization."
   :prefix "ebnf-"
   :tag "Displacement"
   :version "20"
@@ -1214,7 +1214,7 @@ Elements of ALIST that are not conses are ignored."
 
 
 (defgroup ebnf-syntactic nil
-  "Syntactic customization"
+  "Syntactic customization."
   :prefix "ebnf-"
   :tag "Syntactic"
   :version "20"
@@ -1222,7 +1222,7 @@ Elements of ALIST that are not conses are ignored."
 
 
 (defgroup ebnf-optimization nil
-  "Optimization customization"
+  "Optimization customization."
   :prefix "ebnf-"
   :tag "Optimization"
   :version "20"
@@ -4623,7 +4623,7 @@ killed after process termination."
 (defun ebnf-eps-filename (str)
   (let* ((len  (length str))
 	 (stri 0)
-	 (new  (make-string len ?\ )))
+	 (new  (make-string len ?\s)))
     (while (< stri len)
       (aset new stri (aref ebnf-map-name (aref str stri)))
       (setq stri (1+ stri)))
@@ -5523,7 +5523,7 @@ killed after process termination."
 (defun ebnf-trim-right (str)
   (let* ((len   (1- (length str)))
 	 (index len))
-    (while (and (> index 0) (= (aref str index) ?\ ))
+    (while (and (> index 0) (= (aref str index) ?\s))
       (setq index (1- index)))
     (if (= index len)
 	str