767 |
(defun occur-engine-add-prefix (lines) |
(defun occur-engine-add-prefix (lines) |
768 |
(mapcar |
(mapcar |
769 |
#'(lambda (line) |
#'(lambda (line) |
770 |
(concat " :" line "\n")) |
(concat " :" line "\n")) |
771 |
lines)) |
lines)) |
772 |
|
|
773 |
(defun occur-engine (regexp buffers out-buf nlines case-fold-search |
(defun occur-engine (regexp buffers out-buf nlines case-fold-search |
825 |
;; Generate the string to insert for this match |
;; Generate the string to insert for this match |
826 |
(let* ((out-line |
(let* ((out-line |
827 |
(concat |
(concat |
828 |
(apply #'propertize (format "%6d:" lines) |
;; Using 7 digits aligns tabs properly. |
829 |
|
(apply #'propertize (format "%7d:" lines) |
830 |
(append |
(append |
831 |
(when prefix-face |
(when prefix-face |
832 |
`(font-lock-face prefix-face)) |
`(font-lock-face prefix-face)) |