Put quotes around the examples of emacs key syntax

glguy · Aug 2, 2024 · 6edc264 · 6edc264
1 parent 5c3bc39
commit 6edc264
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Client/Configuration.hs b/src/Client/Configuration.hs
@@ -365,23 +365,23 @@ keyBindingSpec = actBindingSpec <!> cmdBindingSpec <!> unbindingSpec
 actBindingSpec :: ValueSpec (KeyMap -> KeyMap)
 actBindingSpec = sectionsSpec "action-binding" $
   do ~(m,k) <- reqSection' "bind" keySpec
-               "Key to be bound (e.g. a, C-b, M-c C-M-d)"
+               "Key to be bound (e.g. \"a\", \"C-b\", \"M-c\", \"C-M-d\")"
      a      <- reqSection "action"
                "Action name (see `/keymap`)"
      return (addKeyBinding m k a)
 
 cmdBindingSpec :: ValueSpec (KeyMap -> KeyMap)
 cmdBindingSpec = sectionsSpec "command-binding" $
   do ~(m,k) <- reqSection' "bind" keySpec
-               "Key to be bound (e.g. a, C-b, M-c C-M-d)"
+               "Key to be bound (e.g. \"a\", \"C-b\", \"M-c\", \"C-M-d\")"
      cmd    <- reqSection "command"
                "Client command to execute (exclude leading `/`)"
      return (addKeyBinding m k (ActCommand cmd))
 
 unbindingSpec :: ValueSpec (KeyMap -> KeyMap)
 unbindingSpec = sectionsSpec "remove-binding" $
   do ~(m,k) <- reqSection' "unbind" keySpec
-               "Key to be unbound (e.g. a, C-b, M-c C-M-d)"
+               "Key to be unbound (e.g. \"a\", \"C-b\", \"M-c\", \"C-M-d\")"
      return (removeKeyBinding m k)