Change release version from 21.4 to 22.1 throughout.

[gnu-emacs] / lisp / mail / footnote.el

diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 3a86a39b147e7e8938f48636e0b61cc6f44ce4c7..d85ca45bf19b2e1479c0e62d069db8d6969eaf8f 100644 (file)
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -1,4 +1,4 @@
-;;; footnote.el --- Footnote support for message mode  -*- coding: iso-latin-1;-*-
+;;; footnote.el --- footnote support for message mode  -*- coding: iso-latin-1;-*-
 
 ;; Copyright (C) 1997, 2000 by Free Software Foundation, Inc.
 
@@ -87,8 +87,11 @@ If nil, no blank line will be inserted."
 
 ;;; Interface variables that probably shouldn't be changed
 
-(defconst footnote-section-tag "Footnotes: "
-  "*Tag inserted at beginning of footnote section.")
+(defcustom footnote-section-tag "Footnotes: "
+  "*Tag inserted at beginning of footnote section."
+  :version "22.1"
+  :type 'string
+  :group 'footnote)
 
 (defcustom footnote-section-tag-regexp "Footnotes\\(\\[.\\]\\)?: "
   "*Regexp which indicates the start of a footnote section.
@@ -161,7 +164,7 @@ Wrapping around the alphabet implies successive repetitions of letters."
       (setq rc (concat rc chr))
       (setq rep (1- rep)))
     rc))
-  
+
 ;;; ENGLISH LOWER
 (defconst footnote-english-lower "abcdefghijklmnopqrstuvwxyz"
   "Lower case English alphabet.")
@@ -482,7 +485,7 @@ styles."
   (Footnote-goto-char-point-max)
   (if (re-search-backward (concat "^" footnote-section-tag-regexp) nil t)
       (save-restriction
-       (when footnote-narrow-to-footnotes-when-editing 
+       (when footnote-narrow-to-footnotes-when-editing
          (Footnote-narrow-to-footnotes))
        (Footnote-goto-footnote (1- arg)) ; evil, FIXME (less evil now)
        ;; (message "Inserting footnote %d" arg)
@@ -513,7 +516,7 @@ styles."
 
 (defun Footnote-text-under-cursor ()
   "Return the number of footnote if in footnote text.
-Nil is returned if the cursor is not positioned over the text of
+Return nil if the cursor is not positioned over the text of
 a footnote."
   (when (and (let ((old-point (point)))
               (save-excursion
@@ -536,7 +539,7 @@ a footnote."
 
 (defun Footnote-under-cursor ()
   "Return the number of the footnote underneath the cursor.
-Nil is returned if the cursor is not over a footnote."
+Return nil if the cursor is not over a footnote."
   (or (get-text-property (point) 'footnote-number)
       (Footnote-text-under-cursor)))
 
@@ -554,9 +557,9 @@ Nil is returned if the cursor is not over a footnote."
          (unless rc
            (setq rc (car alist-ptr)))
          (save-excursion
-           (message "Renumbering from %s to %s" 
+           (message "Renumbering from %s to %s"
                     (Footnote-index-to-string (car alist-ptr))
-                    (Footnote-index-to-string 
+                    (Footnote-index-to-string
                      (1+ (car alist-ptr))))
            (Footnote-renumber (car alist-ptr)
                               (1+ (car alist-ptr))
@@ -670,7 +673,7 @@ specified, jump to the text of that footnote."
            (goto-char (point-max))
            (re-search-backward (concat "^" footnote-section-tag-regexp))
            (forward-line 1))
-       (error "I don't see a footnote here.")))))
+       (error "I don't see a footnote here")))))
 
 (defun Footnote-back-to-message (&optional arg)
   "Move cursor back to footnote referent.
@@ -752,4 +755,5 @@ key         binding
 
 (provide 'footnote)
 
+;;; arch-tag: 9bcfb6d7-2161-4caf-8793-700f62400398
 ;;; footnote.el ends here