Mercurial > emacs

changeset 41700:83b107455579

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(outline-promote, outline-demote): Typo.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 30 Nov 2001 09:23:19 +0000
parents b0754865d85c
children d1ec9ab9d09d
files lisp/textmodes/outline.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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