From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Fri, 2 Aug 2019 19:04:22 +0000 (+0200)
Subject: Fix example code in hideshow.el
X-Git-Tag: emacs-27.0.90~1748
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0393cd2f721f8e44b4cef3b0864f1b4903ab9ba3;p=emacs.git

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 1d62bb58750..4cfcd3d09a3 100644
--- 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)
 ;;