From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 30 Nov 2001 09:23:19 +0000 (+0000)
Subject: (outline-promote, outline-demote): Typo.
X-Git-Tag: ttn-vms-21-2-B4~18012
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a16db7fe3cee8c48d917f00d4b2c6b1b00d2f753;p=emacs.git

(outline-promote, outline-demote): Typo.
---

diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el
index dfd83a005c6..4996520daa9 100644
--- a/lisp/textmodes/outline.el
+++ b/lisp/textmodes/outline.el
@@ -363,15 +363,15 @@ If prefix argument CHILDREN is given, promote also all the children."
   (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 @@ If prefix argument CHILDREN is given, demote also all the children."
   (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 @@ If prefix argument CHILDREN is given, demote also all the children."
 		    ;; 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