aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/tutorial.el
diff options
context:
space:
mode:
authorEli Zaretskii2014-07-29 16:41:50 +0300
committerEli Zaretskii2014-07-29 16:41:50 +0300
commitf0f377774b3db7a8c0c3b1e28651876179fdfe2b (patch)
tree6b31b9b9dffbfbce7f3dab9158c3c68926c2137e /lisp/tutorial.el
parent64ae6e0100fab05b0ceb9bded6d834208eeb3e8f (diff)
downloademacs-f0f377774b3db7a8c0c3b1e28651876179fdfe2b.tar.gz
emacs-f0f377774b3db7a8c0c3b1e28651876179fdfe2b.zip
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)
Diffstat (limited to 'lisp/tutorial.el')
-rw-r--r--lisp/tutorial.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index 8925a02a9e7..f6d4cb053ec 100644
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -548,7 +548,11 @@ with some explanatory links."
548 (start (point)) 548 (start (point))
549 (case-fold-search nil) 549 (case-fold-search nil)
550 (keybindings-regexp 550 (keybindings-regexp
551 (concat "[[:space:]]\\(" 551 ;; Accept either [:space:] or [:punct:] before the key
552 ;; binding because the Hebrew tutorial uses directional
553 ;; controls and Hebrew character maqaf, the Hebrew hyphen,
554 ;; immediately before the binding string.
555 (concat "\\([[:space:]]\\|[[:punct:]]\\)\\("
552 (mapconcat (lambda (kdf) (regexp-quote 556 (mapconcat (lambda (kdf) (regexp-quote
553 (tutorial--key-description 557 (tutorial--key-description
554 (nth 1 kdf)))) 558 (nth 1 kdf))))