# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1239838343 0
# Node ID 3123154d96e024e17f91430c9e5622d77467bb04
# Parent  3c287035dd2c963d7a5cebacdd09ce230ed80d2b
* outline.el (hide-sublevels): Ensure that arguments are passed to
outline-flag-region in the correct order (Bug#3000).

diff -r 3c287035dd2c -r 3123154d96e0 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 15 22:51:26 2009 +0000
+++ b/lisp/ChangeLog	Wed Apr 15 23:32:23 2009 +0000
@@ -1,3 +1,8 @@
+2009-04-15  William Xu  <william.xwl@gmail.com>
+
+	* outline.el (hide-sublevels): Ensure that arguments are passed to
+	outline-flag-region in the correct order (Bug#3000).
+
 2009-04-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* net/browse-url.el (browse-url-filename-alist): Correct file
diff -r 3c287035dd2c -r 3123154d96e0 lisp/outline.el
--- a/lisp/outline.el	Wed Apr 15 22:51:26 2009 +0000
+++ b/lisp/outline.el	Wed Apr 15 23:32:23 2009 +0000
@@ -905,6 +905,8 @@
                   (goto-char (point-max))
                   ;; Keep empty last line, if available.
                   (if (bolp) (1- (point)) (point)))))
+      (if (< end beg)
+	  (setq beg (prog1 end (setq end beg))))
       ;; First hide everything.
       (outline-flag-region beg end t)
       ;; Then unhide the top level headers.