emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

custom-link vs custom-button face


From: martin rudalics
Subject: custom-link vs custom-button face
Date: Fri, 06 Jan 2006 10:57:12 +0100
User-agent: Mozilla Thunderbird 1.0 (Windows/20041206)

When "See also ..." and "Parent documentation" links don't reference a
manual they are displayed with `custom-button' instead of `custom-link'
face.  The tiny patch below should fix that.

*** cus-edit.el Thu Jan  5 07:44:36 2006
--- cus-edit.el Fri Jan  6 10:31:08 2006
***************
*** 2198,2204 ****
        (insert prefix))
        (insert "See also ")
        (while links
!       (push (widget-create-child-and-convert widget (car links))
              buttons)
        (setq links (cdr links))
        (cond ((null links)
--- 2198,2207 ----
        (insert prefix))
        (insert "See also ")
        (while links
!       (push (widget-create-child-and-convert
!              widget (car links)
!              :button-face 'custom-link
!              :mouse-face 'highlight)
              buttons)
        (setq links (cdr links))
        (cond ((null links)
***************
*** 2243,2249 ****
             (when links
               (insert "\nParent documentation: ")
               (while links
!                (push (widget-create-child-and-convert widget (car links))
                       buttons)
                 (setq links (cdr links))
                 (cond ((null links)
--- 2246,2255 ----
             (when links
               (insert "\nParent documentation: ")
               (while links
!                (push (widget-create-child-and-convert
!                     widget (car links)
!                     :button-face 'custom-link
!                     :mouse-face 'highlight)
                       buttons)
                 (setq links (cdr links))
                 (cond ((null links)





reply via email to

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