[Emacs-diffs] Changes to emacs/lisp/textmodes/outline.el

[Juanma Barranquero]

Index: emacs/lisp/textmodes/outline.el
diff -c emacs/lisp/textmodes/outline.el:1.58 
emacs/lisp/textmodes/outline.el:1.59
*** emacs/lisp/textmodes/outline.el:1.58        Sun Dec 22 17:02:25 2002
--- emacs/lisp/textmodes/outline.el     Tue Feb  4 08:30:44 2003
***************
*** 139,145 ****
                                         (cons '(--- "---") (cdr x))))
                                   outline-mode-menu-bar-map))))))
      map))
!             
  
  (defvar outline-mode-map
    (let ((map (make-sparse-keymap)))
--- 139,145 ----
                                         (cons '(--- "---") (cdr x))))
                                   outline-mode-menu-bar-map))))))
      map))
! 
  
  (defvar outline-mode-map
    (let ((map (make-sparse-keymap)))
***************
*** 401,407 ****
                        (save-match-data
                          (outline-up-heading 1 t)
                          (match-string 0))))))
!     
      (unless (rassoc level outline-heading-alist)
        (push (cons head level) outline-heading-alist))
  
--- 401,407 ----
                        (save-match-data
                          (outline-up-heading 1 t)
                          (match-string 0))))))
! 
      (unless (rassoc level outline-heading-alist)
        (push (cons head level) outline-heading-alist))
  
***************
*** 446,452 ****
  
      (unless (rassoc level outline-heading-alist)
        (push (cons head level) outline-heading-alist))
!     
      (replace-match down-head nil t)
      (when children
        (outline-map-tree 'outline-demote level))))
--- 446,452 ----
  
      (unless (rassoc level outline-heading-alist)
        (push (cons head level) outline-heading-alist))
! 
      (replace-match down-head nil t)
      (when children
        (outline-map-tree 'outline-demote level))))
***************
*** 533,539 ****
        ;; reveal do the rest, by simply doing:
        ;; (remove-overlays (overlay-start o) (overlay-end o)
        ;;                  'invisible 'outline)
!       ;; 
        ;; That works fine as long as everything is in sync, but if the
        ;; structure of the document is changed while revealing parts of it,
        ;; the resulting behavior can be ugly.  I.e. we need to make
--- 533,539 ----
        ;; reveal do the rest, by simply doing:
        ;; (remove-overlays (overlay-start o) (overlay-end o)
        ;;                  'invisible 'outline)
!       ;;
        ;; That works fine as long as everything is in sync, but if the
        ;; structure of the document is changed while revealing parts of it,
        ;; the resulting behavior can be ugly.  I.e. we need to make