From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Lennart Borgman Newsgroups: gmane.emacs.devel Subject: Patch: Replacing the style of the More/Hide Rest button in Customize Date: Sun, 19 Feb 2006 00:17:34 +0100 Message-ID: <43F7AB0E.1050407@student.lu.se> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------040100000706060300040503" X-Trace: sea.gmane.org 1140305176 16568 80.91.229.2 (18 Feb 2006 23:26:16 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 18 Feb 2006 23:26:16 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Feb 19 00:26:16 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FAbSu-00037x-7M for ged-emacs-devel@m.gmane.org; Sun, 19 Feb 2006 00:26:12 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FAbSt-0001BA-Mj for ged-emacs-devel@m.gmane.org; Sat, 18 Feb 2006 18:26:11 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1FAbKf-0005wy-1F for emacs-devel@gnu.org; Sat, 18 Feb 2006 18:17:41 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1FAbKb-0005uk-VK for emacs-devel@gnu.org; Sat, 18 Feb 2006 18:17:38 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FAbKa-0005uC-6o for emacs-devel@gnu.org; Sat, 18 Feb 2006 18:17:36 -0500 Original-Received: from [81.228.8.83] (helo=pne-smtpout1-sn2.hy.skanova.net) by monty-python.gnu.org with esmtp (Exim 4.52) id 1FAbQG-00078J-2u for emacs-devel@gnu.org; Sat, 18 Feb 2006 18:23:28 -0500 Original-Received: from [192.168.123.121] (83.249.218.244) by pne-smtpout1-sn2.hy.skanova.net (7.2.070) id 43EC8670001FE070 for emacs-devel@gnu.org; Sun, 19 Feb 2006 00:17:35 +0100 User-Agent: Thunderbird 1.5 (Windows/20051201) Original-To: Emacs Devel 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:50728 Archived-At: This is a multi-part message in MIME format. --------------040100000706060300040503 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit The attached small patch makes the More/Hide Rest button in customize look more like a link, which in my opinion is more common (web pages). I have sent something like it before, but we never got any further because of problems with my papers at that time. --------------040100000706060300040503 Content-Type: text/plain; name="wid-edit-more-hide.patch" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="wid-edit-more-hide.patch" Index: lisp/wid-edit.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/wid-edit.el,v retrieving revision 1.166 diff -c -r1.166 wid-edit.el *** lisp/wid-edit.el 16 Feb 2006 15:58:32 -0000 1.166 --- lisp/wid-edit.el 18 Feb 2006 23:08:34 -0000 *************** *** 124,129 **** --- 124,136 ---- :type 'face :group 'widget-faces) + (defface widget-link-face + `((((class color) (background light)) (:foreground "blue" :underline t)) + (((class color) (background dark)) (:foreground "cyan" :underline t))) + "Face used to highlight attributes that are links." + :group 'custom-faces) + + ;; TTY gets special definitions here and in the next defface, because ;; the gray colors defined for other displays cause black text on a black ;; background, at least on light-background TTYs. *************** *** 2917,2924 **** (widget-create-child-and-convert widget 'visibility :help-echo "Show or hide rest of the documentation." ! :on "Hide Rest" ! :off "More" :always-active t :action 'widget-parent-action shown)) --- 2924,2934 ---- (widget-create-child-and-convert widget 'visibility :help-echo "Show or hide rest of the documentation." ! :on "<<" ! :off "More..." ! :button-face 'widget-link-face ! :button-prefix "" ! :button-suffix "" :always-active t :action 'widget-parent-action shown)) --------------040100000706060300040503 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 --------------040100000706060300040503--