emacs-devel
[Top][All Lists]
Advanced

[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))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]