changeset 1161 | e410e63f74e8 |
parent 1157 | 41bb8575966d |
child 1168 | 24da81e9a023 |
1160:d1c76b72e9d6 | 1161:e410e63f74e8 |
---|---|
61 |
61 |
62 (defun gaphrase-insert-sentence () |
62 (defun gaphrase-insert-sentence () |
63 (interactive) |
63 (interactive) |
64 (forward-line 1) |
64 (forward-line 1) |
65 (while (not (or (eobp) |
65 (while (not (or (eobp) |
66 (eq (char-after) ?-))) |
66 (memq (char-after) (list ?- ?#)))) |
67 (forward-line 1)) |
67 (forward-line 1)) |
68 (insert ?\n) |
68 (insert ?\n) |
69 (backward-char) |
69 (backward-char) |
70 (insert "- ")) |
70 (insert "- ")) |
71 |
71 |