+ { "\emph{" swap$ * "}" * }
+ if$
+}
+
+FUNCTION {enquote}
+{ duplicate$ empty$
+ { pop$ "" }
+ {
+ #1 'i :=
+ #0 'j :=
+ { duplicate$ i #1 substring$ "" = not }
+ { duplicate$ duplicate$ i #1 substring$ quote$ =
+ swap$ i #1 - #1 substring$ "\" = not and %"
+ { duplicate$ #1 i #1 - substring$ swap$
+ i #1 + global.max$ substring$
+ j
+ { swap$ duplicate$ #-1 #1 substring$ "'" =
+ { swap$ "\thinspace'" }
+ { swap$ "'" }
+ if$
+ #0 'j :=
+ }
+ { duplicate$ #1 #1 substring$ "`" =
+ { "`\thinspace" }
+ { "`" }
+ if$
+ #1 'j :=
+ }
+ if$
+ swap$ * *
+ }
+ 'skip$
+ if$
+ i #1 + 'i :=
+ }
+ while$
+ duplicate$ #1 #1 substring$ "`" =
+ { "``\thinspace" swap$ * }
+ { "``" swap$ *}
+ if$
+ duplicate$ #-1 #1 substring$ "'" =
+ { "\thinspace''" * }
+ { "''" *}
+ if$
+ }