Re: `xterm-mouse-mode' has a bogus Custom group

[Luc Teirlinck <teirllm@dms.auburn.edu>]

Eli Zaretskii wrote:

   Except in Emacs compiled with --without-x and on MSDOS.  So please
   let's not preload tooltip in those cases.

Actually, the reason I thought it had to be preloaded was because of
confusion with some prior similar cases.  The only drawback of not
preloading it is that we need to duplicate the same code in the
defcustom and in startup.el and make sure that the two stay exactly in
sync.  But that is not too bad.  The following patches enable tooltip
mode at startup while taking care of the Custom problem.  The patch to
startup.el merely adds a comment.

I can install if desired.

xterm-mouse-mode could be taken care of in a similar fashion (without
preloading) if that would be what we want to do.

===File ~/startup.el-diff===================================
*** startup.el	08 Apr 2005 19:21:40 -0500	1.344
--- startup.el	10 Apr 2005 07:28:30 -0500	
***************
*** 733,738 ****
--- 733,741 ----
    (custom-reevaluate-setting 'blink-cursor-mode)
    (custom-reevaluate-setting 'normal-erase-is-backspace)
  
+   ;; If you change the code below, you need to also change the
+   ;; corresponding code in the tooltip-mode defcustom.  The two need
+   ;; to be equivalent under all conditions, or Custom will get confused.
    (unless (or noninteractive
  	      emacs-quick-startup
                (not (display-graphic-p))
============================================================

===File ~/tooltip.el-diff===================================
*** tooltip.el	31 Mar 2005 08:49:03 -0600	1.46
--- tooltip.el	10 Apr 2005 07:27:01 -0500	
***************
*** 187,192 ****
--- 187,198 ----
    "Toggle Tooltip display.
  With ARG, turn tooltip mode on if and only if ARG is positive."
    :global t
+   ;; If you change the :init-value below, you also need to change the
+   ;; corresponding code in startup.el.
+   :init-value (not (or noninteractive
+ 		       emacs-quick-startup
+ 		       (not (display-graphic-p))
+ 		       (not (fboundp 'x-show-tip))))
    :group 'tooltip
    (unless (or (null tooltip-mode) (fboundp 'x-show-tip))
      (error "Sorry, tooltips are not yet available on this system"))
============================================================