From: Andreas Schwab Date: Sun, 23 Mar 2008 11:22:53 +0000 (+0000) Subject: (menu-bar-showhide-fringe-ind-menu): Fix radio X-Git-Tag: emacs-22.2~10 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a947a08858f4df09646b4c458fe0db70ea4422a;p=emacs.git (menu-bar-showhide-fringe-ind-menu): Fix radio button condition. (menu-bar-showhide-fringe-ind-menu): Likewise. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b1aecb57b2e..62cc587c370 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-03-23 Andreas Schwab + + * menu-bar.el (menu-bar-showhide-fringe-ind-menu): Fix radio + button condition. + (menu-bar-showhide-fringe-ind-menu): Likewise. + 2008-03-20 Dan Nicolaescu * vc-bzr.el (vc-bzr-print-log): Ensure it works when passed a diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 38479b676ab..30a4e42551a 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -758,8 +758,8 @@ mail status in mode line")) :help "Show top/bottom indicators in opposite fringes, arrows in right" :visible (display-graphic-p) - :button (:radio . (eq indicate-buffer-boundaries - '((t . right) (top . left)))))) + :button (:radio . (equal indicate-buffer-boundaries + '((t . right) (top . left)))))) (defun menu-bar-showhide-fringe-ind-box () "Display top and bottom indicators in opposite fringes." @@ -771,8 +771,8 @@ mail status in mode line")) '(menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box :help "Show top/bottom indicators in opposite fringes, no arrows" :visible (display-graphic-p) - :button (:radio . (eq indicate-buffer-boundaries - '((top . left) (bottom . right)))))) + :button (:radio . (equal indicate-buffer-boundaries + '((top . left) (bottom . right)))))) (defun menu-bar-showhide-fringe-ind-right () "Display buffer boundaries and arrows in the right fringe."