aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTassilo Horn2011-01-16 21:41:25 +0100
committerTassilo Horn2011-01-16 21:41:25 +0100
commit721be9cd4865e9f7d68020adcfa672d2edd52b07 (patch)
tree4a5444e05bd19ef1100881000eec32eb1b05199f
parent885b8edbd425560537a6846a5d1fdb13a623ef3d (diff)
downloademacs-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/ChangeLog6
-rw-r--r--lisp/strokes.el7
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 @@
12011-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
12011-01-16 Glenn Morris <rgm@gnu.org> 72011-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
1000be running a version of Emacs with XPM support. You use the binding 1005be running a version of Emacs with XPM support. You use the binding
1001to `strokes-compose-complex-stroke' to start drawing your strokes. 1006to `strokes-compose-complex-stroke' to start drawing your strokes.
1002These are just complex strokes, and thus continue drawing with mouse-1 1007These are just complex strokes, and thus continue drawing with mouse-1
1003or mouse-2 and end with mouse-3. Then the stroke image gets inserted 1008or mouse-2 and end with mouse-3. Then the stroke image gets inserted
1004into the buffer. You treat it somewhat like any other character, 1009into the buffer. You treat it somewhat like any other character,
1005which you can copy, paste, delete, move, etc. When all is done, you 1010which you can copy, paste, delete, move, etc. When all is done, you
1006may want to send the file, or save it. This is done with 1011may want to send the file, or save it. This is done with