(column (current-column))
(text (buffer-substring (save-excursion (beginning-of-line) (point))
(save-excursion (end-of-line) (point)))))
- (with-current-buffer result-buffer
- (let ((inhibit-read-only t))
- (insert (format "%s:%d:%d: %s\n"
- (dired-make-relative file-name default-directory)
- line column text))))))))))
+ (with-current-buffer result-buffer
+ (let ((inhibit-read-only t))
+ (insert (format "%s:%d:%d: %s\n"
+ (dired-make-relative file-name default-directory)
+ line column text))))
+ ; only one match / line
+ (forward-line 1)))))))
(defun egrep-prepare-result-buffer ()
(let ((result-buffer (get-buffer-create "*egrep*")))