Mercurial > emacs
comparison lisp/textmodes/outline.el @ 11713:5306e71f486c
All autoload cookies disabled.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 06 May 1995 01:52:22 +0000 |
| parents | 290970a12db9 |
| children | 07ac8009368c |
comparison
equal
deleted
inserted
replaced
| 11712:e1f527e99a2f | 11713:5306e71f486c |
|---|---|
| 1 ;;; outline.el --- outline mode commands for Emacs | 1 ;;; outline.el --- outline mode commands for Emacs |
| 2 ;; Copyright (C) 1986, 1993, 1994 Free Software Foundation, Inc. | 2 ;; Copyright (C) 1986, 1993, 1994, 1995 Free Software Foundation, Inc. |
| 3 | 3 |
| 4 ;; Maintainer: FSF | 4 ;; Maintainer: FSF |
| 5 ;; Keywords: outlines | 5 ;; Keywords: outlines |
| 6 | 6 |
| 7 ;; This file is part of GNU Emacs. | 7 ;; This file is part of GNU Emacs. |
| 147 nil t)) | 147 nil t)) |
| 148 ;; Highight citations of the form [1] and [Mar94]. | 148 ;; Highight citations of the form [1] and [Mar94]. |
| 149 ("\\[\\([A-Z][A-Za-z]+\\)*[0-9]+\\]" . font-lock-type-face)) | 149 ("\\[\\([A-Z][A-Za-z]+\\)*[0-9]+\\]" . font-lock-type-face)) |
| 150 "Additional expressions to highlight in Outline mode.") | 150 "Additional expressions to highlight in Outline mode.") |
| 151 | 151 |
| 152 ;;;###autoload | 152 ;;;autoload |
| 153 (defun outline-mode () | 153 (defun outline-mode () |
| 154 "Set major mode for editing outlines with selective display. | 154 "Set major mode for editing outlines with selective display. |
| 155 Headings are lines which start with asterisks: one for major headings, | 155 Headings are lines which start with asterisks: one for major headings, |
| 156 two for subheadings, etc. Lines not starting with asterisks are body lines. | 156 two for subheadings, etc. Lines not starting with asterisks are body lines. |
| 157 | 157 |
| 233 (or (assq 'outline-minor-mode minor-mode-map-alist) | 233 (or (assq 'outline-minor-mode minor-mode-map-alist) |
| 234 (setq minor-mode-map-alist | 234 (setq minor-mode-map-alist |
| 235 (cons (cons 'outline-minor-mode outline-minor-mode-map) | 235 (cons (cons 'outline-minor-mode outline-minor-mode-map) |
| 236 minor-mode-map-alist))) | 236 minor-mode-map-alist))) |
| 237 | 237 |
| 238 ;;;###autoload | 238 ;;;autoload |
| 239 (defun outline-minor-mode (&optional arg) | 239 (defun outline-minor-mode (&optional arg) |
| 240 "Toggle Outline minor mode. | 240 "Toggle Outline minor mode. |
| 241 With arg, turn Outline minor mode on if arg is positive, off otherwise. | 241 With arg, turn Outline minor mode on if arg is positive, off otherwise. |
| 242 See the command `outline-mode' for more information on this mode." | 242 See the command `outline-mode' for more information on this mode." |
| 243 (interactive "P") | 243 (interactive "P") |