From 5c842d76fa043f799b73ed3050abb9a836639e86 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 28 Feb 2008 21:02:45 +0000 Subject: [PATCH] (hs-minor-mode-menu): Compare `hs-isearch-open' with t instead of `comment' in :selected for "Code and Comment blocks" menu item. --- lisp/ChangeLog | 4 ++++ lisp/progmodes/hideshow.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 * 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)]))) -- 2.39.5