From unknown Sat Aug 16 20:55:55 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#14017 <14017@debbugs.gnu.org> To: bug#14017 <14017@debbugs.gnu.org> Subject: Status: Highlight prefix line numbers in occur Reply-To: bug#14017 <14017@debbugs.gnu.org> Date: Sun, 17 Aug 2025 03:55:55 +0000 retitle 14017 Highlight prefix line numbers in occur reassign 14017 emacs submitter 14017 Juri Linkov severity 14017 normal tag 14017 fixed thanks From debbugs-submit-bounces@debbugs.gnu.org Thu Mar 21 18:41:29 2013 Received: (at submit) by debbugs.gnu.org; 21 Mar 2013 22:41:29 +0000 Received: from localhost ([127.0.0.1]:39474 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UIoAr-0000gg-8o for submit@debbugs.gnu.org; Thu, 21 Mar 2013 18:41:29 -0400 Received: from eggs.gnu.org ([208.118.235.92]:56691) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UIoAn-0000gX-Cs for submit@debbugs.gnu.org; Thu, 21 Mar 2013 18:41:26 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UIo8x-0003ic-1N for submit@debbugs.gnu.org; Thu, 21 Mar 2013 18:39:32 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-101.9 required=5.0 tests=BAYES_00, USER_IN_WHITELIST autolearn=unavailable version=3.3.2 Received: from lists.gnu.org ([208.118.235.17]:45757) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UIo8w-0003iY-UL for submit@debbugs.gnu.org; Thu, 21 Mar 2013 18:39:30 -0400 Received: from eggs.gnu.org ([208.118.235.92]:39819) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UIo8v-0007Wd-OW for bug-gnu-emacs@gnu.org; Thu, 21 Mar 2013 18:39:30 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UIo8u-0003iH-EK for bug-gnu-emacs@gnu.org; Thu, 21 Mar 2013 18:39:29 -0400 Received: from ps18281.dreamhost.com ([69.163.218.105]:50806 helo=ps18281.dreamhostps.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UIo8u-0003iD-4S for bug-gnu-emacs@gnu.org; Thu, 21 Mar 2013 18:39:28 -0400 Received: from localhost (ps18281.dreamhostps.com [69.163.218.105]) by ps18281.dreamhostps.com (Postfix) with ESMTP id C76C9258B92960 for ; Thu, 21 Mar 2013 15:39:26 -0700 (PDT) From: Juri Linkov To: bug-gnu-emacs@gnu.org Subject: Highlight prefix line numbers in occur Organization: JURTA Date: Fri, 22 Mar 2013 00:38:17 +0200 Message-ID: <871ub8idk6.fsf@mail.jurta.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (x86_64-pc-linux-gnu) MIME-Version: 1.0 Content-Type: text/plain X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x (no timestamps) [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 208.118.235.17 X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.9 (------) Currently the `prefix-face' arg of `occur-engine' is unused. Its caller `occur-1' just sends nil to `occur-engine'. This is the reason why a bug in its usage in `occur-engine' remained undiscovered for a long time. The bug is that this code: (when prefix-face `(font-lock-face prefix-face)) should be fixed to: (when prefix-face `(font-lock-face ,prefix-face)) To take it into use I propose to add a new face option `list-matching-lines-prefix-face' to accompany the existing `list-matching-lines-buffer-name-face' and `list-matching-lines-face'. Its default value could be `shadow' - the same face as is used to highlight line numbers in `linum-mode' (their output will look similar). === modified file 'lisp/replace.el' --- lisp/replace.el 2013-03-10 08:44:07 +0000 +++ lisp/replace.el 2013-03-21 22:36:56 +0000 @@ -1125,6 +1125,14 @@ (defcustom list-matching-lines-buffer-name-face :type 'face :group 'matching) +(defcustom list-matching-lines-prefix-face 'shadow + "Face used by \\[list-matching-lines] to show the prefix column. +If the face doesn't differ from the default face, +don't highlight the prefix with line numbers specially." + :type 'face + :group 'matching + :version "24.4") + (defcustom occur-excluded-properties '(read-only invisible intangible field mouse-face help-echo local-map keymap yank-handler follow-link) @@ -1334,7 +1342,9 @@ (defun occur-1 (regexp nlines bufs &opti (isearch-no-upper-case-p regexp t) case-fold-search) list-matching-lines-buffer-name-face - nil list-matching-lines-face + (if (face-differs-from-default-p list-matching-lines-prefix-face) + list-matching-lines-prefix-face) + list-matching-lines-face (not (eq occur-excluded-properties t)))))) (let* ((bufcount (length active-bufs)) (diff (- (length bufs) bufcount))) @@ -1423,7 +1433,7 @@ (defun occur-engine (regexp buffers out- (apply #'propertize (format "%7d:" lines) (append (when prefix-face - `(font-lock-face prefix-face)) + `(font-lock-face ,prefix-face)) `(occur-prefix t mouse-face (highlight) ;; Allow insertion of text at ;; the end of the prefix (for @@ -1447,7 +1457,9 @@ (defun occur-engine (regexp buffers out- ;; of multi-line matches. (replace-regexp-in-string "\n" - "\n :" + (if prefix-face + (propertize "\n :" 'font-lock-face prefix-face) + "\n :") match-str) ;; Add marker at eol, but no mouse props. (propertize "\n" 'occur-target marker))) @@ -1458,7 +1470,8 @@ (defun occur-engine (regexp buffers out- ;; The complex multi-line display style. (setq ret (occur-context-lines out-line nlines keep-props begpt endpt - lines prev-lines prev-after-lines)) + lines prev-lines prev-after-lines + prefix-face)) ;; Set first elem of the returned list to `data', ;; and the second elem to `prev-after-lines'. (setq prev-after-lines (nth 1 ret)) @@ -1482,7 +1495,7 @@ (defun occur-engine (regexp buffers out- (when prev-after-lines (with-current-buffer out-buf (insert (apply #'concat (occur-engine-add-prefix - prev-after-lines))))))) + prev-after-lines prefix-face))))))) (when (not (zerop matches)) ;; is the count zero? (setq globalcount (+ globalcount matches)) (with-current-buffer out-buf @@ -1537,10 +1550,13 @@ (defun occur-engine-line (beg end &optio str) (buffer-substring-no-properties beg end))) -(defun occur-engine-add-prefix (lines) +(defun occur-engine-add-prefix (lines &optional prefix-face) (mapcar #'(lambda (line) - (concat " :" line "\n")) + (concat (if prefix-face + (propertize " :" 'font-lock-face prefix-face) + " :") + line "\n")) lines)) (defun occur-accumulate-lines (count &optional keep-props pt) @@ -1569,7 +1585,8 @@ (defun occur-accumulate-lines (count &op ;; Generate a list of lines, add prefixes to all but OUT-LINE, ;; then concatenate them all together. (defun occur-context-lines (out-line nlines keep-props begpt endpt - lines prev-lines prev-after-lines) + lines prev-lines prev-after-lines + &optional prefix-face) ;; Find after- and before-context lines of the current match. (let ((before-lines (nreverse (cdr (occur-accumulate-lines @@ -1609,10 +1626,13 @@ (defun occur-context-lines (out-line nli ;; Return a list where the first element is the output line. (apply #'concat (append - (and prev-after-lines - (occur-engine-add-prefix prev-after-lines)) - (and separator (list separator)) - (occur-engine-add-prefix before-lines) + (if prev-after-lines + (occur-engine-add-prefix prev-after-lines prefix-face)) + (if separator + (list (if prefix-face + (propertize separator 'font-lock-face prefix-face) + separator))) + (occur-engine-add-prefix before-lines prefix-face) (list out-line))) ;; And the second element is the list of context after-lines. (if (> nlines 0) after-lines)))) From debbugs-submit-bounces@debbugs.gnu.org Sun Mar 24 18:00:44 2013 Received: (at 14017) by debbugs.gnu.org; 24 Mar 2013 22:00:44 +0000 Received: from localhost ([127.0.0.1]:43763 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UJsy2-0000eJ-Vp for submit@debbugs.gnu.org; Sun, 24 Mar 2013 18:00:44 -0400 Received: from ps18281.dreamhost.com ([69.163.218.105]:43333 helo=ps18281.dreamhostps.com) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UJsxz-0000e8-9K for 14017@debbugs.gnu.org; Sun, 24 Mar 2013 18:00:41 -0400 Received: from localhost (ps18281.dreamhostps.com [69.163.218.105]) by ps18281.dreamhostps.com (Postfix) with ESMTP id 44459258B9E91C for <14017@debbugs.gnu.org>; Sun, 24 Mar 2013 14:58:11 -0700 (PDT) From: Juri Linkov To: 14017@debbugs.gnu.org Subject: Re: bug#14017: Highlight prefix line numbers in occur Organization: JURTA References: <871ub8idk6.fsf@mail.jurta.org> Date: Sun, 24 Mar 2013 23:54:01 +0200 In-Reply-To: <871ub8idk6.fsf@mail.jurta.org> (Juri Linkov's message of "Fri, 22 Mar 2013 00:38:17 +0200") Message-ID: <87zjxsihvq.fsf@mail.jurta.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (x86_64-pc-linux-gnu) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -1.9 (-) X-Debbugs-Envelope-To: 14017 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -1.9 (-) > Currently the `prefix-face' arg of `occur-engine' is unused. > Its caller `occur-1' just sends nil to `occur-engine'. > This is the reason why a bug in its usage in `occur-engine' > remained undiscovered for a long time. > > To take it into use I propose to add a new face option > `list-matching-lines-prefix-face' to accompany the existing > `list-matching-lines-buffer-name-face' and `list-matching-lines-face'. This is installed now. Another problem I found with the line numbers in `occur' is that the number of matches it reports in the header line is wrong. If there are more than one match on a line, the total number of matches is more than the total number of matching lines currently displayed in the header line. So I propose to change the format of the occur header line from: 2 matches for "is" in buffer: *scratch* to: 4 matches in 2 lines for "is" in buffer: *scratch* I found that the exact number of matches (as opposed to the number of matching lines) often is necessary to know beforehand how many times it requires to type C-s to visit all matches or how many times to type y/n to replace all matches in the buffer. === modified file 'lisp/replace.el' --- lisp/replace.el 2013-02-25 20:57:44 +0000 +++ lisp/replace.el 2013-03-24 21:48:28 +0000 @@ -1347,16 +1347,18 @@ (defun occur-1 (regexp nlines bufs &opti (defun occur-engine (regexp buffers out-buf nlines case-fold title-face prefix-face match-face keep-props) (with-current-buffer out-buf - (let ((globalcount 0) + (let ((global-lines 0) ;; total count of matching lines + (global-matches 0) ;; total count of matches (coding nil) (case-fold-search case-fold)) ;; Map over all the buffers (dolist (buf buffers) (when (buffer-live-p buf) - (let ((matches 0) ;; count of matched lines - (lines 1) ;; line count - (prev-after-lines nil) ;; context lines of prev match - (prev-lines nil) ;; line number of prev match endpt + (let ((lines 0) ;; count of matching lines + (matches 0) ;; count of matches + (curr-line 1) ;; line count + (prev-line nil) ;; line number of prev match endpt + (prev-after-lines nil) ;; context lines of prev match (matchbeg 0) (origpt nil) (begpt nil) @@ -1376,8 +1378,9 @@ (defun occur-engine (regexp buffers out- (while (not (eobp)) (setq origpt (point)) (when (setq endpt (re-search-forward regexp nil t)) - (setq matches (1+ matches)) ;; increment match count + (setq lines (1+ lines)) ;; increment matching lines count (setq matchbeg (match-beginning 0)) ;; Get beginning of first match line and end of the last. (save-excursion @@ -1386,7 +1389,7 @@ (defun occur-engine (regexp buffers out- (goto-char endpt) (setq endpt (line-end-position))) ;; Sum line numbers up to the first match line. - (setq lines (+ lines (count-lines origpt begpt))) + (setq curr-line (+ curr-line (count-lines origpt begpt))) (setq marker (make-marker)) (set-marker marker matchbeg) (setq curstring (occur-engine-line begpt endpt keep-props)) @@ -1395,6 +1398,7 @@ (defun occur-engine (regexp buffers out- (start 0)) (while (and (< start len) (string-match regexp curstring start)) + (setq matches (1+ matches)) (add-text-properties (match-beginning 0) (match-end 0) (append @@ -1408,7 +1412,7 @@ (defun occur-engine (regexp buffers out- ;; Generate the string to insert for this match (let* ((match-prefix ;; Using 7 digits aligns tabs properly. - (apply #'propertize (format "%7d:" lines) + (apply #'propertize (format "%7d:" curr-line) (append (when prefix-face `(font-lock-face prefix-face)) @@ -1446,7 +1450,7 @@ (defun occur-engine (regexp buffers out- ;; The complex multi-line display style. (setq ret (occur-context-lines out-line nlines keep-props begpt endpt - lines prev-lines prev-after-lines)) + curr-line prev-line prev-after-lines)) ;; Set first elem of the returned list to `data', ;; and the second elem to `prev-after-lines'. (setq prev-after-lines (nth 1 ret)) @@ -1458,28 +1462,30 @@ (defun occur-engine (regexp buffers out- (if endpt (progn ;; Sum line numbers between first and last match lines. - (setq lines (+ lines (count-lines begpt endpt) - ;; Add 1 for empty last match line since - ;; count-lines returns 1 line less. - (if (and (bolp) (eolp)) 1 0))) + (setq curr-line (+ curr-line (count-lines begpt endpt) + ;; Add 1 for empty last match line since + ;; count-lines returns 1 line less. + (if (and (bolp) (eolp)) 1 0))) ;; On to the next match... (forward-line 1)) (goto-char (point-max))) - (setq prev-lines (1- lines))) + (setq prev-line (1- curr-line))) ;; Flush remaining context after-lines. (when prev-after-lines (with-current-buffer out-buf (insert (apply #'concat (occur-engine-add-prefix prev-after-lines))))))) - (when (not (zerop matches)) ;; is the count zero? - (setq globalcount (+ globalcount matches)) + (when (not (zerop lines)) ;; is the count zero? + (setq global-lines (+ global-lines lines) + global-matches (+ global-matches matches)) (with-current-buffer out-buf (goto-char headerpt) (let ((beg (point)) end) (insert (propertize - (format "%d match%s%s in buffer: %s\n" + (format "%d match%s in %d line%s%s in buffer: %s\n" matches (if (= matches 1) "" "es") + lines (if (= lines 1) "" "s") ;; Don't display regexp for multi-buffer. (if (> (length buffers) 1) "" (format " for \"%s\"" @@ -1494,12 +1500,13 @@ (defun occur-engine (regexp buffers out- `(occur-title ,buf)))) (goto-char (point-min))))))) ;; Display total match count and regexp for multi-buffer. - (when (and (not (zerop globalcount)) (> (length buffers) 1)) + (when (and (not (zerop global-lines)) (> (length buffers) 1)) (goto-char (point-min)) (let ((beg (point)) end) - (insert (format "%d match%s total for \"%s\":\n" - globalcount (if (= globalcount 1) "" "es") + (insert (format "%d match%s in %d line%s total for \"%s\":\n" + global-matches (if (= global-matches 1) "" "es") + global-lines (if (= global-lines 1) "" "s") (query-replace-descr regexp))) (setq end (point)) (add-text-properties beg end (when title-face @@ -1510,8 +1517,8 @@ (defun occur-engine (regexp buffers out- ;; that locally binds it. Let's use it also for the output ;; buffer. (set-buffer-file-coding-system coding)) - ;; Return the number of matches - globalcount))) + ;; Return the number of matching lines + global-lines))) (defun occur-engine-line (beg end &optional keep-props) (if (and keep-props (if (boundp 'jit-lock-mode) jit-lock-mode) @@ -1551,13 +1558,13 @@ (defun occur-accumulate-lines (count &op ;; Generate context display for occur. ;; OUT-LINE is the line where the match is. ;; NLINES and KEEP-PROPS are args to occur-engine. -;; LINES is line count of the current match, -;; PREV-LINES is line count of the previous match, +;; CURR-LINE is line count of the current match, +;; PREV-LINE is line count of the previous match, ;; PREV-AFTER-LINES is a list of after-context lines of the previous match. ;; Generate a list of lines, add prefixes to all but OUT-LINE, ;; then concatenate them all together. (defun occur-context-lines (out-line nlines keep-props begpt endpt - lines prev-lines prev-after-lines) + curr-line prev-line prev-after-lines) ;; Find after- and before-context lines of the current match. (let ((before-lines (nreverse (cdr (occur-accumulate-lines @@ -1572,22 +1579,22 @@ (defun occur-context-lines (out-line nli (when prev-after-lines ;; Don't overlap prev after-lines with current before-lines. - (if (>= (+ prev-lines (length prev-after-lines)) - (- lines (length before-lines))) + (if (>= (+ prev-line (length prev-after-lines)) + (- curr-line (length before-lines))) (setq prev-after-lines (butlast prev-after-lines (- (length prev-after-lines) - (- lines prev-lines (length before-lines) 1)))) + (- curr-line prev-line (length before-lines) 1)))) ;; Separate non-overlapping context lines with a dashed line. (setq separator "-------\n"))) - (when prev-lines + (when prev-line ;; Don't overlap current before-lines with previous match line. - (if (<= (- lines (length before-lines)) - prev-lines) + (if (<= (- curr-line (length before-lines)) + prev-line) (setq before-lines (nthcdr (- (length before-lines) - (- lines prev-lines 1)) + (- curr-line prev-line 1)) before-lines)) ;; Separate non-overlapping before-context lines. (unless (> nlines 0) From debbugs-submit-bounces@debbugs.gnu.org Wed May 29 19:52:58 2013 Received: (at 14017) by debbugs.gnu.org; 29 May 2013 23:52:58 +0000 Received: from localhost ([127.0.0.1]:40993 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UhqAs-00047j-1I for submit@debbugs.gnu.org; Wed, 29 May 2013 19:52:58 -0400 Received: from ps18281.dreamhost.com ([69.163.218.105]:47175 helo=ps18281.dreamhostps.com) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UhqAq-00047c-6K for 14017@debbugs.gnu.org; Wed, 29 May 2013 19:52:57 -0400 Received: from localhost (ps18281.dreamhostps.com [69.163.218.105]) by ps18281.dreamhostps.com (Postfix) with ESMTP id 46AC5258B9E91C for <14017@debbugs.gnu.org>; Wed, 29 May 2013 16:51:28 -0700 (PDT) From: Juri Linkov To: 14017@debbugs.gnu.org Subject: Re: bug#14017: Highlight prefix line numbers in occur Organization: JURTA References: <871ub8idk6.fsf@mail.jurta.org> <87zjxsihvq.fsf@mail.jurta.org> Date: Thu, 30 May 2013 02:47:51 +0300 In-Reply-To: <87zjxsihvq.fsf@mail.jurta.org> (Juri Linkov's message of "Sun, 24 Mar 2013 23:54:01 +0200") Message-ID: <87txlljql4.fsf@mail.jurta.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (x86_64-pc-linux-gnu) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.8 (/) X-Debbugs-Envelope-To: 14017 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -1.9 (-) > Another problem I found with the line numbers in `occur' is that > the number of matches it reports in the header line is wrong. > If there are more than one match on a line, the total number > of matches is more than the total number of matching lines > currently displayed in the header line. So I propose > to change the format of the occur header line from: > > 2 matches for "is" in buffer: *scratch* > > to: > > 4 matches in 2 lines for "is" in buffer: *scratch* > > I found that the exact number of matches (as opposed to > the number of matching lines) often is necessary to know beforehand > how many times it requires to type C-s to visit all matches > or how many times to type y/n to replace all matches in the buffer. This is installed now. I propose to use a similar message for grep output as well, i.e. to change the current format: Grep finished with no matches found at Tue Jul 19 15:43:12 Grep finished (matches found) at Thu Jul 21 15:02:15 to: Grep finished with no matches found at Tue Jul 19 15:43:12 Grep finished with 42 matches found at Thu Jul 21 15:02:15 or if grep can count only matching lines then: Grep finished with 42 matching lines at Thu Jul 21 15:02:15 otherwise: Grep finished with 42 matches in 5 lines at Thu Jul 21 15:02:15 From debbugs-submit-bounces@debbugs.gnu.org Mon Feb 12 16:40:21 2018 Received: (at control) by debbugs.gnu.org; 12 Feb 2018 21:40:21 +0000 Received: from localhost ([127.0.0.1]:40133 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1elLpk-0001Vc-TG for submit@debbugs.gnu.org; Mon, 12 Feb 2018 16:40:21 -0500 Received: from sub3.mail.dreamhost.com ([69.163.253.7]:38099 helo=homiemail-a22.g.dreamhost.com) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1elLpg-0001VH-U3; Mon, 12 Feb 2018 16:40:17 -0500 Received: from homiemail-a22.g.dreamhost.com (localhost [127.0.0.1]) by homiemail-a22.g.dreamhost.com (Postfix) with ESMTP id F091911406A; Mon, 12 Feb 2018 13:40:15 -0800 (PST) Received: from localhost.linkov.net (m91-129-100-74.cust.tele2.ee [91.129.100.74]) (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits)) (No client certificate requested) (Authenticated sender: jurta@jurta.org) by homiemail-a22.g.dreamhost.com (Postfix) with ESMTPSA id DBB4D114068; Mon, 12 Feb 2018 13:40:14 -0800 (PST) From: Juri Linkov To: Eli Zaretskii Subject: Re: bug#30397: Random numbers in grep mode-line Organization: LINKOV.NET References: <87tvurtbek.fsf@mail.linkov.net> <87zi4gpm2r.fsf@mail.linkov.net> <87h8qnb3yi.fsf@mail.linkov.net> <83tvumyzuo.fsf@gnu.org> Date: Mon, 12 Feb 2018 23:39:42 +0200 In-Reply-To: <83tvumyzuo.fsf@gnu.org> (Eli Zaretskii's message of "Mon, 12 Feb 2018 17:47:11 +0200") Message-ID: <87k1vhvqe9.fsf@mail.linkov.net> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (x86_64-pc-linux-gnu) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: control Cc: 30397@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.0 (/) tags 30397 fixed close 30397 26.1 tags 14017 fixed close 14017 26.1 tags 13417 wontfix close 13417 quit >> diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el >> index 9ce4ff8..23de8aa 100644 >> --- a/lisp/progmodes/grep.el >> +++ b/lisp/progmodes/grep.el > > Thanks, this LGTM for the emacs-26 branch. Pushed to the emacs-26 branch. From unknown Sat Aug 16 20:55:55 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Tue, 13 Mar 2018 11:24:04 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator