resphilosophica (25sep13)

git-svn-id: svn://tug.org/texlive/trunk@31768 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 13 insertions, 6 deletions

diff --git a/Master/texmf-dist/bibtex/bst/resphilosophica/resphilosophica.bst b/Master/texmf-dist/bibtex/bst/resphilosophica/resphilosophica.bst
index 72e5f38b7c2..12b6d941313 100644
--- a/Master/texmf-dist/bibtex/bst/resphilosophica/resphilosophica.bst
+++ b/Master/texmf-dist/bibtex/bst/resphilosophica/resphilosophica.bst
@@ -91,7 +91,7 @@ STRINGS { s t}
 FUNCTION {output.nonnull}
 { 's :=
   output.state mid.sentence =
-    { ", " * write$ }
+    { "\checkcomma{} " * write$ }
     { output.state after.block =
         { add.period$ write$
           newline$
@@ -858,7 +858,7 @@ FUNCTION {multi.page.check}
     }
     { t #1 #1 substring$
       duplicate$ "-" =
-      swap$ duplicate$ "," =
+      swap$ duplicate$ "\checkcomma{}" =
       swap$ "+" =
       or or
         { #1 'multiresult := }
@@ -945,7 +945,7 @@ FUNCTION {format.chapter.pages}
       * *
       pages empty$
         'skip$
-        { ", " * format.pages * }
+        { "\checkcomma{} " * format.pages * }
       if$
     }
   if$
@@ -961,7 +961,7 @@ FUNCTION {format.in.ed.booktitle}
     {
       format.edition duplicate$ empty$ 'pop$
          {
-           ", " swap$ * * 
+           "\checkcomma{} " swap$ * * 
          }
       if$
       editor "editor" format.names.ed duplicate$ empty$ 'pop$
@@ -969,7 +969,7 @@ FUNCTION {format.in.ed.booktitle}
           bbl.edby
           " " * swap$ *
           swap$
-          "," *
+          "\checkcomma{}" *
           " " * swap$
           * }
       if$
@@ -1692,7 +1692,14 @@ FUNCTION {begin.bib}
   "\providecommand{\urlprefix}{}"
   write$ newline$
   "\providecommand{\doi}[1]{\url{http://dx.doi.org/#1}}"
-    write$ newline$}
+    write$ newline$
+  "\makeatletter\newif\if@suppresscomma\@suppresscommafalse"
+  write$ newline$
+  "\newcommand\suppresscomma{\global\@suppresscommatrue}"
+  write$ newline$
+  "\newcommand\checkcomma{\if@suppresscomma\else,\fi\global\@suppresscommafalse}\makeatother"
+  write$ newline$
+}
 
 EXECUTE {begin.bib}
 EXECUTE {init.state.consts}