branch: externals/sketch-mode
commit 414ec7c07bf8f917dfaf4c9c4e943f3ff8d84a27
Author: Daniel Nicolai <dalanico...@gmail.com>
Commit: Daniel Nicolai <dalanico...@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)))))))))))
