From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.bugs Subject: bug#14438: 24.3.50; Honor `hi-lock-auto-select-face' for non-interactive use Date: Mon, 03 Jun 2013 11:59:10 +0300 Organization: JURTA Message-ID: <87k3mba7sy.fsf@mail.jurta.org> References: <87wqqr1lyf.fsf@gmail.com> <878v36ka1g.fsf@mail.jurta.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1370250565 30651 80.91.229.3 (3 Jun 2013 09:09:25 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 3 Jun 2013 09:09:25 +0000 (UTC) Cc: 14438-done@debbugs.gnu.org To: Jambunathan K Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Jun 03 11:09:25 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1UjQlY-0003zT-K3 for geb-bug-gnu-emacs@m.gmane.org; Mon, 03 Jun 2013 11:09:24 +0200 Original-Received: from localhost ([::1]:44443 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UjQlY-0006Pp-5G for geb-bug-gnu-emacs@m.gmane.org; Mon, 03 Jun 2013 05:09:24 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:58584) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UjQlQ-0006PQ-OW for bug-gnu-emacs@gnu.org; Mon, 03 Jun 2013 05:09:21 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UjQlL-00038s-7u for bug-gnu-emacs@gnu.org; Mon, 03 Jun 2013 05:09:16 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:60123) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UjQlL-00038g-4d for bug-gnu-emacs@gnu.org; Mon, 03 Jun 2013 05:09:11 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1UjQn8-0003lP-2C for bug-gnu-emacs@gnu.org; Mon, 03 Jun 2013 05:11:02 -0400 Resent-From: Juri Linkov Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: bug-gnu-emacs@gnu.org Resent-Date: Mon, 03 Jun 2013 09:11:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: cc-closed 14438 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Mail-Followup-To: 14438@debbugs.gnu.org, juri@jurta.org, kjambunathan@gmail.com Original-Received: via spool by 14438-done@debbugs.gnu.org id=D14438.137025061314365 (code D ref 14438); Mon, 03 Jun 2013 09:11:01 +0000 Original-Received: (at 14438-done) by debbugs.gnu.org; 3 Jun 2013 09:10:13 +0000 Original-Received: from localhost ([127.0.0.1]:48478 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UjQmL-0003je-Ja for submit@debbugs.gnu.org; Mon, 03 Jun 2013 05:10:13 -0400 Original-Received: from ps18281.dreamhost.com ([69.163.218.105]:46768 helo=ps18281.dreamhostps.com) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UjQmJ-0003jT-N0 for 14438-done@debbugs.gnu.org; Mon, 03 Jun 2013 05:10:12 -0400 Original-Received: from localhost (ps18281.dreamhostps.com [69.163.218.105]) by ps18281.dreamhostps.com (Postfix) with ESMTP id 150D6258B9E91C; Mon, 3 Jun 2013 02:08:18 -0700 (PDT) In-Reply-To: <878v36ka1g.fsf@mail.jurta.org> (Juri Linkov's message of "Wed, 22 May 2013 23:57:10 +0300") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (x86_64-pc-linux-gnu) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:74772 Archived-At: >> (add-hook 'occur-mode-find-occurrence-hook >> (lambda nil (highlight-regexp >> (find-tag-default-as-regexp)))) > > You could use > > (add-hook 'occur-mode-find-occurrence-hook > (lambda nil (highlight-regexp > (find-tag-default-as-regexp) > (let ((hi-lock-auto-select-face t)) > (hi-lock-read-face-name))))) > > like I proposed to do in bug#14427 to get the next face automatically. > > BTW, what do you think about bug#14405 that adds a new defcustom > `read-regexp-defaults-function' that is more user-friendly > to customize than changing the values of several functions like > `occur-read-regexp-defaults-function' and > `hi-lock-read-regexp-defaults-function'? It seems this report can be closed since `hi-lock-auto-select-face' works as expected for interactive commands, and `hi-lock-read-face-name' can be added as the second arg of the `highlight-regexp' call when used programmatically: (add-hook 'occur-mode-find-occurrence-hook (lambda nil (highlight-regexp (find-tag-default-as-regexp) (hi-lock-read-face-name))))