From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 15 Apr 2009 23:32:23 +0000 (+0000)
Subject: * outline.el (hide-sublevels): Ensure that arguments are passed to
X-Git-Tag: emacs-pretest-23.0.93~122
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d0dd8ff4a6681225b4e64728c820833c61773f7;p=emacs.git

* 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 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.