-;;; footnote.el --- footnote support for message mode -*- coding: utf-8;-*-
+;;; footnote.el --- footnote support for message mode
-;; Copyright (C) 1997, 2000-2013 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2000-2016 Free Software Foundation, Inc.
;; Author: Steven L Baur <steve@xemacs.org>
;; Keywords: mail, news
(defcustom footnote-mode-line-string " FN"
"String to display in modes section of the mode-line."
+ :type 'string
:group 'footnote)
(defcustom footnote-mode-hook nil
"Prefix key to use for Footnote command in Footnote minor mode.
The value of this variable is checked as part of loading Footnote mode.
After that, changing the prefix key requires manipulating keymaps."
- ;; FIXME: the type should be a key-sequence, but it seems Custom
- ;; doesn't support that yet.
- ;; :type 'string
- )
+ :type 'key-sequence
+ :group 'footnote)
;;; Interface variables that probably shouldn't be changed
end
(point-max))))
(Footnote-goto-char-point-max)
- (when (looking-back "\n\n")
+ (when (looking-back "\n\n" (- (point) 2))
(kill-line -1))))))))
(defun Footnote-renumber-footnotes (&optional arg)
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
-Footnode mode is a buffer-local minor mode. If enabled, it
+Footnote mode is a buffer-local minor mode. If enabled, it
provides footnote support for `message-mode'. To get started,
play around with the following keys:
\\{footnote-minor-mode-map}"