[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/sketch-mode 414ec7c 15/38: Don't print coordinates to m
From: |
ELPA Syncer |
Subject: |
[elpa] externals/sketch-mode 414ec7c 15/38: Don't print coordinates to message buffer |
Date: |
Wed, 15 Sep 2021 16:57:36 -0400 (EDT) |
branch: externals/sketch-mode
commit 414ec7c07bf8f917dfaf4c9c4e943f3ff8d84a27
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>
Don't print coordinates to message buffer
---
sketch-mode.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/sketch-mode.el b/sketch-mode.el
index 95fc88e..24c878e 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -218,7 +218,8 @@ transient."
;; :map '(((rect . ((0 . 0) . (800 . 600)))
sketch
(pointer arrow help-echo (lambda (_ _ pos)
- (let ((coords (cdr
(mouse-pixel-position))))
+ (let ((message-log-max
nil)
+ (coords (cdr
(mouse-pixel-position))))
(print (format "(%s,
%s)"
(- (car
coords) sketch-im-x-offset)
(+ (cdr
coords) sketch-im-y-offset)))))))))))
@@ -518,7 +519,8 @@ values"
;; :map '(((rect . ((0 . 0) . (800 . 600)))
sketch
(pointer arrow help-echo (lambda (_ _ pos)
- (let ((coords
(mouse-pixel-position)))
+ (let
((message-log-max nil)
+ (coords
(mouse-pixel-position)))
(print (format
"(%s, %s)"
(- (cadr coords) pos)
(cddr coords)))))))))))
- [elpa] externals/sketch-mode e3c16c7 26/38: Merge branch 'implement-layers' (incl. undo-tree undo/redo), (continued)
- [elpa] externals/sketch-mode e3c16c7 26/38: Merge branch 'implement-layers' (incl. undo-tree undo/redo), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 951c284 28/38: Fix dot marker and rename (make internal) sketch-snap-to-grid, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode f0465ec 29/38: Remove sketch-interactive function, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 4c6a675 36/38: Fix load definition functionality (also set layers list), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode bcb99c9 35/38: Implement text label and modify feature, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 49c3c04 34/38: Add dasharray feature, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 4a4e2ba 33/38: Implement import/snippet functionality, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 37af8f4 01/38: Initial commit, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 0f870a1 20/38: Implement load from definition buffer & modify object functionality, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode fadc554 21/38: Add xml processing instruction and DOCTYPE element (see #4), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 414ec7c 15/38: Don't print coordinates to message buffer,
ELPA Syncer <=
- [elpa] externals/sketch-mode 87a0808 16/38: Fix file header, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 7583fcb 17/38: Fix variable names and implement svg lisp togglable side window, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 8b63796 19/38: First try: implement update for both type side-winows, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode ec35bb4 23/38: Add xml processing instruction and DOCTYPE element (see #4), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 846f4a0 24/38: Implement layers (incl. reformat labels), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 6433b20 30/38: Add circle/ellipse labels, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 406f51d 25/38: Fix undo-redo (i.e. switch to use undo-tree-mode), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 9eb86b8 31/38: Add comments and cleanup, ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode aaac04d 38/38: Fix indentation (simply auto indent complete file), ELPA Syncer, 2021/09/15
- [elpa] externals/sketch-mode 0005a3a 27/38: Add sketch-mapcons function (refactor sketch--circle-radius), ELPA Syncer, 2021/09/15