Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

remove debug statements

  • Loading branch information...
commit b6d27583a57c3e45aee5776ef4003313b11e3ea4 1 parent b1cc57e
@rakete authored
Showing with 6 additions and 9 deletions.
  1. +6 −9 go-back.el
View
15 go-back.el
@@ -191,7 +191,7 @@
(< (abs (- p current-match)) closest-diff))
(setq closest-diff (abs (- p current-match))
closest-match current-match)))
- (goto-char (print closest-match))
+ (goto-char closest-match)
(let* ((offset nil)
(new-p (cond ((and (>= (length re-left) (length re-right))
(setq offset (string-match re-left (buffer-substring (point-at-bol) (point-at-eol)))))
@@ -201,9 +201,9 @@
(+ closest-match offset))
(t
(+ closest-match (length line-left))))))
- (goto-char (print (if (>= new-p (point-at-eol))
- (point-at-eol)
- new-p))))))))))
+ (goto-char (if (>= new-p (point-at-eol))
+ (point-at-eol)
+ new-p)))))))))
(defun go-back-make-location ()
(save-excursion
@@ -328,8 +328,7 @@
(go-back-shift :left))
(go-back-push loc :right)
(setq go-back-current (car (last go-back-past))))
- )))
- (go-back-dump-state))
+ ))))
;; blah
@@ -357,9 +356,7 @@
(setq go-back-before nil))
(setq go-back-current (car go-back-future))
(go-back-go go-back-current))
- )
- ))
- (go-back-dump-state))
+ ))))
(setq go-back-trigger-command-symbols '((isearch-mode
isearch-forward
Please sign in to comment.
Something went wrong with that request. Please try again.