[Emacs-diffs] Changes to emacs/lisp/progmodes/hideshow.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/02/28 03:35:23

Index: progmodes/hideshow.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/hideshow.el,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -b -r1.73 -r1.74
--- progmodes/hideshow.el       25 Feb 2008 19:47:34 -0000      1.73
+++ progmodes/hideshow.el       28 Feb 2008 03:35:21 -0000      1.74
@@ -232,8 +232,6 @@
 
 ;;; Code:
 
-(require 'easymenu)
-
 ;;---------------------------------------------------------------------------
 ;; user-configurable variables
 
@@ -368,11 +366,30 @@
     ["Hide All"      hs-hide-all
      :help "Hide all the blocks in the buffer"]
     ["Show All"      hs-show-all
-     :help "Show all the clocks in the buffer"]
+     :help "Show all the blocks in the buffer"]
     ["Hide Level"    hs-hide-level
      :help "Hide all block at levels below the current block"]
     ["Toggle Hiding" hs-toggle-hiding
-     :help "Toggle the hiding state of the current block"]))
+     :help "Toggle the hiding state of the current block"]
+    "----"
+    ["Hide comments when hiding all" 
+     (setq hs-hide-comments-when-hiding-all
+          (not hs-hide-comments-when-hiding-all))
+     :help "If t also hide comment blocks when doing `hs-hide-all'"
+     :style toggle :selected hs-hide-comments-when-hiding-all]
+   ("Reveal on isearch"
+     ["Code blocks" (setq hs-isearch-open 'code)
+      :help "Show hidden code blocks when isearch matches inside them"
+      :active t :style radio   :selected (eq hs-isearch-open 'code)]
+     ["Comment blocks" (setq hs-isearch-open 'comment)
+      :help "Show hidden comment blocks when isearch matches inside them"
+      :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)]
+     ["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)])))
 
 (defvar hs-c-start-regexp nil
   "Regexp for beginning of comments.