diff options
| author | Tassilo Horn | 2011-01-16 21:41:25 +0100 |
|---|---|---|
| committer | Tassilo Horn | 2011-01-16 21:41:25 +0100 |
| commit | 721be9cd4865e9f7d68020adcfa672d2edd52b07 (patch) | |
| tree | 4a5444e05bd19ef1100881000eec32eb1b05199f | |
| parent | 885b8edbd425560537a6846a5d1fdb13a623ef3d (diff) | |
| download | emacs-721be9cd4865e9f7d68020adcfa672d2edd52b07.tar.gz emacs-721be9cd4865e9f7d68020adcfa672d2edd52b07.zip | |
* strokes.el (strokes-read-stroke): Re-fill strokes buffer with
spaces if the frame was resized, so that the full visible buffer
serves as canvas for strokes.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/strokes.el | 7 |
2 files changed, 12 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c73b1d6a372..3bc9ccfbf28 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2011-01-16 Tassilo Horn <tassilo@member.fsf.org> | ||
| 2 | |||
| 3 | * strokes.el (strokes-read-stroke): Re-fill strokes buffer with | ||
| 4 | spaces if the frame was resized, so that the full visible buffer | ||
| 5 | serves as canvas for strokes. | ||
| 6 | |||
| 1 | 2011-01-16 Glenn Morris <rgm@gnu.org> | 7 | 2011-01-16 Glenn Morris <rgm@gnu.org> |
| 2 | 8 | ||
| 3 | * info-xref.el (info-xref-docstrings): Replace cl function. | 9 | * info-xref.el (info-xref-docstrings): Replace cl function. |
diff --git a/lisp/strokes.el b/lisp/strokes.el index 2aba8251596..85258cf6217 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el | |||
| @@ -736,6 +736,11 @@ Optional EVENT is acceptable as the starting event of the stroke." | |||
| 736 | ;; display the stroke as it's being read | 736 | ;; display the stroke as it's being read |
| 737 | (save-window-excursion | 737 | (save-window-excursion |
| 738 | (set-window-configuration strokes-window-configuration) | 738 | (set-window-configuration strokes-window-configuration) |
| 739 | ;; The frame has been resized, so we need to refill the | ||
| 740 | ;; strokes buffer so that the strokes canvas is the whole | ||
| 741 | ;; visible buffer. | ||
| 742 | (unless (> 1 (abs (- (line-end-position) (window-width)))) | ||
| 743 | (strokes-fill-current-buffer-with-whitespace)) | ||
| 739 | (when prompt | 744 | (when prompt |
| 740 | (message "%s" prompt) | 745 | (message "%s" prompt) |
| 741 | (setq event (read-event)) | 746 | (setq event (read-event)) |
| @@ -1000,7 +1005,7 @@ If you'd like to create graphical files with strokes, you'll have to | |||
| 1000 | be running a version of Emacs with XPM support. You use the binding | 1005 | be running a version of Emacs with XPM support. You use the binding |
| 1001 | to `strokes-compose-complex-stroke' to start drawing your strokes. | 1006 | to `strokes-compose-complex-stroke' to start drawing your strokes. |
| 1002 | These are just complex strokes, and thus continue drawing with mouse-1 | 1007 | These are just complex strokes, and thus continue drawing with mouse-1 |
| 1003 | or mouse-2 and end with mouse-3. Then the stroke image gets inserted | 1008 | or mouse-2 and end with mouse-3. Then the stroke image gets inserted |
| 1004 | into the buffer. You treat it somewhat like any other character, | 1009 | into the buffer. You treat it somewhat like any other character, |
| 1005 | which you can copy, paste, delete, move, etc. When all is done, you | 1010 | which you can copy, paste, delete, move, etc. When all is done, you |
| 1006 | may want to send the file, or save it. This is done with | 1011 | may want to send the file, or save it. This is done with |