Insert font menu in Texinfo mode

[Arash Esbati]

Hi all,

it occurred to me that we don't offer all keybindings in the 'Insert
font' menu in Texinfo mode.  I think this change covers all the bindings
offered in `Texinfo-font-list' -- I have to change "Replace font" part
accordingly, any comments?

--8<---------------cut here---------------start------------->8---
diff --git a/tex-info.el b/tex-info.el
index 4ae14401..2d64fe8a 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -560,19 +560,30 @@ is assumed by default."
     "-"
     ("Insert Font"
      ["Emphasize"  (TeX-font nil ?\C-e) :keys "C-c C-f C-e"]
-     ["Bold"       (TeX-font nil ?\C-b) :keys "C-c C-f C-b"]
+     ["Strong"     (TeX-font nil ?s)    :keys "C-c C-f s"]
+     "-"
+     ["Roman"      (TeX-font nil ?\C-r) :keys "C-c C-f C-r"]
      ["Typewriter" (TeX-font nil ?\C-t) :keys "C-c C-f C-t"]
-     ["Small Caps" (TeX-font nil ?\C-c) :keys "C-c C-f C-c"]
+     "-"
+     ["Bold"       (TeX-font nil ?\C-b) :keys "C-c C-f C-b"]
      ["Italic"     (TeX-font nil ?\C-i) :keys "C-c C-f C-i"]
-     ["Sample"    (TeX-font nil ?\C-s) :keys "C-c C-f C-s"]
-     ["Roman"      (TeX-font nil ?\C-r) :keys "C-c C-f C-r"])
+     ["Small Caps" (TeX-font nil ?\C-c) :keys "C-c C-f C-c"]
+     "-"
+     ["Cite"       (TeX-font nil ?C)    :keys "C-c C-f C"]
+     ["Code"       (TeX-font nil ?c)    :keys "C-c C-f c"]
+     ["Define"     (TeX-font nil ?d)    :keys "C-c C-f d"]
+     ["File"       (TeX-font nil ?\C-f) :keys "C-c C-f C-f"]
+     ["Key"        (TeX-font nil ?k)    :keys "C-c C-f k"]
+     ["Keyboard"   (TeX-font nil ?\C-k) :keys "C-c C-f C-k"]
+     ["Sample"     (TeX-font nil ?\C-s) :keys "C-c C-f C-s"]
+     ["Variable"   (TeX-font nil ?\C-v) :keys "C-c C-f C-v"])
     ("Replace Font"
      ["Emphasize"  (TeX-font t ?\C-e) :keys "C-u C-c C-f C-e"]
      ["Bold"       (TeX-font t ?\C-b) :keys "C-u C-c C-f C-b"]
      ["Typewriter" (TeX-font t ?\C-t) :keys "C-u C-c C-f C-t"]
      ["Small Caps" (TeX-font t ?\C-c) :keys "C-u C-c C-f C-c"]
      ["Italic"     (TeX-font t ?\C-i) :keys "C-u C-c C-f C-i"]
-     ["Sample"    (TeX-font t ?\C-s) :keys "C-u C-c C-f C-s"]
+     ["Sample"     (TeX-font t ?\C-s) :keys "C-u C-c C-f C-s"]
      ["Roman"      (TeX-font t ?\C-r) :keys "C-u C-c C-f C-r"])
     ["Delete Font" (TeX-font t ?\C-d) :keys "C-c C-f C-d"]
     "-"
--8<---------------cut here---------------end--------------->8---

Best, Arash