Mercurial > emacs

comparison lisp/mail/footnote.el @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents 0d8b17d428b5
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 ;;; footnote.el --- footnote support for message mode -*- coding: iso-latin-1;-*- 1 ;;; footnote.el --- footnote support for message mode -*- coding: iso-latin-1;-*-
2 2
3 ;; Copyright (C) 1997, 2000 by Free Software Foundation, Inc. 3 ;; Copyright (C) 1997, 2000, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc.
4 5
5 ;; Author: Steven L Baur <steve@xemacs.org> 6 ;; Author: Steven L Baur <steve@xemacs.org>
6 ;; Keywords: mail, news 7 ;; Keywords: mail, news
7 ;; Version: 0.19 8 ;; Version: 0.19
8 9
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details. 20 ;; General Public License for more details.
20 21
21 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the Free 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the Free
23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 24 ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
24 ;; 02111-1307, USA. 25 ;; MA 02110-1301, USA.
25 26
26 ;;; Commentary: 27 ;;; Commentary:
27 28
28 ;; This file provides footnote[1] support for message-mode in emacsen. 29 ;; This file provides footnote[1] support for message-mode in emacsen.
29 ;; footnote-mode is implemented as a minor mode. 30 ;; footnote-mode is implemented as a minor mode.
85 (defvar footnote-prefix [(control ?c) ?!] 86 (defvar footnote-prefix [(control ?c) ?!]
86 "*When not using message mode, the prefix to bind in `mode-specific-map'") 87 "*When not using message mode, the prefix to bind in `mode-specific-map'")
87 88
88 ;;; Interface variables that probably shouldn't be changed 89 ;;; Interface variables that probably shouldn't be changed
89 90
90 (defconst footnote-section-tag "Footnotes: " 91 (defcustom footnote-section-tag "Footnotes: "
91 "*Tag inserted at beginning of footnote section.") 92 "*Tag inserted at beginning of footnote section."
93 :version "22.1"
94 :type 'string
95 :group 'footnote)
92 96
93 (defcustom footnote-section-tag-regexp "Footnotes\\(\\[.\\]\\)?: " 97 (defcustom footnote-section-tag-regexp "Footnotes\\(\\[.\\]\\)?: "
94 "*Regexp which indicates the start of a footnote section. 98 "*Regexp which indicates the start of a footnote section.
95 See also `footnote-section-tag'." 99 See also `footnote-section-tag'."
96 :type 'regexp 100 :type 'regexp
750 (cons '(footnote-mode footnote-mode-line-string) 754 (cons '(footnote-mode footnote-mode-line-string)
751 minor-mode-alist))) 755 minor-mode-alist)))
752 756
753 (provide 'footnote) 757 (provide 'footnote)
754 758
759 ;;; arch-tag: 9bcfb6d7-2161-4caf-8793-700f62400398
755 ;;; footnote.el ends here 760 ;;; footnote.el ends here