Mercurial > emacs
comparison lisp/strokes.el @ 49785:25477ff93766
(strokes-read-complex-stroke): Fix use of character constant.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 14 Feb 2003 09:57:24 +0000 |
| parents | e88404e8f2cf |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49784:48e671543e1e | 49785:25477ff93766 |
|---|---|
| 791 (if (strokes-mouse-event-p event) | 791 (if (strokes-mouse-event-p event) |
| 792 (let ((point (strokes-event-closest-point event))) | 792 (let ((point (strokes-event-closest-point event))) |
| 793 (when point | 793 (when point |
| 794 (goto-char point) | 794 (goto-char point) |
| 795 (subst-char-in-region point (1+ point) | 795 (subst-char-in-region point (1+ point) |
| 796 ?\ strokes-character)) | 796 ?\ strokes-character)) |
| 797 (push (cdr (mouse-pixel-position)) | 797 (push (cdr (mouse-pixel-position)) |
| 798 pix-locs))) | 798 pix-locs))) |
| 799 (setq event (read-event))) | 799 (setq event (read-event))) |
| 800 (push strokes-lift pix-locs) | 800 (push strokes-lift pix-locs) |
| 801 (while (not (strokes-button-press-event-p event)) | 801 (while (not (strokes-button-press-event-p event)) |