comparison lisp/progmodes/hideshow.el @ 92312:8d89f150f3d7

(hs-minor-mode-menu): Compare `hs-isearch-open' with t instead of `comment' in :selected for "Code and Comment blocks" menu item.
author Juri Linkov <juri@jurta.org>
date Thu, 28 Feb 2008 21:02:12 +0000
parents a60153302fa5
children 52b7a8c22af5
comparison
equal deleted inserted replaced
92311:0b6dc19a2e70 92312:8d89f150f3d7
384 ["Comment blocks" (setq hs-isearch-open 'comment) 384 ["Comment blocks" (setq hs-isearch-open 'comment)
385 :help "Show hidden comment blocks when isearch matches inside them" 385 :help "Show hidden comment blocks when isearch matches inside them"
386 :active t :style radio :selected (eq hs-isearch-open 'comment)] 386 :active t :style radio :selected (eq hs-isearch-open 'comment)]
387 ["Code and Comment blocks" (setq hs-isearch-open t) 387 ["Code and Comment blocks" (setq hs-isearch-open t)
388 :help "Show both hidden code and comment blocks when isearch matches inside them" 388 :help "Show both hidden code and comment blocks when isearch matches inside them"
389 :active t :style radio :selected (eq hs-isearch-open 'comment)] 389 :active t :style radio :selected (eq hs-isearch-open t)]
390 ["None" (setq hs-isearch-open nil) 390 ["None" (setq hs-isearch-open nil)
391 :help "Do not hidden code or comment blocks when isearch matches inside them" 391 :help "Do not hidden code or comment blocks when isearch matches inside them"
392 :active t :style radio :selected (eq hs-isearch-open nil)]))) 392 :active t :style radio :selected (eq hs-isearch-open nil)])))
393 393
394 (defvar hs-c-start-regexp nil 394 (defvar hs-c-start-regexp nil