From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Daniel Brockman Newsgroups: gmane.emacs.devel Subject: defcustoms for `line-spacing' and `indicate-buffer-boundaries' Date: Sun, 12 Jun 2005 08:48:11 +0200 Message-ID: <87psusvzo4.fsf@wigwam.deepwood.net> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1118559342 3506 80.91.229.2 (12 Jun 2005 06:55:42 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 12 Jun 2005 06:55:42 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Jun 12 08:55:41 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DhMNY-0002Ie-Tc for ged-emacs-devel@m.gmane.org; Sun, 12 Jun 2005 08:55:33 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DhMS6-0004I5-2x for ged-emacs-devel@m.gmane.org; Sun, 12 Jun 2005 03:00:14 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DhMQb-0003wQ-MY for emacs-devel@gnu.org; Sun, 12 Jun 2005 02:58:41 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DhMQV-0003u7-Ni for emacs-devel@gnu.org; Sun, 12 Jun 2005 02:58:38 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DhMQV-0003u4-K5 for emacs-devel@gnu.org; Sun, 12 Jun 2005 02:58:35 -0400 Original-Received: from [80.91.229.2] (helo=ciao.gmane.org) by monty-python.gnu.org with esmtp (TLS-1.0:RSA_AES_128_CBC_SHA:16) (Exim 4.34) id 1DhMDB-0001Zd-Pf for emacs-devel@gnu.org; Sun, 12 Jun 2005 02:44:50 -0400 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1DhM7q-0001UH-Lq for emacs-devel@gnu.org; Sun, 12 Jun 2005 08:39:18 +0200 Original-Received: from c-4fb670d5.028-10-67766c2.cust.bredbandsbolaget.se ([213.112.182.79]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 12 Jun 2005 08:39:18 +0200 Original-Received: from daniel by c-4fb670d5.028-10-67766c2.cust.bredbandsbolaget.se with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 12 Jun 2005 08:39:18 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-To: emacs-devel@gnu.org Original-Lines: 94 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: c-4fb670d5.028-10-67766c2.cust.bredbandsbolaget.se X-Face: :&2UWGm>e24)ip~'K@iOsA&JT3JX*v@1-#L)=dUb825\Fwg#`^N!Y*g-TqdS AevzjFJe96f@V'ya8${57/T'"mTd`1o{TGYhHnVucLq!D$r2O{IN)7>.0op_Y`%r;/Q +(]`3F-t10N7NF\.Mm0q}p1:%iqTi:5]1E]rDF)R$9.!,Eu'9K':y9^U3F8UCS1M+A$ 8[[[WT^`$P[vu>P+8]aQMh9giu&fPCqLW2FSsGs User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) Cancel-Lock: sha1:YearONT6yq42mt79E3r1tbL6cik= 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:38617 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:38617 --=-=-= How about the following patch to make `line-spacing' and `indicate-buffer-boundaries' customizable? I don't understand why this part is necessary, :value ((t . nil)) but if I leave it out, choosing ``Manual configuration'' in the Customize buffer will show the value as ``invalid ((nil))'' and won't let me add anything to the alist. --=-=-= Content-Type: text/x-patch Content-Disposition: inline *** cus-start.el 16 Feb 2005 10:37:20 +0100 1.68 --- cus-start.el 12 Jun 2005 08:44:47 +0200 *************** *** 57,77 **** ;; buffer.c (mode-line-format modeline sexp) ;Hard to do right. (default-major-mode internal function) - (enable-multibyte-characters mule boolean) (case-fold-search matching boolean) (fill-column fill integer) (left-margin fill integer) (tab-width editing-basics integer) (ctl-arrow display boolean) (truncate-lines display boolean) (selective-display-ellipses display boolean) (indicate-empty-lines display boolean "21.1") (scroll-up-aggressively windows (choice (const :tag "off" nil) number) "21.1") (scroll-down-aggressively windows (choice (const :tag "off" nil) number) "21.1") ;; callint.c (mark-even-if-inactive editing-basics boolean) ;; callproc.c --- 57,95 ---- ;; buffer.c (mode-line-format modeline sexp) ;Hard to do right. (default-major-mode internal function) (case-fold-search matching boolean) (fill-column fill integer) (left-margin fill integer) (tab-width editing-basics integer) (ctl-arrow display boolean) + (enable-multibyte-characters mule boolean) (truncate-lines display boolean) (selective-display-ellipses display boolean) (indicate-empty-lines display boolean "21.1") + (indicate-buffer-boundaries + display + (choice (const :tag "Off" nil) + (const :tag "Everything to the left" left) + (const :tag "Everything to the right" right) + (const :tag "Angles to the left, arrows off" t) + (alist + :tag "Manual configuration" + :value ((t . nil)) + :key-type (choice (const :tag "Top angle" top) + (const :tag "Bottom angle" bottom) + (const :tag "Up arrow" up) + (const :tag "Down arrow" down) + (const :tag "Other indicators" t)) + :value-type (choice (const :tag "To the left" left) + (const :tag "To the right" right) + (const :tag "Do not show" nil))))) (scroll-up-aggressively windows (choice (const :tag "off" nil) number) "21.1") (scroll-down-aggressively windows (choice (const :tag "off" nil) number) "21.1") + (line-spacing display (choice (const :tag "none" nil) integer)) ;; callint.c (mark-even-if-inactive editing-basics boolean) ;; callproc.c --=-=-= -- Daniel Brockman ``Why fix an old bug if you can write three new ones in the same time?'' --- David Kastrup (on emacs-devel) --=-=-= 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 --=-=-=--