procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(outline-up-heading): Fix check for top level to

Browse source 
avoid infinite looping in hide-other.
This commit is contained in:
Martin Rudalics 2008-01-21 19:48:56 +00:00
parent b49fd377e8
commit d405bc15fc
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-01-21 Martin Rudalics <rudalics@gmx.at>
* outline.el (outline-up-heading): Fix check for top level to
avoid infinite looping in hide-other.
2008-01-21 Thien-Thi Nguyen <ttn@gnuvola.org>
* vc.el (vc-process-sentinel): After calling the previous

4
lisp/outline.el
View file

@ -971,8 +971,8 @@ If INVISIBLE-OK is non-nil, also consider invisible lines."
(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"))
(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)))