Permalink
Browse files

* helm-regexp.el (helm-m-occur-get-line): Don't recompute point-at-bol.

  • Loading branch information...
1 parent f75353f commit aaa5027d9200e7e0395eda6bbf427ef2c7f80b76 @thierryvolpiatto thierryvolpiatto committed Aug 25, 2012
Showing with 4 additions and 4 deletions.
  1. +4 −4 helm-regexp.el
View
@@ -234,17 +234,17 @@ i.e Don't replace inside a word, regexp is surrounded with \\bregexp\\b."
bufstr)
concat bufstr)))
-(defun helm-m-occur-get-line (s e)
+(defun helm-m-occur-get-line (beg end)
"Format line for `helm-c-source-moccur'."
(format "%s:%d:%s"
- (get-text-property (point-at-bol) 'buffer-name)
+ (get-text-property beg 'buffer-name)
(save-restriction
(narrow-to-region (previous-single-property-change
(point) 'buffer-name)
(next-single-property-change
(point) 'buffer-name))
- (line-number-at-pos s))
- (buffer-substring s e)))
+ (line-number-at-pos beg))
+ (buffer-substring beg end)))
(defun* helm-m-occur-action (candidate
&optional (method (quote buffer)))

0 comments on commit aaa5027

Please sign in to comment.