* outline.el (hide-sublevels): Ensure that arguments are passed to

outline-flag-region in the correct order (Bug#3000).

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b5e6cd6176..7e333b37db7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/outline.el b/lisp/outline.el
index e1e91271883..250f2e16335 100644
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -905,6 +905,8 @@ Show the heading too, if it is currently invisible."
                   (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.