From 261cca8832d07c2332410b20fd1227043d280c14 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 18 Sep 2002 16:03:58 +0000 Subject: [PATCH] (occur-engine-add-prefix): Use 7 spaces. (occur-engine): Use 7 digits to align tabs in the data. --- lisp/replace.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/replace.el b/lisp/replace.el index 544f10ada91..f24a5fde9df 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -767,7 +767,7 @@ See also `multi-occur'." (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 @@ See also `multi-occur'." ;; 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)) -- 2.39.5