unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* [usenet@pusto.de: minor bug in footnote.el]
@ 2007-10-31  7:46 Richard Stallman
  2007-11-01  4:04 ` Glenn Morris
  0 siblings, 1 reply; 7+ messages in thread
From: Richard Stallman @ 2007-10-31  7:46 UTC (permalink / raw)
  To: emacs-devel

[I sent this message a week ago but did not get a response.]

Would someone please DTRT and ack?

------- Start of forwarded message -------
X-Spam-Status: No, score=-0.0 required=5.0 tests=SPF_HELO_PASS,SPF_PASS,
	UNPARSEABLE_RELAY autolearn=failed version=3.1.0
Mail-Followup-To: emacs-devel@gnu.org
To: emacs-devel@gnu.org
From: Eduard Wiebe <usenet@pusto.de>
Date: Wed, 17 Oct 2007 23:19:38 +0200
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
Mail-Copies-To: never
Subject: minor bug in footnote.el

- --=-=-=


 Hi all,

The mini bug occurs by switching footnote marks of more than one
characters from roman-lower to roman-upper style.

For example try this:

(progn
  (point-max)
  (newline 2)
  (footnote-mode 1)
  (Footnote-set-style 'roman-lower)
  (insert "eins")
  (Footnote-add-footnote)
  (insert "must I after cyclic style change")
  (Footnote-back-to-message)
  (insert " zwei")
  (Footnote-add-footnote)
  (insert "must II after cyclic style change")
  (Footnote-back-to-message)
  (Footnote-cycle-style)
  (footnote-mode -1))

My simple patch follows

- --=-=-=
Content-Type: text/x-patch
Content-Disposition: inline; filename=footnote.diff

- --- footnote.el	26 Jul 2007 07:27:12 +0200	1.20
+++ footnote.el	17 Oct 2007 22:09:06 +0200	
@@ -344,7 +344,7 @@
 	  (search-backward footnote-start-tag nil t)
 	  (when (looking-at (concat
 			     (regexp-quote footnote-start-tag)
- -			     "\\(" index-regexp "\\)"
+			     "\\(" index-regexp "+\\)"
 			     (regexp-quote footnote-end-tag)))
 	    (replace-match (concat
 			    footnote-start-tag
@@ -360,7 +360,7 @@
 	(goto-char (cdr alist))
 	(when (looking-at (concat
 			   (regexp-quote footnote-start-tag)
- -			   "\\(" index-regexp "\\)"
+			   "\\(" index-regexp "+\\)"
 			   (regexp-quote footnote-end-tag)))
 	  (replace-match (concat
 			  footnote-start-tag

- --=-=-=


GNU Emacs 22.1.1 (i386-pc-freebsd, GTK+ Version 2.10.14)
- -- 
Eduard Wiebe

- --=-=-=
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
- --=-=-=--
------- End of forwarded message -------

^ permalink raw reply	[flat|nested] 7+ messages in thread
* [usenet@pusto.de: minor bug in footnote.el]
@ 2007-10-23  7:12 Richard Stallman
  0 siblings, 0 replies; 7+ messages in thread
From: Richard Stallman @ 2007-10-23  7:12 UTC (permalink / raw)
  To: emacs-devel

Would someone please DTRT and ack?

------- Start of forwarded message -------
X-Spam-Status: No, score=-0.0 required=5.0 tests=SPF_HELO_PASS,SPF_PASS,
	UNPARSEABLE_RELAY autolearn=failed version=3.1.0
Mail-Followup-To: emacs-devel@gnu.org
To: emacs-devel@gnu.org
From: Eduard Wiebe <usenet@pusto.de>
Date: Wed, 17 Oct 2007 23:19:38 +0200
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
Mail-Copies-To: never
Subject: minor bug in footnote.el

- --=-=-=


 Hi all,

The mini bug occurs by switching footnote marks of more than one
characters from roman-lower to roman-upper style.

For example try this:

(progn
  (point-max)
  (newline 2)
  (footnote-mode 1)
  (Footnote-set-style 'roman-lower)
  (insert "eins")
  (Footnote-add-footnote)
  (insert "must I after cyclic style change")
  (Footnote-back-to-message)
  (insert " zwei")
  (Footnote-add-footnote)
  (insert "must II after cyclic style change")
  (Footnote-back-to-message)
  (Footnote-cycle-style)
  (footnote-mode -1))

My simple patch follows

- --=-=-=
Content-Type: text/x-patch
Content-Disposition: inline; filename=footnote.diff

- --- footnote.el	26 Jul 2007 07:27:12 +0200	1.20
+++ footnote.el	17 Oct 2007 22:09:06 +0200	
@@ -344,7 +344,7 @@
 	  (search-backward footnote-start-tag nil t)
 	  (when (looking-at (concat
 			     (regexp-quote footnote-start-tag)
- -			     "\\(" index-regexp "\\)"
+			     "\\(" index-regexp "+\\)"
 			     (regexp-quote footnote-end-tag)))
 	    (replace-match (concat
 			    footnote-start-tag
@@ -360,7 +360,7 @@
 	(goto-char (cdr alist))
 	(when (looking-at (concat
 			   (regexp-quote footnote-start-tag)
- -			   "\\(" index-regexp "\\)"
+			   "\\(" index-regexp "+\\)"
 			   (regexp-quote footnote-end-tag)))
 	  (replace-match (concat
 			  footnote-start-tag

- --=-=-=


GNU Emacs 22.1.1 (i386-pc-freebsd, GTK+ Version 2.10.14)
- -- 
Eduard Wiebe

- --=-=-=
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
- --=-=-=--
------- End of forwarded message -------

^ permalink raw reply	[flat|nested] 7+ messages in thread

end of thread, other threads:[~2007-11-02  2:06 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2007-10-31  7:46 [usenet@pusto.de: minor bug in footnote.el] Richard Stallman
2007-11-01  4:04 ` Glenn Morris
2007-11-01 19:04   ` Richard Stallman
2007-11-01 19:25     ` Stefan Monnier
2007-11-02  2:06       ` Richard Stallman
2007-11-01 19:51     ` Glenn Morris
  -- strict thread matches above, loose matches on Subject: below --
2007-10-23  7:12 Richard Stallman

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).