hiro/apheleia
1
0
Fork 0
mirror of https://github.com/vale981/apheleia synced 2025-03-04 17:11:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove debugging statements

Browse source
This commit is contained in:
Radon Rosborough 2019-07-08 21:58:25 -07:00
parent 1811b0aafe
commit 86753a0e14
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
apheleia.el
View file

@ -129,7 +129,6 @@ contains the patch."
(push (cons nil (point)) point-list) (push (cons nil (point)) point-list)
(dolist (w (get-buffer-window-list nil nil t)) (dolist (w (get-buffer-window-list nil nil t))
(push (cons w (window-point w)) point-list))) (push (cons w (window-point w)) point-list)))
(message "point-list: %S" point-list)
(with-current-buffer patch-buffer (with-current-buffer patch-buffer
(apheleia--map-rcs-patch (apheleia--map-rcs-patch
(lambda (command) (lambda (command)
@ -181,7 +180,6 @@ contains the patch."
(cl-destructuring-bind (w . p) entry (cl-destructuring-bind (w . p) entry
(when (and (< text-start p) (when (and (< text-start p)
(< p text-end)) (< p text-end))
(message "point %S for window %S is inside region" p w)
(let* ((old-text (buffer-substring-no-properties (let* ((old-text (buffer-substring-no-properties
text-start text-end)) text-start text-end))
(new-text (alist-get 'text addition)) (new-text (alist-get 'text addition))
@ -210,9 +208,6 @@ contains the patch."
(`set-point (`set-point
(let ((new-point (let ((new-point
(+ (point) (alist-get 'relative-point command)))) (+ (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))) (if-let ((w (alist-get 'window command)))
(set-window-point w new-point) (set-window-point w new-point)
(setq move-to new-point))))))) (setq move-to new-point)))))))