From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Tak Ota Newsgroups: gmane.emacs.devel Subject: compilation-highlight-duration Date: Fri, 30 Apr 2004 22:29:01 -0700 (PDT) Organization: Sony Electronics Inc. Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <20040430.222901.226022286.Takaaki.Ota@am.sony.com> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1083390165 18082 80.91.224.253 (1 May 2004 05:42:45 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 1 May 2004 05:42:45 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Sat May 01 07:42:34 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BJnGk-0004g9-00 for ; Sat, 01 May 2004 07:42:34 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1BJnGk-0004OS-01 for ; Sat, 01 May 2004 07:42:34 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1BJnBC-0000gI-ED for emacs-devel@quimby.gnus.org; Sat, 01 May 2004 01:36:50 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.30) id 1BJn57-00007E-70 for emacs-devel@gnu.org; Sat, 01 May 2004 01:30:33 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.30) id 1BJn4D-0006sf-H1 for emacs-devel@gnu.org; Sat, 01 May 2004 01:30:12 -0400 Original-Received: from [160.33.82.68] (helo=mail1.fw-sj.sony.com) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.30) id 1BJn4A-0006qh-Il for emacs-devel@gnu.org; Sat, 01 May 2004 01:29:34 -0400 Original-Received: from mail3.sjc.in.sel.sony.com (mail3.sjc.in.sel.sony.com [43.134.1.211]) by mail1.fw-sj.sony.com (8.12.11/8.12.11) with ESMTP id i415TH2j009401 for ; Sat, 1 May 2004 05:29:22 GMT Original-Received: from localhost ([43.134.220.10]) by mail3.sjc.in.sel.sony.com (8.12.11/8.12.11) with ESMTP id i415T2wS011263 for ; Sat, 1 May 2004 05:29:02 GMT Original-To: emacs-devel@gnu.org X-Telephone: +1-858-942-3239 X-Fax------: +1-858-942-9142 X-SnailMail: 16450 West Bernardo Drive MZ7205, San Diego, CA 92127-1804 X-Mailer: Mew-4.0.65 on Emacs-21.3.50.1 (i386-msvc-nt5.1.2600) of 2004-04-28 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:22480 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:22480 New compile.el is very nice and I particularly like the highlight feature. However, the hard coded duration of 0.5 second could be too short or too long depending on the clock speed of the users' brain. May I suggest making it configurable? -Tak *** ../../pure/emacs-21.3.50/lisp/progmodes/compile.el Thu Apr 29 21:09:13 2004 --- progmodes/compile.el Fri Apr 30 22:10:51 2004 *************** *** 370,375 **** --- 370,379 ---- (defvar compilation-highlight-overlay nil "Overlay used to temporarily highlight compilation matches.") + (defvar compilation-highlight-duration 0.5 + "Duration in seconds for highlighting temporarily. + Highlighting continues for the specified time in seconds or until input is available.") + (defcustom compilation-error-screen-columns t "*If non-nil, column numbers in error messages are screen columns. Otherwise they are interpreted as character positions, with *************** *** 1545,1551 **** (goto-char (match-beginning 0)) (move-overlay compilation-highlight-overlay (match-beginning 0) (match-end 0))) (move-overlay compilation-highlight-overlay (point) end)) ! (sit-for 0.5) (delete-overlay compilation-highlight-overlay))))))) --- 1549,1555 ---- (goto-char (match-beginning 0)) (move-overlay compilation-highlight-overlay (match-beginning 0) (match-end 0))) (move-overlay compilation-highlight-overlay (point) end)) ! (sit-for compilation-highlight-duration) (delete-overlay compilation-highlight-overlay))))))) *** ../../pure/emacs-21.3.50/lisp/ChangeLog Fri Apr 30 21:20:12 2004 --- ChangeLog Fri Apr 30 22:21:23 2004 *************** *** 1,3 **** --- 1,9 ---- + 2004-04-30 Takaaki Ota + + * progmodes/compile.el (compilation-highlight-duration): New + variable. + (compilation-goto-locus): Use it to `sit-for'. + 2004-04-30 Juri Linkov * cus-edit.el (custom-mode-map):