[Top][All Lists]

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

incorrect button highlighting

From: Dan Nicolaescu
Subject: incorrect button highlighting
Date: Tue, 11 Sep 2007 10:21:02 -0700

Evaluate this code:

(require 'cus-edit)

(defvar my-button-list 
     :tag "prev"
     :help-echo "prev"
     :tag-glyph "prev-node"
     :action (lambda (widget &optional e) (ding)))
     :tag "next"
     :help-echo "next"
     :tag-glyph "next-node"
     :action (lambda (widget &optional e) (ding)))))

(defun test-buttons ()
  (set (make-local-variable 'widget-button-pressed-face)
  (mapc (lambda (arg) (widget-create arg)) my-button-list)

And then do M-x test-buttons RET

No put the mouse over one of the 2 buttons that appear, and both will
be shown using the custom-button-pressed face instead of just the one
that is under the mouse cursor. 

Can someone please take a look at this? 



reply via email to

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