diff options
| author | Eli Zaretskii | 2014-07-29 16:41:50 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2014-07-29 16:41:50 +0300 |
| commit | f0f377774b3db7a8c0c3b1e28651876179fdfe2b (patch) | |
| tree | 6b31b9b9dffbfbce7f3dab9158c3c68926c2137e /lisp/tutorial.el | |
| parent | 64ae6e0100fab05b0ceb9bded6d834208eeb3e8f (diff) | |
| download | emacs-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.el | 6 |
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)))) |