Fix buglet in local variables initialization.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 049b8f15e75c3a3993e51728987f97a917e46a9a..1cff815b412f00c09b037f606efe725ef04db3d9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
        * progmodes/hideshow.el (hs-discard-overlays, hs-flag-region,
        hs-show-block): Don't use `mapcar' when not accumulating.
 
+       Fix buglet in local variables initialization.
+
 2000-01-05  Andreas Schwab  <schwab@suse.de>
 
        * hscroll.el (hscroll): Doc fix.

diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 6de24ce4cbf2cdb888c3ecf1fda301536784008e..879e14876edc49396ce5f52430599c7305dc0dd7 100644 (file)
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -877,7 +877,8 @@ Key bindings:
   (while vars
     (let ((var (car vars)))
       (make-variable-buffer-local var)
-      (put var 'permanent-local t))))
+      (put var 'permanent-local t))
+    (setq vars (cdr vars))))
 
 ;;---------------------------------------------------------------------------
 ;; that's it