732 |
#'previous-single-property-change |
#'previous-single-property-change |
733 |
#'next-single-property-change) |
#'next-single-property-change) |
734 |
"No more matches") |
"No more matches") |
735 |
|
;; In case the *Occur* buffer is visible in a nonselected window. |
736 |
|
(set-window-point (get-buffer-window (current-buffer)) (point)) |
737 |
(occur-mode-goto-occurrence)) |
(occur-mode-goto-occurrence)) |
738 |
|
|
739 |
|
|
1011 |
;; concatenate them all together. |
;; concatenate them all together. |
1012 |
(apply #'concat |
(apply #'concat |
1013 |
(nconc |
(nconc |
1014 |
(occur-engine-add-prefix (nreverse (cdr (occur-accumulate-lines (- (1+ nlines)) keep-props)))) |
(occur-engine-add-prefix (nreverse (cdr (occur-accumulate-lines (- (1+ (abs nlines))) keep-props)))) |
1015 |
(list out-line) |
(list out-line) |
1016 |
(occur-engine-add-prefix (cdr (occur-accumulate-lines (1+ nlines) keep-props)))))))) |
(if (> nlines 0) |
1017 |
|
(occur-engine-add-prefix |
1018 |
|
(cdr (occur-accumulate-lines (1+ nlines) keep-props))))))))) |
1019 |
;; Actually insert the match display data |
;; Actually insert the match display data |
1020 |
(with-current-buffer out-buf |
(with-current-buffer out-buf |
1021 |
(let ((beg (point)) |
(let ((beg (point)) |