From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Reitter Newsgroups: gmane.emacs.devel Subject: recentf mode: point at first file / highlight (patch) Date: Sat, 25 Jun 2005 11:40:49 +0100 Message-ID: <43E9980B-D229-4D1A-BFF0-DA4F7E2FECE7@gmail.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 (Apple Message framework v730) Content-Type: multipart/mixed; boundary=Apple-Mail-26--345070883 X-Trace: sea.gmane.org 1119697149 27601 80.91.229.2 (25 Jun 2005 10:59:09 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 25 Jun 2005 10:59:09 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Jun 25 12:59:06 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Dm8N9-0007py-EH for ged-emacs-devel@m.gmane.org; Sat, 25 Jun 2005 12:58:51 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Dm8UM-0000Z4-N6 for ged-emacs-devel@m.gmane.org; Sat, 25 Jun 2005 07:06:18 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Dm8PN-0007qO-3z for emacs-devel@gnu.org; Sat, 25 Jun 2005 07:01:09 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Dm8PL-0007q7-BB for emacs-devel@gnu.org; Sat, 25 Jun 2005 07:01:07 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Dm8OL-000781-IP for emacs-devel@gnu.org; Sat, 25 Jun 2005 07:00:06 -0400 Original-Received: from [64.233.184.195] (helo=wproxy.gmail.com) by monty-python.gnu.org with esmtp (Exim 4.34) id 1Dm89U-0003Gm-K4 for emacs-devel@gnu.org; Sat, 25 Jun 2005 06:44:44 -0400 Original-Received: by wproxy.gmail.com with SMTP id i3so74221wra for ; Sat, 25 Jun 2005 03:40:52 -0700 (PDT) DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com; h=received:mime-version:to:message-id:content-type:from:subject:date:x-mailer; b=tEq694B/F7cxec7M4mGiUgA1Yp9jg1CLJnVIF2usAJ2Pi19hHCFKsEktz8mnf8NFI38RSqLqhrYwPT5xmms/JkH8BLU2bbY4iMZeLjR9LRR1Q4V3mdm0ZEjDrm4v0zSnh82MuY10mTvGbrxawuF8e0LCa+9sDROj9Uwt1zwMxkk= Original-Received: by 10.54.29.24 with SMTP id c24mr2314299wrc; Sat, 25 Jun 2005 03:40:52 -0700 (PDT) Original-Received: from ?10.0.0.60? ([82.20.35.11]) by mx.gmail.com with ESMTP id g12sm7080134wra.2005.06.25.03.40.52; Sat, 25 Jun 2005 03:40:52 -0700 (PDT) Original-To: emacs-devel@gnu.org X-Mailer: Apple Mail (2.730) 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:39488 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:39488 --Apple-Mail-26--345070883 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed This patch makes recentf-open-files more comfortable: it positions the point on the line showing the first file (instead of the first line, which only contains explanations) and we turn on hl-line-mode. Please consider applying. --Apple-Mail-26--345070883 Content-Transfer-Encoding: 7bit Content-Type: application/octet-stream; x-unix-mode=0644; name="recentf-comfort.patch" Content-Disposition: attachment; filename=recentf-comfort.patch Index: recentf.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/recentf.el,v retrieving revision 1.38 diff -c -r1.38 recentf.el *** recentf.el 14 Jun 2005 12:02:42 -0000 1.38 --- recentf.el 25 Jun 2005 10:37:10 -0000 *************** *** 1112,1131 **** ;; Insert the dialog header (widget-insert "Click on a file to open it. ") (widget-insert "Click on Cancel or type \"q\" to quit.\n\n" ) ! ;; Insert the list of files as buttons ! (let ((recentf-open-files-item-shift "")) ! (mapc 'recentf-open-files-item ! (recentf-apply-menu-filter ! recentf-menu-filter ! (mapcar 'recentf-make-default-menu-element files)))) ! (widget-insert "\n") ! ;; Insert the Cancel button ! (widget-create ! 'push-button ! :notify 'recentf-cancel-dialog ! "Cancel") ! (widget-setup) ! (goto-char (point-min)))) (defun recentf-open-more-files () "Show a dialog buffer to open a recent file that is not in the menu." --- 1112,1133 ---- ;; Insert the dialog header (widget-insert "Click on a file to open it. ") (widget-insert "Click on Cancel or type \"q\" to quit.\n\n" ) ! (let ((point-start (point))) ! ;; Insert the list of files as buttons ! (let ((recentf-open-files-item-shift "")) ! (mapc 'recentf-open-files-item ! (recentf-apply-menu-filter ! recentf-menu-filter ! (mapcar 'recentf-make-default-menu-element files)))) ! (widget-insert "\n") ! ;; Insert the Cancel button ! (widget-create ! 'push-button ! :notify 'recentf-cancel-dialog ! "Cancel") ! (widget-setup) ! (goto-char point-start) ! (hl-line-mode t)))) (defun recentf-open-more-files () "Show a dialog buffer to open a recent file that is not in the menu." --Apple-Mail-26--345070883 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel --Apple-Mail-26--345070883--