diff options
author | Daniel Kochmanski <dkochmanski@turtleware.eu> | 2018-01-02 08:23:21 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-01-02 08:23:21 +0100 |
commit | 33b6bc391d27aded135f34c4881eb76efc801bb6 (patch) | |
tree | cb7f3db526d184b51b80455a18a68b3b68973619 | |
parent | 8e37a21cdfcd9ef4db2de12bc85dbaba138aef82 (diff) | |
parent | 5fbe43ad27342916c893c1084e117f2ba6834f69 (diff) |
Merge pull request #422 from nsrahmad/master
Restore cursor-position after calling adjust-table-cells
-rw-r--r-- | Core/clim-core/table-formatting.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Core/clim-core/table-formatting.lisp b/Core/clim-core/table-formatting.lisp index 723eff05..97879f89 100644 --- a/Core/clim-core/table-formatting.lisp +++ b/Core/clim-core/table-formatting.lisp @@ -322,12 +322,12 @@ skips intervening non-table output record structures.")) (with-output-recording-options (stream :record t :draw nil) (funcall continuation stream) (force-output stream)) - (setf (stream-cursor-position stream) - (values cursor-old-x cursor-old-y)) (with-output-recording-options (stream :record nil :draw nil) (adjust-table-cells table stream) (when multiple-columns (adjust-multiple-columns table stream)) (tree-recompute-extent table)) + (setf (stream-cursor-position stream) + (values cursor-old-x cursor-old-y)) (replay table stream) (if move-cursor (setf (stream-cursor-position stream) |