# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 766713231 0
# Node ID cd88b5f54ae374ce085a1aed8d62ed6726ae7cd4
# Parent  7a3b606e7d27fc3b27e0e0405b091792c6a059a7
(outline-end-of-subtree): Stop before final newline.

diff -r 7a3b606e7d27 -r cd88b5f54ae3 lisp/textmodes/ooutline.el
--- a/lisp/textmodes/ooutline.el	Mon Apr 18 23:34:22 1994 +0000
+++ b/lisp/textmodes/ooutline.el	Mon Apr 18 23:53:51 1994 +0000
@@ -417,13 +417,13 @@
 		(or first (> (funcall outline-level) level)))
       (setq first nil)
       (outline-next-heading))
-    (if (eobp)
-	nil
-      ;; go to end of line before heading
-      (forward-char -1)
-      ;; skip preceding blank line, if there is one
-      (if (memq (preceding-char) '(?\n ?\^M))
-	  (forward-char -1)))))
+    (if (memq (preceding-char) '(?\n ?\^M))
+	(progn
+	  ;; got to end of line before heading
+	  (forward-char -1)
+	  (if (memq (preceding-char) '(?\n ?\^M))
+	      ;; leave blank line before heading
+	      (forward-char -1))))))
 
 (defun show-branches ()
   "Show all subheadings of this heading, but not their bodies."