Fix bug #18146 with bogus key rebindings in TUTORIAL.he.

lisp/tutorial.el (tutorial--display-changes): Accept punctuation
 characters before the key binding.  (Bug#18146)
This commit is contained in:
Eli Zaretskii 2014-07-29 16:41:50 +03:00
parent 64ae6e0100
commit f0f377774b
2 changed files with 10 additions and 1 deletions

View file

@ -548,7 +548,11 @@ with some explanatory links."
(start (point))
(case-fold-search nil)
(keybindings-regexp
(concat "[[:space:]]\\("
;; Accept either [:space:] or [:punct:] before the key
;; binding because the Hebrew tutorial uses directional
;; controls and Hebrew character maqaf, the Hebrew hyphen,
;; immediately before the binding string.
(concat "\\([[:space:]]\\|[[:punct:]]\\)\\("
(mapconcat (lambda (kdf) (regexp-quote
(tutorial--key-description
(nth 1 kdf))))