Mercurial > emacs
changeset 47532:e5d8cf249294
(occur-engine-add-prefix): Use 7 spaces.
(occur-engine): Use 7 digits to align tabs in the data.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Sep 2002 16:03:58 +0000 |
| parents | e7f753af9ceb |
| children | 9ba60de0587d |
| files | lisp/replace.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Wed Sep 18 16:02:49 2002 +0000 +++ b/lisp/replace.el Wed Sep 18 16:03:58 2002 +0000 @@ -767,7 +767,7 @@ (defun occur-engine-add-prefix (lines) (mapcar #'(lambda (line) - (concat " :" line "\n")) + (concat " :" line "\n")) lines)) (defun occur-engine (regexp buffers out-buf nlines case-fold-search @@ -825,7 +825,8 @@ ;; Generate the string to insert for this match (let* ((out-line (concat - (apply #'propertize (format "%6d:" lines) + ;; Using 7 digits aligns tabs properly. + (apply #'propertize (format "%7d:" lines) (append (when prefix-face `(font-lock-face prefix-face))