emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)))))))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]