diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-09-18 16:03:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-09-18 16:03:58 +0000 |
| commit | 261cca8832d07c2332410b20fd1227043d280c14 (patch) | |
| tree | 90bc8598e60f08aeac3690edc05f3ece366abef4 /lisp/replace.el | |
| parent | 2b25de040f7df72224b0261119ac2790233562f9 (diff) | |
| download | emacs-261cca8832d07c2332410b20fd1227043d280c14.tar.gz | |
(occur-engine-add-prefix): Use 7 spaces.
(occur-engine): Use 7 digits to align tabs in the data.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 5 |
1 files 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)) |