Skip to content

Commit

Permalink
* helm-regexp.el (helm-regexp-get-line): Remove unneeded workaround.
Browse files Browse the repository at this point in the history
  • Loading branch information
Thierry Volpiatto committed Mar 23, 2015
1 parent b8aaa74 commit 655b422
Showing 1 changed file with 2 additions and 5 deletions.
7 changes: 2 additions & 5 deletions helm-regexp.el
Original file line number Diff line number Diff line change
Expand Up @@ -136,16 +136,13 @@ i.e Don't replace inside a word, regexp is surrounded with \\bregexp\\b."
(let ((matches (match-data))
(line (buffer-substring s e)))
(propertize
(cl-loop with ln = (format "%5d: %s" (line-number-at-pos (1- s)) line)
(cl-loop with ln = (format "%5d: %s" (line-number-at-pos s) line)
for i from 0 to (1- (/ (length matches) 2))
concat (format "\n %s'%s'" (format "Group %d: " i)
(match-string i))
into ln1
finally return (concat ln ln1))
;; match beginning
;; KLUDGE: point of helm-candidate-buffer is +1 than that of helm-current-buffer.
;; It is implementation problem of candidates-in-buffer.
'helm-realvalue (1- s))))
'helm-realvalue s)))

(defun helm-regexp-persistent-action (pt)
(helm-goto-char pt)
Expand Down

0 comments on commit 655b422

Please sign in to comment.