On 4/20/07, Carsten Dominik <dominik@science.uva.nl> wrote:
>
> You probably have Emacs 21 under Linux and Emacs 22 under Windows.
> This is a difference in the implementation of `outline-hide-sublevels'
> between these versions, and Org-mode simply calls this function.


 Thanks Carsten, you're right on. I really like the emacs21 behavior a lot
more than that of emacs 22.

I believe you could take the Emacs 21 definition of this function and
> overwrite the Emacs 22 one by placing the definition into
> outline-mode-hook, but I have not tested this.


 I found a hide-sublevels in outline.el but never found any
outline-hide-sublevels, so I assume they're they same.

(defun hide-sublevels (levels)
  "Hide everything but the top LEVELS levels of headers, in whole buffer."
  (interactive "p")
  (if (< levels 1)
      (error "Must keep at least one level of headers"))
  (setq levels (1- levels))
  (let (outline-view-change-hook)
    (save-excursion
      (goto-char (point-min))
      ;; Keep advancing to the next top-level heading.
      (while (or (and (bobp) (outline-on-heading-p))
         (outline-next-heading))
    (let ((end (save-excursion (outline-end-of-subtree) (point))))
      ;; Hide everything under that.
      (outline-flag-region (point) end t)
      ;; Show the first LEVELS levels under that.
      (if (> levels 0)
          (show-children levels))
      ;; Move to the next, since we already found it.
      (goto-char end)))))
  (run-hooks 'outline-view-change-hook))

(add-hook 'outline-mode-hook 'hide-sublevels)

I gave this a try but it didn't work automatically, and I don't know where
to go from here.

Debugger entered--Lisp error: (wrong-number-of-arguments #[(levels) [A whole
bunch of special characters here]
 [levels outline-view-change-hook beg end 1 error "Must keep at least one
level of headers" nil outline-on-heading-p t outline-next-heading
outline-flag-region outline-map-region #[nil "  [outline-level levels
outline-show-heading] 2] run-hooks] 4 ("c:/Program
Files/Emacs/emacs/lisp/outline.elc" . 28111) (list (cond (current-prefix-arg
(prefix-numeric-value current-prefix-arg)) ((save-excursion
(beginning-of-line) (looking-at outline-regexp)) (funcall outline-level)) (t
1)))] 0)

Thanks,
Scott


On Apr 19, 2007, at 23:18, Scott Jaderholm wrote:
>
> > On Linux I can have org open a file and display it like this:
> >
> > * Local Settings...
> >
> > * Projects
> > ** Foo
> >
> > * Something
> >
> > Notice that it's nice about letting me having blank lines between my
> > top level headings, even though they are to some degree compacted. I
> > think my setting is "content" for how expanded it should be.
> >
> > When I open the same file in Emacs on Windows, with the same
> > configuration files, I get this:
> >
> > * Local Settings...
> > * Projects
> > ** Foo
> > * Something
> >
> > There are no blank lines at all, but if I use S-Tab to expand it all
> > out there are plenty of blank lines.
> >
> > The file does say it's in Unix mode and I suspect this problem is more
> > likely caused by a setting I have wrong than a bug. Has anyone seen
> > this before or have an idea what is causing this behavior?
> >
> > Thanks,
> > Scott
> >
> >
> > _______________________________________________
> > Emacs-orgmode mailing list
> > Emacs-orgmode@gnu.org
> > http://lists.gnu.org/mailman/listinfo/emacs-orgmode
> >
>
> --
> Carsten Dominik
> Sterrenkundig Instituut "Anton Pannekoek"
> Universiteit van Amsterdam
> Kruislaan 403
> NL-1098SJ Amsterdam
> phone: +31 20 525 7477
>
>