(Fx_create_frame): Make 1 the default for menu-bar-lines.

[bpt/emacs.git] / lisp / allout.el

diff --git a/lisp/allout.el b/lisp/allout.el
index 3695929..dde6c4c 100644 (file)
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -455,14 +455,14 @@ and 'outline-distinctive-bullets-string'.")
 (defvar outline-line-boundary-regexp ()
   "Outline-regexp with outline-style beginning-of-line anchor.
 
-(Ie, C-j, *or* C-m, for prefixes of hidden topics).  This is properly
+\(Ie, C-j, *or* C-m, for prefixes of hidden topics).  This is properly
 set when outline-regexp is produced by 'set-outline-regexp', so
 that (match-beginning 2) and (match-end 2) delimit the prefix.")
 (make-variable-buffer-local 'outline-line-boundary-regexp)
 ;;;_   = outline-bob-regexp
 (defvar outline-bob-regexp ()
   "Like outline-line-boundary-regexp, for headers at beginning of buffer.
-(match-beginning 2) and (match-end 2) delimit the prefix.")
+\(match-beginning 2) and (match-end 2) delimit the prefix.")
 (make-variable-buffer-local 'outline-bob-regexp)
 ;;;_   = outline-header-subtraction
 (defvar outline-header-subtraction (1- (length outline-header-prefix))
@@ -1453,9 +1453,9 @@ starting point, and PREV-DEPTH is depth of prior topic."
                           (or (outline-next-sibling curr-depth)
                               ;; or no more siblings - proceed to
                               ;; next heading at lesser depth:
-                              (while (<= curr-depth
-                                         (outline-recent-depth))
-                                (outline-next-heading)))
+                              (while (and (<= curr-depth
+                                              (outline-recent-depth))
+                                          (outline-next-heading))))
                         (outline-next-heading)))
 
                      ((and (< prev-depth curr-depth)