Mercurial > emacs
comparison lisp/play/decipher.el @ 91073:4bc33ffdda1a
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 902-908)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 131-137)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 261-262)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-278
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 27 Oct 2007 09:12:07 +0000 |
| parents | f55f9811f5d7 e621c5bb81d0 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91072:74ab3ea909f9 | 91073:4bc33ffdda1a |
|---|---|
| 350 (setq decipher-function 'decipher-alphabet-keypress) | 350 (setq decipher-function 'decipher-alphabet-keypress) |
| 351 nil) | 351 nil) |
| 352 (t | 352 (t |
| 353 (error "Bad location"))))) | 353 (error "Bad location"))))) |
| 354 (let (goal-column) | 354 (let (goal-column) |
| 355 (previous-line 1))) | 355 (forward-line -1))) |
| 356 (let ((char-a (following-char)) | 356 (let ((char-a (following-char)) |
| 357 (char-b (decipher-last-command-char))) | 357 (char-b (decipher-last-command-char))) |
| 358 (or (and (not (= ?w (char-syntax char-a))) | 358 (or (and (not (= ?w (char-syntax char-a))) |
| 359 (= char-b ?\ )) ;Spacebar just advances on non-letters | 359 (= char-b ?\ )) ;Spacebar just advances on non-letters |
| 360 (funcall decipher-function char-a char-b))))) | 360 (funcall decipher-function char-a char-b))))) |