Bug in outline-minor-mode

[martin rudalics <rudalics@gmx.at>]

[-- Attachment #1: Type: text/plain, Size: 366 bytes --]

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.

[-- Attachment #2: outline.patch --]
[-- Type: text/plain, Size: 907 bytes --]

*** 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)))

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel