[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Troubles with footnote-mode
From: |
Michaël Cadilhac |
Subject: |
Re: Troubles with footnote-mode |
Date: |
Sun, 23 Apr 2006 21:06:12 +0200 |
User-agent: |
Gnus/5.110005 (No Gnus v0.5) Emacs/22.0.50 (gnu/linux) |
Tassilo Horn <heimdall@uni-koblenz.de> writes:
> Hi,
>
> I often use footnote-mode when writing postings. The only configurations
> I made are these:
>
> ,----[ from ~/.emacs ]
> | (add-hook 'message-mode-hook 'footnote-mode)
> | (setq footnote-spaced-footnotes nil)
> `----
>
> The problem with that is, that all footnotes after the first one appear
> below the signature.
>
> So here's a test (see footnotes below): [1], this one is ok. [2], below
> sig. [3], below sig. After the second footnote, jumping back to the text
> (C-c ! b, `Footnote-back-to-message') doesn't work, too.
Does the following fix your bug?
Index: lisp/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.9434
diff -b -c -w -r1.9434 ChangeLog
*** lisp/ChangeLog 22 Apr 2006 23:39:47 -0000 1.9434
--- lisp/ChangeLog 23 Apr 2006 19:04:13 -0000
***************
*** 1,3 ****
--- 1,8 ----
+ 2006-04-23 Michaël Cadilhac <michael.cadilhac@lrde.org> (tiny change)
+
+ * mail/footnote.el (Footnote-insert-footnote): Fix the search of the
+ last footnote when `footnote-spaced-footnotes' is nil.
+
2006-04-23 Romain Francoise <romain@orebokech.com>
* comint.el (comint-match-partial-filename): Doc fix.
Index: lisp/mail/footnote.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/footnote.el,v
retrieving revision 1.12
diff -b -c -w -r1.12 footnote.el
*** lisp/mail/footnote.el 6 Feb 2006 12:31:40 -0000 1.12
--- lisp/mail/footnote.el 23 Apr 2006 19:04:13 -0000
***************
*** 501,507 ****
(regexp-quote footnote-end-tag)))
nil t)
(unless (beginning-of-line) t))
! (goto-char (point-max)))))
(unless (looking-at "^$")
(insert "\n"))
(when (eobp)
--- 501,508 ----
(regexp-quote footnote-end-tag)))
nil t)
(unless (beginning-of-line) t))
! (Footnote-goto-char-point-max)
! (re-search-backward (concat "^" footnote-section-tag-regexp)
nil t))))
(unless (looking-at "^$")
(insert "\n"))
(when (eobp)
--
| Michaël `Micha' Cadilhac | Would someone please DTRT with this |
| Epita/LRDE Promo 2007 | then ACK? |
| http://www.lrde.org/~cadilh_m | -- Richard Stallman |
`-- - JID: micha@amessage.be --' - --'
pgpGvhs5JQMHf.pgp
Description: PGP signature