(hs-minor-mode-menu): Compare `hs-isearch-open' with t instead of

`comment' in :selected for "Code and Comment blocks" menu item.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5764330bcce..6ea84c84d1a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -22,6 +22,10 @@
         (minibuffer-local-map): Add menu items for next/previous
         history elements and isearch history forward/backward.
 
+        * progmodes/hideshow.el (hs-minor-mode-menu): Compare
+        `hs-isearch-open' with t instead of `comment' in :selected
+        for "Code and Comment blocks" menu item.
+
 2008-02-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * uniquify.el (uniquify-buffer-base-name): Undo last change.  Should be
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 2b8e2ec0089..be284d1b089 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -386,7 +386,7 @@ Use the command `hs-minor-mode' to toggle or set this variable.")
       :active t :style radio :selected (eq hs-isearch-open 'comment)]
      ["Code and Comment blocks" (setq hs-isearch-open t)
       :help "Show both hidden code and comment blocks when isearch matches inside them"
-      :active t :style radio :selected (eq hs-isearch-open 'comment)]
+      :active t :style radio :selected (eq hs-isearch-open t)]
      ["None" (setq hs-isearch-open nil)
       :help "Do not hidden code or comment blocks when isearch matches inside them"
       :active t :style radio :selected (eq hs-isearch-open nil)])))