* lisp/progmodes/ebnf2ps.el (ebnf-prologue): Avoid PS error with some

viewers such as evince when ebnf-production-name-p is nil.

Fixes: debbugs:15625

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a00661aef9832cb3931c8a8ed39b53e0ca51d95..9a5e8dccc0c0e5fb4e199b3d4dda81b2ee26d048 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-10-22  Michael Gauland  <mikelygee@amuri.net>
+
+       * progmodes/ebnf2ps.el (ebnf-prologue): Avoid PS error with some
+       viewers such as evince when ebnf-production-name-p is nil.  (Bug#15625)
+
 2013-10-21  Dmitry Gutov  <dgutov@yandex.ru>
 
        * progmodes/ruby-mode.el (ruby-smie-grammar): Remove outdated

diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index caa33d36440a91e705c51fd5e69ffb2b7bfbef47..4c2dfc9828580783c73afc85b3d5397cce37ccfc 100644 (file)
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -3912,7 +3912,7 @@ See documentation for `ebnf-terminal-shape', `ebnf-non-terminal-shape' and
  {/Effect EffectP def
   /fP F ForegroundP SetRGB BackgroundP aload pop true BG S
   /Effect 0 def
-  ( :) S false BG}if
+  ( :) S false BG}{pop}ifelse
  xw yw moveto
  hT EL RA
  xp yw moveto