Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3fa26c50
Commit
3fa26c50
authored
Feb 08, 1994
by
Richard M. Stallman
Browse files
(show-children): Don't narrow to (1+ (point-max)) when
exposing the last level-n header in the buffer.
parent
9ed4d64f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
1 deletion
+6
-1
lisp/textmodes/ooutline.el
lisp/textmodes/ooutline.el
+6
-1
No files found.
lisp/textmodes/ooutline.el
View file @
3fa26c50
...
...
@@ -2,6 +2,10 @@
;; Copyright (C) 1986, 1993 Free Software Foundation, Inc.
;; 7-Feb-94 Kevin Broadey
;; Fix show-children so it doesn't try to narrow to (1+ (point-max)) when
;; exposing the last level-n header in the buffer.
;;
;; Maintainer: FSF
;; This file is part of GNU Emacs.
...
...
@@ -384,7 +388,8 @@ Default is enough to cause the following heading to appear."
(
beginning-of-line
)
(
setq
level
(
+
level
(
funcall
outline-level
)))
(
narrow-to-region
(
point
)
(
progn
(
outline-end-of-subtree
)
(
1+
(
point
))))
(
progn
(
outline-end-of-subtree
)
(
if
(
eobp
)
(
point-max
)
(
1+
(
point
)))))
(
goto-char
(
point-min
))
(
while
(
and
(
not
(
eobp
))
(
progn
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment