diff options
| author | Radon Rosborough <radon.neon@gmail.com> | 2019-07-08 21:58:25 -0700 |
|---|---|---|
| committer | Radon Rosborough <radon.neon@gmail.com> | 2019-07-08 21:58:25 -0700 |
| commit | 86753a0e1446bcbe4a30ce9fc2d65e8ff4813fce (patch) | |
| tree | 68447a619deb9af146aad059095cd7b9964f9486 | |
| parent | 1811b0aafea0b9d60122d1f0a9c4738dde81175a (diff) | |
Remove debugging statements
| -rw-r--r-- | apheleia.el | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/apheleia.el b/apheleia.el index 8218dc1..2326a3e 100644 --- a/apheleia.el +++ b/apheleia.el @@ -129,7 +129,6 @@ contains the patch." (push (cons nil (point)) point-list) (dolist (w (get-buffer-window-list nil nil t)) (push (cons w (window-point w)) point-list))) - (message "point-list: %S" point-list) (with-current-buffer patch-buffer (apheleia--map-rcs-patch (lambda (command) @@ -181,7 +180,6 @@ contains the patch." (cl-destructuring-bind (w . p) entry (when (and (< text-start p) (< p text-end)) - (message "point %S for window %S is inside region" p w) (let* ((old-text (buffer-substring-no-properties text-start text-end)) (new-text (alist-get 'text addition)) @@ -210,9 +208,6 @@ contains the patch." (`set-point (let ((new-point (+ (point) (alist-get 'relative-point command)))) - (message "setting point for window %S to %S" - (alist-get 'window command) - new-point) (if-let ((w (alist-get 'window command))) (set-window-point w new-point) (setq move-to new-point))))))) |