address@hidden: tool-bar: frame-local tool-bar-button-margin]

[Richard M. Stallman]

Would someone please investigate this bug, and ack?

------- Start of forwarded message -------
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com;
        
h=received:mime-version:content-transfer-encoding:message-id:content-type:to:from:subject:date:x-mailer;
        
b=r3C3fULpX1KWe4Tac2XnkI4etL1GxL2005axUsS2PBzqmE8P9wYHEtD3+I8BIt/j65l/Wv6sFtdIHaDvbMNJmrZjCmjd0BDXKs3iHUaqzYBFPrafhk6WHy77e2Ab2rIJlUnxk3c97pRFwp2iKGmLdlrWGeVhwjPxNLIqGVxw0Rs=
To: address@hidden
From: David Reitter <address@hidden>
Date: Mon, 10 Oct 2005 14:48:03 +0100
Subject: tool-bar: frame-local tool-bar-button-margin
Sender: address@hidden
X-Spam-Checker-Version: SpamAssassin 2.63 (2004-01-11) on monty-python
X-Spam-Level: 
X-Spam-Status: No, hits=0.0 required=5.0 tests=none autolearn=no version=2.63

Making tool-bar-button-margin a frame-local variable doesn't have the  
desired effect.
When several frames are open, a change to this variable will change  
all tool-bars, not just the one belonging to the current frame.

(This works as intended with making it buffer-local, which is,  
however, not what I really want.)

Sample code:


1. Open two frames, displaying different buffers in different fonts  
(with different font heights).

2. Ensure toolbars are turned on (toolbar-mode)

3. Execute this in one of the frames

;; This code tries to get rid of the ugly extra line drawn under the  
toolbar.

(make-variable-frame-local 'tool-bar-button-margin)
;; (make-variable-buffer-local  'tool-bar-button-margin) ;; this  
would work sometimes
(setq tool-bar-button-margin
       (cons 4 (+ 2
                      (mod tool-bar-images-pixel-height
               (frame-char-height)))))

4. The toolbar height will change in all frames, not just the one  
where the code was executed.





In GNU Emacs 22.0.50.1 (powerpc-apple-darwin8.2.0)
  of 2005-10-07 on lucy - Aquamacs Distribution 0.9.6
Distributor `Apple Computers', version 10.4.2
configured using `configure '--without-x' '--prefix=/usr/local''

Important settings:
   value of $LC_ALL: nil
   value of $LC_COLLATE: nil
   value of $LC_CTYPE: nil
   value of $LC_MESSAGES: nil
   value of $LC_MONETARY: nil
   value of $LC_NUMERIC: nil
   value of $LC_TIME: nil
   value of $LANG: nil
   locale-coding-system: iso-latin-1
   default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
   smart-frame-positioning-mode: t
   recentf-mode: t
   osx-key-mode: t
   mouse-wheel-mode: t
   show-paren-mode: t
   delete-selection-mode: t
   pc-selection-mode: t
   cua-mode: t
   encoded-kbd-mode: t
   tooltip-mode: t
   auto-compression-mode: t
   menu-bar-mode: t
   global-font-lock-mode: t
   font-lock-mode: t
   blink-cursor-mode: t
   unify-8859-on-encoding-mode: t
   utf-translate-cjk-mode: t
   column-number-mode: t
   line-number-mode: t
   transient-mark-mode: t

Recent input:
m o d SPC H-v SPC <down-mouse-1> <mouse-1> <double-down-mouse-1>
<mouse-movement> <double-mouse-1> H-c <down-mouse-1>
<mouse-1> H-v <down-mouse-1> <mouse-1> C-x C-e <wheel-down>
<S-down-mouse-1> <S-mouse-1> H-x <down-mouse-1> <mouse-1>
<double-down-mouse-1> <double-mouse-1> H-v <down-mouse-1>
<mouse-1> <return> <tab> <tab> <tab> <tab> <down-mouse-1>
<mouse-1> <return> <tab> <tab> <tab> <backspace> <backspace>
<backspace> <backspace> <return> <tab> <backspace>
<backspace> <backspace> <tab> <up> <H-backspace> <escape>
x e m a c s - <escape> <escape> <escape> <escape> <down-mouse-1>
<drag-mouse-1> <down-mouse-1> <mouse-movement> <mouse-movement>
<drag-mouse-1> H-c <switch-frame> <return> <return>
H-v <up> <up> <tab> <down> <tab> <down-mouse-1> <mouse-movement>
<mouse-1> <backspace> <backspace> <down-mouse-1> <mouse-movement>
<mouse-movement> <mouse-movement> <mouse-movement>
<drag-mouse-1> H-c <help-echo> <down-mouse-1> <mouse-1>
<help-echo> <menu-bar> <help-menu> <report-emacs-b
ug>

Recent messages:
(4 . 10)
tool-bar-button-margin
(4 . 6)
tool-bar-button-margin
(4 . 8)
Making completion list...
8
16
8
Quit





_______________________________________________
Emacs-pretest-bug mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
------- End of forwarded message -------