/[emacs]/emacs/lisp/strokes.el
ViewVC logotype

Diff of /emacs/lisp/strokes.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by dann, Mon Aug 15 21:29:32 2005 UTC revision 1.26 by deego, Sun Sep 18 12:25:02 2005 UTC
# Line 738  Optional EVENT is acceptable as the star Line 738  Optional EVENT is acceptable as the star
738            (save-window-excursion            (save-window-excursion
739              (set-window-configuration strokes-window-configuration)              (set-window-configuration strokes-window-configuration)
740              (when prompt              (when prompt
741                (message prompt)                (message "%s" prompt)
742                (setq event (read-event))                (setq event (read-event))
743                (or (strokes-button-press-event-p event)                (or (strokes-button-press-event-p event)
744                    (error "You must draw with the mouse")))                    (error "You must draw with the mouse")))
# Line 769  Optional EVENT is acceptable as the star Line 769  Optional EVENT is acceptable as the star
769                (bury-buffer))))                (bury-buffer))))
770        ;; Otherwise, don't use strokes buffer and read stroke silently        ;; Otherwise, don't use strokes buffer and read stroke silently
771        (when prompt        (when prompt
772          (message prompt)          (message "%s" prompt)
773          (setq event (read-event))          (setq event (read-event))
774          (or (strokes-button-press-event-p event)          (or (strokes-button-press-event-p event)
775              (error "You must draw with the mouse")))              (error "You must draw with the mouse")))
# Line 799  Optional EVENT is acceptable as the star Line 799  Optional EVENT is acceptable as the star
799              (grid-locs nil))              (grid-locs nil))
800          (if prompt          (if prompt
801              (while (not (strokes-button-press-event-p event))              (while (not (strokes-button-press-event-p event))
802                (message prompt)                (message "%s" prompt)
803                (setq event (read-event))))                (setq event (read-event))))
804          (unwind-protect          (unwind-protect
805              (track-mouse              (track-mouse

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26