tool-bar: frame-local tool-bar-button-margin

[David Reitter]

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