diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-11-30 09:23:19 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-11-30 09:23:19 +0000 |
| commit | a16db7fe3cee8c48d917f00d4b2c6b1b00d2f753 (patch) | |
| tree | aca7c18ceb70f7c11f3cb5d08b24a8604427d726 /lisp/textmodes | |
| parent | dc338e19802af00c7f07fe1a6b12e87f6259d7f8 (diff) | |
| download | emacs-a16db7fe3cee8c48d917f00d4b2c6b1b00d2f753.tar.gz | |
(outline-promote, outline-demote): Typo.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/outline.el | 16 |
1 files changed, 8 insertions, 8 deletions
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 |