Bug in outline-minor-mode

[martin rudalics]

With Emacs -Q open keyboard.c, scroll down so that line 89 reading

/* Variables for blockinput.h: */

is the first line of the window.  Now do

M-x outline-minor-mode
M-x hide-other

Here, Emacs consumes ~100% CPU and I have to get out of this via C-g.
Note: The problem does not occur when I call `hide-other' at bob.

The attached patch fixes the problem for me.

*** outline.el.~1.34.~  Tue Oct  9 11:52:48 2007
--- outline.el  Fri Jan 18 20:59:52 2008
***************
*** 971,978 ****
         (or (eq last-command 'outline-up-heading) (push-mark)))
    (outline-back-to-heading invisible-ok)
    (let ((start-level (funcall outline-level)))
!     (if (eq start-level 1)
!       (error "Already at top level of the outline"))
      (while (and (> start-level 1) (> arg 0) (not (bobp)))
        (let ((level start-level))
        (while (not (or (< level start-level) (bobp)))
--- 971,978 ----
         (or (eq last-command 'outline-up-heading) (push-mark)))
    (outline-back-to-heading invisible-ok)
    (let ((start-level (funcall outline-level)))
!     (when (<= start-level 1)
!       (error "Already at top level of the outline"))
      (while (and (> start-level 1) (> arg 0) (not (bobp)))
        (let ((level start-level))
        (while (not (or (< level start-level) (bobp)))