[Emacs-diffs] trunk r114739: * lisp/progmodes/ebnf2ps.el (ebnf-prologue): Avoid PS error with some

[Glenn Morris]

------------------------------------------------------------
revno: 114739
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15625
author: Michael Gauland <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2013-10-21 20:47:32 -0400
message:
  * lisp/progmodes/ebnf2ps.el (ebnf-prologue): Avoid PS error with some
  viewers such as evince when ebnf-production-name-p is nil.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/ebnf2ps.el      ebnf2ps.el-20091113204419-o5vbwnq5f7feedwu-1765

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-21 22:25:59 +0000
+++ b/lisp/ChangeLog    2013-10-22 00:47:32 +0000
@@ -1,3 +1,8 @@
+2013-10-22  Michael Gauland  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/ruby-mode.el (ruby-smie-grammar): Remove outdated

=== modified file 'lisp/progmodes/ebnf2ps.el'
--- a/lisp/progmodes/ebnf2ps.el 2013-01-01 09:11:05 +0000
+++ b/lisp/progmodes/ebnf2ps.el 2013-10-22 00:47:32 +0000
@@ -3912,7 +3912,7 @@
  {/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