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

(postscript, ebnf2ps, ebnf-special, ebnf-except, ebnf-repeat, ebnf-terminal,

Browse source 
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".
This commit is contained in:
Juanma Barranquero 2005-07-04 03:01:10 +00:00
parent 759570c036
commit dfbe3e71ee
1 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lisp/progmodes/ebnf2ps.el
View file

@ -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