Handle ambiuous _\b_

Is _ backspace _ italic or bold? Let's default
on bold, except if the current mode is italic or
bold-italic: then it's italic.

1 files changed, 4 insertions, 0 deletions

diff --git a/mnpgr.tl b/mnpgr.tl
index 0a2a60c..8aaa6ab 100755
--- a/mnpgr.tl
+++ b/mnpgr.tl
@@ -55,6 +55,10 @@
             ("")
             (`@{x #/ +/}` (output-text x cur-mode))
             (`_\b@x\b@x` (output-text x :bital))
+            (`_\b_` (output-text "_"
+                                 (if (meq cur-mode :bital :ital)
+                                   :ital
+                                   :bold)))
             (`_\b@x` (output-text x :ital))
             (`@x\b@x` (output-text x :bold))
             (@else (output-text else :norm))))