From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andrew Helsley Newsgroups: gmane.emacs.devel Subject: [PATCH] isearch: Propertize error messages Date: Sun, 21 Nov 2010 23:54:11 -0800 (PST) Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: TEXT/PLAIN; format=flowed; charset=US-ASCII X-Trace: dough.gmane.org 1290412474 8915 80.91.229.12 (22 Nov 2010 07:54:34 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 22 Nov 2010 07:54:34 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Nov 22 08:54:31 2010 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PKREM-0002uQ-GX for ged-emacs-devel@m.gmane.org; Mon, 22 Nov 2010 08:54:30 +0100 Original-Received: from localhost ([127.0.0.1]:35403 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PKREL-0005TR-Vu for ged-emacs-devel@m.gmane.org; Mon, 22 Nov 2010 02:54:30 -0500 Original-Received: from [140.186.70.92] (port=55769 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PKREC-0005SW-KA for emacs-devel@gnu.org; Mon, 22 Nov 2010 02:54:22 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PKREB-0006x3-D1 for emacs-devel@gnu.org; Mon, 22 Nov 2010 02:54:20 -0500 Original-Received: from mail.cs.ucr.edu ([138.23.169.83]:40182) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PKREB-0006wf-3o for emacs-devel@gnu.org; Mon, 22 Nov 2010 02:54:19 -0500 Original-Received: from mail.cs.ucr.edu (localhost.localdomain [127.0.0.1]) by mail.cs.ucr.edu (Postfix) with ESMTP id 812676287A1 for ; Sun, 21 Nov 2010 23:54:16 -0800 (PST) Original-Received: by mail.cs.ucr.edu (Postfix, from userid 202) id 7602662878C; Sun, 21 Nov 2010 23:54:16 -0800 (PST) Original-Received: from eon.cs.ucr.edu (eon.cs.ucr.edu [138.23.169.9]) by mail.cs.ucr.edu (Postfix) with ESMTP id E641262878C for ; Sun, 21 Nov 2010 23:54:11 -0800 (PST) User-Agent: Alpine 2.00 (LRH 1167 2008-08-23) X-Virus-Scanned: ClamAV using ClamSMTP X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:132993 Archived-At: This patches enhances the visual contrast between the search expression and any error messages that show at the end of the line in `isearch-mode'. -------- regards, Andrew Helsley diff -r -c emacs-1/lisp/ChangeLog emacs-2/lisp/ChangeLog *** emacs-1/lisp/ChangeLog 2010-11-21 23:17:59.000000000 -0800 --- emacs-2/lisp/ChangeLog 2010-11-21 23:17:33.000000000 -0800 *************** *** 1,3 **** --- 1,6 ---- + 2010-11-21 Andrew Helsley + * isearch.el (isearch-message-suffix): Propertize error messages. + 2010-11-21 Michael Albinus * files.el (backup-by-copying-when-mismatch): The default value is diff -r -c emacs-1/lisp/isearch.el emacs-2/lisp/isearch.el *** emacs-1/lisp/isearch.el 2010-11-21 22:57:58.000000000 -0800 --- emacs-2/lisp/isearch.el 2010-11-21 23:11:58.000000000 -0800 *************** *** 257,262 **** --- 257,268 ---- :version "23.1" :group 'isearch) + (defface isearch-error-message + '((t (:inherit font-lock-warning-face))) + "Face for highlighting error messages in Isearch echo area." + :group 'isearch + :group 'basic-faces) + (defcustom isearch-lazy-highlight t "Controls the lazy-highlighting during incremental search. When non-nil, all text in the buffer matching the current search *************** *** 2188,2194 **** (defun isearch-message-suffix (&optional c-q-hack ellipsis) (concat (if c-q-hack "^Q" "") (if isearch-error ! (concat " [" isearch-error "]") "") (or isearch-message-suffix-add ""))) --- 2194,2201 ---- (defun isearch-message-suffix (&optional c-q-hack ellipsis) (concat (if c-q-hack "^Q" "") (if isearch-error ! (propertize (concat " [" isearch-error "]") ! 'face 'isearch-error-message) "") (or isearch-message-suffix-add "")))