Mercurial > emacs

changeset 64042:a54bca38edbf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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".
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 04 Jul 2005 03:01:10 +0000
parents e28ab96f1223
children ae098eff094f
files lisp/progmodes/ebnf2ps.el
diffstat 1 files changed, 14 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/ebnf2ps.el	Mon Jul 04 02:58:48 2005 +0000
+++ b/lisp/progmodes/ebnf2ps.el	Mon Jul 04 03:01:10 2005 +0000
@@ -1135,14 +1135,14 @@
 ;;; 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 @@
 
 
 (defgroup ebnf-special nil
-  "Special customization"
+  "Special customization."
   :prefix "ebnf-"
   :tag "Special"
   :version "20"
@@ -1158,7 +1158,7 @@
 
 
 (defgroup ebnf-except nil
-  "Except customization"
+  "Except customization."
   :prefix "ebnf-"
   :tag "Except"
   :version "20"
@@ -1166,7 +1166,7 @@
 
 
 (defgroup ebnf-repeat nil
-  "Repeat customization"
+  "Repeat customization."
   :prefix "ebnf-"
   :tag "Repeat"
   :version "20"
@@ -1174,7 +1174,7 @@
 
 
 (defgroup ebnf-terminal nil
-  "Terminal customization"
+  "Terminal customization."
   :prefix "ebnf-"
   :tag "Terminal"
   :version "20"
@@ -1182,7 +1182,7 @@
 
 
 (defgroup ebnf-non-terminal nil
-  "Non-Terminal customization"
+  "Non-Terminal customization."
   :prefix "ebnf-"
   :tag "Non-Terminal"
   :version "20"
@@ -1190,7 +1190,7 @@
 
 
 (defgroup ebnf-production nil
-  "Production customization"
+  "Production customization."
   :prefix "ebnf-"
   :tag "Production"
   :version "20"
@@ -1198,7 +1198,7 @@
 
 
 (defgroup ebnf-shape nil
-  "Shapes customization"
+  "Shapes customization."
   :prefix "ebnf-"
   :tag "Shape"
   :version "20"
@@ -1206,7 +1206,7 @@
 
 
 (defgroup ebnf-displacement nil
-  "Displacement customization"
+  "Displacement customization."
   :prefix "ebnf-"
   :tag "Displacement"
   :version "20"
@@ -1214,7 +1214,7 @@
 
 
 (defgroup ebnf-syntactic nil
-  "Syntactic customization"
+  "Syntactic customization."
   :prefix "ebnf-"
   :tag "Syntactic"
   :version "20"
@@ -1222,7 +1222,7 @@
 
 
 (defgroup ebnf-optimization nil
-  "Optimization customization"
+  "Optimization customization."
   :prefix "ebnf-"
   :tag "Optimization"
   :version "20"
@@ -4623,7 +4623,7 @@
 (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 @@
 (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