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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b5e6cd6176790c76b6ad32ab3b3122fe56aead2..7e333b37db7fe6b972db1ce562fc441ae4642022 100644 (file)
--- 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 e1e9127188376135d431dc1c590e9b8aca9b46e8..250f2e163355d4106c7fe3df123337cd7ed1d981 100644 (file)
--- 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.