* 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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a00661aef9..9a5e8dccc0c 100644
--- 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 caa33d36440..4c2dfc98285 100644
--- 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