noutline bug

["Aaron Kaplan" <lists2546@aaronkaplan.info>]

A bug in xemacs/noutline.el was brought to the surface by a couple of
recent org-mode changes.  Here are some test cases:

-------snip-----------------
* Heading 1
  note


* Heading 2
** subheading
-------snip-----------------

If org-cycle-separator-lines is 2 then doing org-cycle on Heading 1
fails to fold it, and if subheading is followed by the end of the file
then org-cycle on Heading 2 fails to fold it as well.  These two
problems surfaced because of two different org-mode changes, but I
traced both problems back to the same misplaced parenthesis in
noutline.el: 

*** noutline.el 2007/06/04 17:03:41     1.1
--- noutline.el 2007/06/04 17:22:18
***************
*** 724,733 ****
  		  (set-extent-endpoints (copy-extent ex)
  					(extent-start-position ex) beg)
  		  (set-extent-endpoints ex end (extent-end-position ex)))
!             (set-extent-endpoints ex (extent-start-position ex) beg)))
  	  (if (> (extent-end-position ex) end)
  	      (set-extent-endpoints ex end (extent-end-position ex))
!              (delete-extent ex)))
       (current-buffer) beg end nil 'end-closed 'outline)))
  
  (defun outline-flag-region (from to flag)
--- 724,733 ----
  		  (set-extent-endpoints (copy-extent ex)
  					(extent-start-position ex) beg)
  		  (set-extent-endpoints ex end (extent-end-position ex)))
!             (set-extent-endpoints ex (extent-start-position ex) beg))
  	  (if (> (extent-end-position ex) end)
  	      (set-extent-endpoints ex end (extent-end-position ex))
!              (delete-extent ex))))
       (current-buffer) beg end nil 'end-closed 'outline)))
  
  (defun outline-flag-region (from to flag)


You might want to do a bit of reindenting while you're in there, it
looks like this file has been edited by people with different tab widths
at different times.

-Aaron