From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: "Chong Yidong" Newsgroups: gmane.emacs.devel Subject: tweak to apropos-command display Date: Mon, 21 Feb 2005 09:35:12 -0500 (EST) Message-ID: <1814.220.255.78.196.1108996512.squirrel@220.255.78.196> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain;charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: sea.gmane.org 1108996712 8033 80.91.229.2 (21 Feb 2005 14:38:32 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 21 Feb 2005 14:38:32 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Feb 21 15:38:32 2005 Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1D3Ehc-0005yd-HA for ged-emacs-devel@m.gmane.org; Mon, 21 Feb 2005 15:38:24 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1D3Etr-0006Fz-So for ged-emacs-devel@m.gmane.org; Mon, 21 Feb 2005 09:51:03 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1D3EtD-000660-9F for emacs-devel@gnu.org; Mon, 21 Feb 2005 09:50:24 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1D3Et3-0005ye-L0 for emacs-devel@gnu.org; Mon, 21 Feb 2005 09:50:14 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1D3Et3-0005yH-Gh for emacs-devel@gnu.org; Mon, 21 Feb 2005 09:50:13 -0500 Original-Received: from [64.21.80.18] (helo=shark.dnsvelocity.com) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.34) id 1D3Eef-0000Yt-1v for emacs-devel@gnu.org; Mon, 21 Feb 2005 09:35:21 -0500 Original-Received: from stupidch by shark.dnsvelocity.com with local (Exim 4.44) id 1D3EeW-0004u7-R0 for emacs-devel@gnu.org; Mon, 21 Feb 2005 09:35:12 -0500 Original-Received: from 220.255.78.196 ([220.255.78.196]) (SquirrelMail authenticated user cyd@stupidchicken.com); by www.stupidchicken.com with HTTP; Mon, 21 Feb 2005 09:35:12 -0500 (EST) Original-To: emacs-devel@gnu.org User-Agent: SquirrelMail/1.4.3a X-Mailer: SquirrelMail/1.4.3a X-Priority: 3 (Normal) Importance: Normal X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - shark.dnsvelocity.com X-AntiAbuse: Original Domain - gnu.org X-AntiAbuse: Originator/Caller UID/GID - [32675 33085] / [47 12] X-AntiAbuse: Sender Address Domain - stupidchicken.com X-Source: /usr/local/cpanel/3rdparty/bin/php X-Source-Args: /usr/local/cpanel/3rdparty/bin/php /usr/local/cpanel/base/3rdparty/squirrelmail/src/compose.php X-Source-Dir: :/base/3rdparty/squirrelmail/src 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 X-MailScanner-To: ged-emacs-devel@m.gmane.org Xref: main.gmane.org gmane.emacs.devel:33671 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:33671 When apropos-command is displaying the keybindings associated with a command, it often runs past the edge of the screen (esp. when displaying M-x COMMAND RET) This makes the output very difficult to read. A simple way to deal with this problem is to put the keybindings on their own line. Opinions? *** apropos.el~ Mon Feb 21 21:59:35 2005 --- apropos.el Mon Feb 21 22:26:25 2005 *************** *** 824,832 **** (if apropos-sort-by-scores (insert " (" (number-to-string (cadr apropos-item)) ") ")) ;; Calculate key-bindings if we want them. ! (and do-keys ! (commandp symbol) ! (indent-to 30 1) (if (let ((keys (save-excursion (set-buffer old-buffer) --- 824,832 ---- (if apropos-sort-by-scores (insert " (" (number-to-string (cadr apropos-item)) ") ")) ;; Calculate key-bindings if we want them. ! (when (and do-keys ! (commandp symbol)) ! (insert "\n ") (if (let ((keys (save-excursion (set-buffer old-buffer)