[groff] 01/01: grog: correct handling of -J option for ideal

[Bernd Warken]

bwarken pushed a commit to branch master
in repository groff.

commit 0b8797bdada894df364b0542989d8cdc069ff44b
Author: Bernd Warken <address@hidden>
Date:   Tue Jun 17 23:26:53 2014 +0200

    grog: correct handling of -J option for ideal
---
 ChangeLog              |    5 +++++
 src/roff/grog/grog.man |    9 +++++----
 src/roff/grog/subs.pl  |    3 +++
 3 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cd06d0e..b30a8b3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-06-17  Bernd Warken  <address@hidden>
 
+       * src/roff/grog/subs.pl: Correct handling of option `-J' for
+       ideal.
+
+2014-06-17  Bernd Warken  <address@hidden>
+
        * src/roff/groff/groff.cpp, src/roff/groff/pipeline.h,
        * src/roff/grog/subs.pl: Add `groff' option `-J' for `gideal'.
 
diff --git a/src/roff/grog/grog.man b/src/roff/grog/grog.man
index bbbc900..aadd2a6 100644
--- a/src/roff/grog/grog.man
+++ b/src/roff/grog/grog.man
@@ -16,10 +16,10 @@ grog.1 - man page for grog (section 1)
 Source file position:  <groff_source_top>/src/roff/grog/grog.man
 Installed position:    $prefix/share/man/man1/grog.1
 
-Last Update: 15 Jun 2014
+Last Update: 17 Jun 2014
 ..
-.de co
-Copyright (C) 1989\[en]2003, 2006, 2007, 2009\[en]2012, 2014
+.de copying
+Copyright (C) 1989\[en]2003, 2006\[en]7, 2009\[en]12, 2014
 Free Software Foundation, Inc.
 .
 Written by James Clark.
@@ -224,6 +224,7 @@ options are required for running the input under
 .BR \-g ,
 .BR \-G ,
 .BR \-j ,
+.BR \-J ,
 .BR \-p ,
 .BR \-R ,
 .BR \-s ,
@@ -538,7 +539,7 @@ this file does not use a macro package.
 .\" --------------------------------------------------------------------
 .SH "COPYING"
 .
-.co
+.copying
 .
 .
 .\" --------------------------------------------------------------------
diff --git a/src/roff/grog/subs.pl b/src/roff/grog/subs.pl
index ce32f79..49be389 100644
--- a/src/roff/grog/subs.pl
+++ b/src/roff/grog/subs.pl
@@ -254,6 +254,9 @@ sub do_first_line {
     if ( $line =~ /j/ ) {
       $Groff{'chem'}++;
     }
+    if ( $line =~ /J/ ) {
+      $Groff{'ideal'}++;
+    }
     if ( $line =~ /p/ ) {
       $Groff{'pic'}++;
     }