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

[Stefan Monnier]

Index: emacs/lisp/textmodes/outline.el
diff -c emacs/lisp/textmodes/outline.el:1.50 
emacs/lisp/textmodes/outline.el:1.51
*** emacs/lisp/textmodes/outline.el:1.50        Wed Nov 28 21:15:03 2001
--- emacs/lisp/textmodes/outline.el     Fri Nov 30 04:23:19 2001
***************
*** 363,377 ****
    (outline-back-to-heading)
    (let* ((head (match-string 0))
         (level (save-match-data (funcall outline-level)))
!        (up-head (or (cdr (assoc head outline-level-headings))
!                     (cdr (assoc (1- level) outline-level-headings))
                      (save-excursion
                        (save-match-data
                          (outline-up-heading 1 t)
                          (match-string 0))))))
      
!     (unless (assoc level outline-level-headings)
!       (push (cons level head) outline-level-headings))
  
      (replace-match up-head nil t)
      (when children
--- 363,377 ----
    (outline-back-to-heading)
    (let* ((head (match-string 0))
         (level (save-match-data (funcall outline-level)))
!        (up-head (or (cdr (assoc head outline-level-heading))
!                     (cdr (assoc (1- level) outline-level-heading))
                      (save-excursion
                        (save-match-data
                          (outline-up-heading 1 t)
                          (match-string 0))))))
      
!     (unless (assoc level outline-level-heading)
!       (push (cons level head) outline-level-heading))
  
      (replace-match up-head nil t)
      (when children
***************
*** 385,393 ****
    (let* ((head (match-string 0))
         (level (save-match-data (funcall outline-level)))
         (down-head
!         (or (let ((x (car (rassoc head outline-level-headings))))
                (if (stringp x) x))
!             (cdr (assoc (1+ level) outline-level-headings))
              (save-excursion
                (save-match-data
                  (while (and (not (eobp))
--- 385,393 ----
    (let* ((head (match-string 0))
         (level (save-match-data (funcall outline-level)))
         (down-head
!         (or (let ((x (car (rassoc head outline-level-heading))))
                (if (stringp x) x))
!             (cdr (assoc (1+ level) outline-level-heading))
              (save-excursion
                (save-match-data
                  (while (and (not (eobp))
***************
*** 412,419 ****
                    ;; Didn't work: keep it as is so it's still a heading.
                    head))))))
  
!     (unless (assoc level outline-level-headings)
!       (push (cons level head) outline-level-headings))
      
      (replace-match down-head nil t)
      (when children
--- 412,419 ----
                    ;; Didn't work: keep it as is so it's still a heading.
                    head))))))
  
!     (unless (assoc level outline-level-heading)
!       (push (cons level head) outline-level-heading))
      
      (replace-match down-head nil t)
      (when children