# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1007112199 0
# Node ID 83b10745557944beca8b541f92bbdbf31512e6f8
# Parent  b0754865d85c0bc5f83be53ca18ab65d1645a744
(outline-promote, outline-demote): Typo.

diff -r b0754865d85c -r 83b107455579 lisp/textmodes/outline.el
--- a/lisp/textmodes/outline.el	Fri Nov 30 09:20:17 2001 +0000
+++ b/lisp/textmodes/outline.el	Fri Nov 30 09:23:19 2001 +0000
@@ -363,15 +363,15 @@
   (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))
+	 (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-headings)
-      (push (cons level head) outline-level-headings))
+    (unless (assoc level outline-level-heading)
+      (push (cons level head) outline-level-heading))
 
     (replace-match up-head nil t)
     (when children
@@ -385,9 +385,9 @@
   (let* ((head (match-string 0))
 	 (level (save-match-data (funcall outline-level)))
 	 (down-head
-	  (or (let ((x (car (rassoc head outline-level-headings))))
+	  (or (let ((x (car (rassoc head outline-level-heading))))
 		(if (stringp x) x))
-	      (cdr (assoc (1+ level) outline-level-headings))
+	      (cdr (assoc (1+ level) outline-level-heading))
 	      (save-excursion
 		(save-match-data
 		  (while (and (not (eobp))
@@ -412,8 +412,8 @@
 		    ;; 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))
+    (unless (assoc level outline-level-heading)
+      (push (cons level head) outline-level-heading))
     
     (replace-match down-head nil t)
     (when children