author | wenzelm |
Thu, 03 Apr 2008 16:03:56 +0200 | |
changeset 26526 | d1557acb9ef9 |
parent 26525 | 14a56f013469 |
child 26527 | c392354a1b79 |
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML Thu Apr 03 16:03:55 2008 +0200 +++ b/src/Pure/ProofGeneral/proof_general_emacs.ML Thu Apr 03 16:03:56 2008 +0200 @@ -24,7 +24,7 @@ val thm_depsN = "thm_deps"; (*meta-information about theorem deps*) fun special oct = - if print_mode_active pgasciiN then chr 1 ^ chr (ord (oct_char oct) - 167) + if print_mode_active pgasciiN then Symbol.SOH ^ chr (ord (oct_char oct) - 167) else oct_char oct;