 ;; make some variables permanently buffer-local
 (dolist (var '(hs-minor-mode
                hs-c-start-regexp
+	       hs-marker-begin-regexp
+	       hs-marker-end-regexp
                hs-block-start-regexp
                hs-block-start-mdata-select
                hs-block-end-regexp

  "Regexp for beginning of comments.
Differs from mode-specific comment regexps in that
surrounding whitespace is stripped.")

(defvar hs-block-start-regexp nil
  "Regexp for beginning of block.")

  (hs-life-goes-on
   (save-excursion
     (message "Hiding blocks ...")
     (hs-find-block-beginning)
     (hs-hide-level-recursive arg (point) (save-excursion (funcall hs-forward-sexp-func 1)))
     (message "Hiding blocks ... done"))
   (run-hooks 'hs-hide-hook)))

