Fix example code in hideshow.el

* lisp/progmodes/hideshow.el: The original example would infloop
(bug#19892).

diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 1d62bb58750d58b58f0fb105140b5b3b274997f2..4cfcd3d09a3233a18c14a304cfb8c3bf66f1ec8c 100644 (file)
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -97,7 +97,8 @@
 ;; nested level in addition to the top-level:
 ;;
 ;;   (defun ttn-hs-hide-level-1 ()
-;;     (hs-hide-level 1)
+;;     (when (hs-looking-at-block-start-p)
+;;       (hs-hide-level 1))
 ;;     (forward-sexp 1))
 ;;   (setq hs-hide-all-non-comment-function 'ttn-hs-hide-level-1)
 ;;