From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.devel Subject: mb-depth.el patch Date: Fri, 1 Aug 2008 10:09:05 -0700 Message-ID: <001501c8f3f9$4f3133d0$0200a8c0@us.oracle.com> References: <87zlycuhrd.fsf@jurta.org> <87ir3u9r5s.fsf@jurta.org> <87myt3zk65.fsf@jurta.org><87prxyfkzn.fsf_-_@jurta.org> <87vdym3qvr.fsf_-_@jurta.org><009401c8f338$6e04b6e0$c2b22382@us.oracle.com><009501c8f33c$35e2c320$c2b22382@us.oracle.com> <001301c8f3f3$82e0c430$0200a8c0@us.oracle.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="----=_NextPart_000_0016_01C8F3BE.A2D25BD0" X-Trace: ger.gmane.org 1217610597 28899 80.91.229.12 (1 Aug 2008 17:09:57 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 1 Aug 2008 17:09:57 +0000 (UTC) Cc: 'Juri Linkov' , emacs-devel@gnu.org To: "'Juanma Barranquero'" Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Aug 01 19:10:47 2008 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.50) id 1KOy9E-0006Wk-2a for ged-emacs-devel@m.gmane.org; Fri, 01 Aug 2008 19:10:36 +0200 Original-Received: from localhost ([127.0.0.1]:36549 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KOy8I-0007Jw-RC for ged-emacs-devel@m.gmane.org; Fri, 01 Aug 2008 13:09:38 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KOy80-00072O-GR for emacs-devel@gnu.org; Fri, 01 Aug 2008 13:09:20 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KOy7z-00070z-83 for emacs-devel@gnu.org; Fri, 01 Aug 2008 13:09:19 -0400 Original-Received: from [199.232.76.173] (port=54652 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KOy7z-00070n-3B for emacs-devel@gnu.org; Fri, 01 Aug 2008 13:09:19 -0400 Original-Received: from agminet01.oracle.com ([141.146.126.228]:64915) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KOy7x-0001R2-9Y for emacs-devel@gnu.org; Fri, 01 Aug 2008 13:09:19 -0400 Original-Received: from agmgw1.us.oracle.com (agmgw1.us.oracle.com [152.68.180.212]) by agminet01.oracle.com (Switch-3.2.4/Switch-3.1.7) with ESMTP id m71H9BMV017331; Fri, 1 Aug 2008 12:09:11 -0500 Original-Received: from acsmt355.oracle.com (acsmt355.oracle.com [141.146.40.155]) by agmgw1.us.oracle.com (Switch-3.2.0/Switch-3.2.0) with ESMTP id m6VBp3mO007910; Fri, 1 Aug 2008 11:09:10 -0600 Original-Received: from inet-141-146-46-1.oracle.com by acsmt358.oracle.com with ESMTP id 11187944351217610544; Fri, 01 Aug 2008 12:09:04 -0500 Original-Received: from dradamslap1 (/141.144.73.168) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Fri, 01 Aug 2008 10:09:03 -0700 X-Mailer: Microsoft Office Outlook 11 In-Reply-To: <001301c8f3f3$82e0c430$0200a8c0@us.oracle.com> Thread-Index: Acjz05OZ0Cu2FkRsSdqJX40giRn7RAAH8BLgAADdIUA= X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3198 X-Brightmail-Tracker: AAAAAQAAAAI= X-Brightmail-Tracker: AAAAAQAAAAI= X-Whitelist: TRUE X-Whitelist: TRUE X-detected-kernel: by monty-python.gnu.org: Linux 2.4-2.6 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:101908 Archived-At: This is a multi-part message in MIME format. ------=_NextPart_000_0016_01C8F3BE.A2D25BD0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Attached is a patch for mb-depth.el that lets users customize the depth indicator (its form and face). These are currently hard-coded. See also the thread "feature request: indicator of minibuffer-recursion depth" from a year ago: http://lists.gnu.org/archive/html/emacs-devel/2007-06/msg00304.html. That thread petered out, but there was at least some agreement that users should be able to customize this in some way. ------=_NextPart_000_0016_01C8F3BE.A2D25BD0 Content-Type: application/octet-stream; name="mb-depth-2008-08-01.patch" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="mb-depth-2008-08-01.patch" diff -c -w "mb-depth-CVS-2008-08-01.el" "mb-depth.el"=0A= *** mb-depth-CVS-2008-08-01.el Fri Aug 1 08:14:50 2008=0A= --- mb-depth.el Fri Aug 1 09:48:54 2008=0A= ***************=0A= *** 30,35 ****=0A= --- 30,43 ----=0A= =0A= ;;; Code:=0A= =0A= + (defface minibuffer-depth-indicator '((t (:inherit default)))=0A= + "Face used to indicate minibuffer depth."=0A= + :group 'convenience :group 'faces)=0A= + =0A= + (defcustom minibuffer-depth-indicator-format "%d) "=0A= + "*Format string for minibuffer depth indicator."=0A= + :type 'string :group 'convenience)=0A= + =0A= (defvar minibuffer-depth-indicator-function nil=0A= "If non-nil, function to set up the minibuffer depth indicator.=0A= It is called with one argument, the minibuffer depth,=0A= ***************=0A= *** 50,56 ****=0A= (overlay-put minibuffer-depth-overlay 'before-string=0A= (if minibuffer-depth-indicator-function=0A= (funcall minibuffer-depth-indicator-function (minibuffer-depth))=0A= ! (propertize (format "[%d]" (minibuffer-depth)) 'face 'highlight)))=0A= (overlay-put minibuffer-depth-overlay 'evaporate t)))=0A= =0A= ;;;###autoload=0A= --- 58,65 ----=0A= (overlay-put minibuffer-depth-overlay 'before-string=0A= (if minibuffer-depth-indicator-function=0A= (funcall minibuffer-depth-indicator-function = (minibuffer-depth))=0A= ! (propertize (format = minibuffer-depth-indicator-format (minibuffer-depth))=0A= ! 'face 'minibuffer-depth-indicator)))=0A= (overlay-put minibuffer-depth-overlay 'evaporate t)))=0A= =0A= ;;;###autoload=0A= =0A= Diff finished at Fri Aug 01 09:49:33=0A= ------=_NextPart_000_0016_01C8F3BE.A2D25BD0--