Mercurial > emacs

--- a/lisp/progmodes/ebnf2ps.el	Fri Feb 02 14:00:57 2007 +0000
+++ b/lisp/progmodes/ebnf2ps.el	Fri Feb 02 14:06:07 2007 +0000
@@ -2184,7 +2184,7 @@
 (defun ebnf-eps-buffer ()
   "Generate a PostScript syntactic chart image of the buffer in a EPS file.

-Indeed, for each production is generated a EPS file.
+Generate an EPS file for each production in the buffer.
 The EPS file name has the following form:

    <PREFIX><PRODUCTION>.eps
@@ -2193,11 +2193,13 @@
 	     The default value is \"ebnf--\".

 <PRODUCTION> is the production name.
-	     The production name is mapped to form a valid file name.
-	     For example, the production name \"A/B + C\" is mapped to
-	     \"A_B_+_C\" and the EPS file name used is \"ebnf--A_B_+_C.eps\".
-
-WARNING: It's *NOT* asked any confirmation to override an existing file."
+	     Some characters in the production file name are replaced to
+	     produce a valid file name.  For example, the production name
+	     \"A/B + C\" is modified to produce \"A_B_+_C\", and the EPS
+	     file name used in this case will be \"ebnf--A_B_+_C.eps\".
+
+WARNING: This function does *NOT* ask any confirmation to override existing
+         files."
   (interactive)
   (ebnf-eps-region (point-min) (point-max)))

@@ -2206,7 +2208,7 @@
 (defun ebnf-eps-region (from to)
   "Generate a PostScript syntactic chart image of the region in a EPS file.

-Indeed, for each production is generated a EPS file.
+Generate an EPS file for each production in the region.
 The EPS file name has the following form:

    <PREFIX><PRODUCTION>.eps
@@ -2215,11 +2217,13 @@
 	     The default value is \"ebnf--\".

 <PRODUCTION> is the production name.
-	     The production name is mapped to form a valid file name.
-	     For example, the production name \"A/B + C\" is mapped to
-	     \"A_B_+_C\" and the EPS file name used is \"ebnf--A_B_+_C.eps\".
-
-WARNING: It's *NOT* asked any confirmation to override an existing file."
+	     Some characters in the production file name are replaced to
+	     produce a valid file name.  For example, the production name
+	     \"A/B + C\" is modified to produce \"A_B_+_C\", and the EPS
+	     file name used in this case will be \"ebnf--A_B_+_C.eps\".
+
+WARNING: This function does *NOT* ask any confirmation to override existing
+         files."
   (interactive "r")
   (let ((ebnf-eps-executing t))
     (ebnf-generate-region from to 'ebnf-generate-eps)))
@@ -2231,12 +2235,12 @@

 ;;;###autoload
 (defun ebnf-syntax-directory (&optional directory)
-  "Does a syntactic analysis of the files in DIRECTORY.
-
-If DIRECTORY is nil, it's used `default-directory'.
-
-The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are
-processed.
+  "Do a syntactic analysis of the files in DIRECTORY.
+
+If DIRECTORY is nil, use `default-directory'.
+
+Only the files in DIRECTORY that match `ebnf-file-suffix-regexp' (which see)
+are processed.

 See also `ebnf-syntax-buffer'."
   (interactive
@@ -2247,7 +2251,7 @@

 ;;;###autoload
 (defun ebnf-syntax-file (file &optional do-not-kill-buffer-when-done)
-  "Does a syntactic analysis of the FILE.
+  "Do a syntactic analysis of the named FILE.

 If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
 killed after syntax checking.
@@ -2259,14 +2263,14 @@

 ;;;###autoload
 (defun ebnf-syntax-buffer ()
-  "Does a syntactic analysis of the current buffer."
+  "Do a syntactic analysis of the current buffer."
   (interactive)
   (ebnf-syntax-region (point-min) (point-max)))


 ;;;###autoload
 (defun ebnf-syntax-region (from to)
-  "Does a syntactic analysis of a region."
+  "Do a syntactic analysis of region."
   (interactive "r")
   (ebnf-generate-region from to nil))

@@ -2572,23 +2576,22 @@
 NAME		is a symbol name style.

 INHERITS	is a symbol name style from which the current style inherits
-		the context.  If INHERITS is nil, means that there is no
-		inheritance.
-
-		This is a simple inheritance of style; so if you declare that a
-		style A inherits from a style B, all settings of B is applied
-		first and then the settings of A is applied.  This is useful
+		the context.  If INHERITS is nil, then there is no inheritance.
+
+		This is a simple inheritance of style: if you declare that
+		style A inherits from style B, all settings of B are applied
+		first, and then the settings of A are applied.  This is useful
 		when you wish to modify some aspects of an existing style, but
-		at same time wish to keep it unmodified.
+		at the same time wish to keep it unmodified.

 VAR		is a valid ebnf2ps symbol custom variable.
-		See `ebnf-style-custom-list' for valid symbol variable.
-
-VALUE		is a sexp which it'll be evaluated to set the value to VAR.
-		So, don't forget to quote symbols and constant lists.
+		See `ebnf-style-custom-list' for valid symbol variables.
+
+VALUE		is a sexp which will be evaluated to set the value of VAR.
+		Don't forget to quote symbols and constant lists.
 		See `default' style for an example.

-Don't handle this variable directly.  Use functions `ebnf-insert-style',
+Don't use this variable directly.  Use functions `ebnf-insert-style',
 `ebnf-delete-style' and `ebnf-merge-style'.")


@@ -2655,7 +2658,7 @@
 (defun ebnf-apply-style (style)
   "Set STYLE as the current style.

-It returns the old style symbol.
+Returns the old style symbol.

 See `ebnf-style-database' documentation."
   (interactive "SApply style: ")
@@ -2669,7 +2672,7 @@
 (defun ebnf-reset-style (&optional style)
   "Reset current style.

-It returns the old style symbol.
+Returns the old style symbol.

 See `ebnf-style-database' documentation."
   (interactive "SReset style: ")
@@ -2679,9 +2682,11 @@

 ;;;###autoload
 (defun ebnf-push-style (&optional style)
-  "Push the current style and set STYLE as the current style.
-
-It returns the old style symbol.
+  "Push the current style onto a stack and set STYLE as the current style.
+
+Returns the old style symbol.
+
+See also `ebnf-pop-style'.

 See `ebnf-style-database' documentation."
   (interactive "SPush style: ")
@@ -2694,9 +2699,11 @@

 ;;;###autoload
 (defun ebnf-pop-style ()
-  "Pop a style and set it as the current style.
-
-It returns the old style symbol.
+  "Pop a style from the stack of pushed styles and set it as the current style.
+
+Returns the old style symbol.
+
+See also `ebnf-push-style'.

 See `ebnf-style-database' documentation."
   (interactive)
@@ -2758,7 +2765,7 @@
 PRODUCTION is the production name.
 EPS-FILENAME is the EPS file name.

-It's generated during parsing and used during EPS generation.
+This is generated during parsing and used during EPS generation.

 See `ebnf-eps-context' and section \"Actions in Comments\" in ebnf2ps
 documentation.")
@@ -4603,9 +4610,9 @@
 (defun ebnf-directory (fun &optional directory)
   "Process files in DIRECTORY applying function FUN on each file.

-If DIRECTORY is nil, it's used `default-directory'.
-
-The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are
+If DIRECTORY is nil, use `default-directory'.
+
+Only files in DIRECTORY that match `ebnf-file-suffix-regexp' (which see) are
 processed."
   (let ((files (directory-files (or directory default-directory)
 				t ebnf-file-suffix-regexp)))
@@ -4619,7 +4626,7 @@


 (defun ebnf-file (fun file &optional do-not-kill-buffer-when-done)
-  "Process file FILE applying function FUN.
+  "Process the named FILE applying function FUN.

 If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
 killed after process termination."
@@ -4821,7 +4828,7 @@
     (ebnf      ebnf-bnf-parser  ebnf-bnf-initialize)
     (ebnfx     ebnf-ebx-parser  ebnf-ebx-initialize)
     (dtd       ebnf-dtd-parser  ebnf-dtd-initialize))
-  "Alist associating ebnf syntax with a parser and a initializer.")
+  "Alist associating EBNF syntax with a parser and a initializer.")


 (defun ebnf-begin-job ()