[Emacs-diffs] emacs/lisp ChangeLog outline.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/04/15 23:32:25

Modified files:
        lisp           : ChangeLog outline.el 

Log message:
        * outline.el (hide-sublevels): Ensure that arguments are passed to
        outline-flag-region in the correct order (Bug#3000).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15592&r2=1.15593
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/outline.el?cvsroot=emacs&r1=1.42&r2=1.43

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15592
retrieving revision 1.15593
diff -u -b -r1.15592 -r1.15593
--- ChangeLog   15 Apr 2009 22:51:26 -0000      1.15592
+++ ChangeLog   15 Apr 2009 23:32:23 -0000      1.15593
@@ -1,3 +1,8 @@
+2009-04-15  William Xu  <address@hidden>
+
+       * outline.el (hide-sublevels): Ensure that arguments are passed to
+       outline-flag-region in the correct order (Bug#3000).
+
 2009-04-15  Katsumi Yamaoka  <address@hidden>
 
        * net/browse-url.el (browse-url-filename-alist): Correct file

Index: outline.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/outline.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- outline.el  5 Jan 2009 03:19:37 -0000       1.42
+++ outline.el  15 Apr 2009 23:32:25 -0000      1.43
@@ -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.