[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Patch: Replacing the style of the More/Hide Rest button in Customize
From: |
Lennart Borgman |
Subject: |
Patch: Replacing the style of the More/Hide Rest button in Customize |
Date: |
Sun, 19 Feb 2006 00:17:34 +0100 |
User-agent: |
Thunderbird 1.5 (Windows/20051201) |
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.
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))
- Patch: Replacing the style of the More/Hide Rest button in Customize,
Lennart Borgman <=