Re: Problems with whole buffer Custom functions.

[Juri Linkov]

>    In the patch below I've added "link" to the docstring of `custom-mode'
>    to custom.texi, and fixed examples in custom.texi since links
>    in customization buffer don't have square brackets anymore.
>
> In latest CVS, they apparently still do (in emacs -nw -q).

Actually, I meant that links in customization buffer don't have square
brackets with my latest patch I posted on another thread.  Below I've
extracted that part into a separate patch.  I think it is inappropriate
to enclose links into square brackets.  Square brackets are a textual
representation of buttons to indicate a rectangular area around them
that looks like buttons.  OTOH, links are underlined blue and don't need
additional markup like square brackets. So I propose not to display links
in square brackets even on a tty and to update the manual:

Index: lisp/cus-edit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.280
diff -c -r1.280 cus-edit.el
*** lisp/cus-edit.el    23 Jan 2006 01:21:24 -0000      1.280
--- lisp/cus-edit.el    23 Jan 2006 01:41:57 -0000
***************
*** 4450,4458 ****
    ;; may not be optimal.
    (when custom-raised-buttons
      (set (make-local-variable 'widget-push-button-prefix) "")
!     (set (make-local-variable 'widget-push-button-suffix) "")
!     (set (make-local-variable 'widget-link-prefix) "")
!     (set (make-local-variable 'widget-link-suffix) ""))
    (add-hook 'widget-edit-functions 'custom-state-buffer-message nil t)
    (run-mode-hooks 'custom-mode-hook))
  
--- 4451,4459 ----
    ;; may not be optimal.
    (when custom-raised-buttons
      (set (make-local-variable 'widget-push-button-prefix) "")
!     (set (make-local-variable 'widget-push-button-suffix) ""))
!   (set (make-local-variable 'widget-link-prefix) "")
!   (set (make-local-variable 'widget-link-suffix) "")
    (add-hook 'widget-edit-functions 'custom-state-buffer-message nil t)
    (run-mode-hooks 'custom-mode-hook))

Index: man/custom.texi
===================================================================
RCS file: /sources/emacs/emacs/man/custom.texi,v
retrieving revision 1.105
diff -c -r1.105 custom.texi
*** man/custom.texi     23 Jan 2006 01:30:13 -0000      1.105
--- man/custom.texi     23 Jan 2006 01:41:59 -0000
***************
*** 232,243 ****
  /- Emacs group: ---------------------------------------------------\
        [State]: visible group members are all at standard values.
     Customization of the One True Editor.
!    See also [Manual].
  
! Editing group: [Go to Group]
  Basic text editing facilities.
  
! External group: [Go to Group]
  Interfacing to external utilities.
  
  @var{more second-level groups}
--- 232,243 ----
  /- Emacs group: ---------------------------------------------------\
        [State]: visible group members are all at standard values.
     Customization of the One True Editor.
!    See also Manual.
  
! Editing group: Go to Group
  Basic text editing facilities.
  
! External group: Go to Group
  Interfacing to external utilities.
  
  @var{more second-level groups}
***************
*** 265,271 ****
  
    For example, the phrase @samp{[State]} that appears in
  a second-level group is a button.  It operates on the same
! customization buffer.  The phrase @samp{[Go to Group]} is a kind
  of hypertext link to another group.  Invoking it creates a new
  customization buffer, which shows that group and its contents.
  
--- 265,271 ----
  
    For example, the phrase @samp{[State]} that appears in
  a second-level group is a button.  It operates on the same
! customization buffer.  But the phrase @samp{Go to Group} is a kind
  of hypertext link to another group.  Invoking it creates a new
  customization buffer, which shows that group and its contents.
  
***************
*** 290,297 ****
  @samp{[+]}.  When the group contents are visible, this button changes to
  @samp{[-]}; invoking that hides the group contents.
  
!   Each setting in this buffer has a link which says @samp{[Group]},
! @samp{[Option]} or @samp{[Face]}.  Invoking this link creates an
  ordinary customization buffer showing just that group and its
  contents, just that user option, or just that face.  This is the way
  to change settings that you find with @kbd{M-x customize-browse}.
--- 290,297 ----
  @samp{[+]}.  When the group contents are visible, this button changes to
  @samp{[-]}; invoking that hides the group contents.
  
!   Each setting in this buffer has a link which says @samp{Group},
! @samp{Option} or @samp{Face}.  Invoking this link creates an
  ordinary customization buffer showing just that group and its
  contents, just that user option, or just that face.  This is the way
  to change settings that you find with @kbd{M-x customize-browse}.

-- 
Juri Linkov
http://www.jurta.org/emacs/