[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/footnote.el,v
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/footnote.el,v |
Date: |
Fri, 13 Apr 2007 05:53:27 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Martin Rudalics <m061211> 07/04/13 05:53:27
Index: footnote.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/footnote.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- footnote.el 21 Jan 2007 02:59:07 -0000 1.15
+++ footnote.el 13 Apr 2007 05:53:27 -0000 1.16
@@ -267,14 +267,17 @@
;; Latin-1
-(defconst footnote-latin-regexp "¹²³ºª§¶"
+(defconst footnote-latin-string "¹²³ºª§¶"
+ "String of Latin-1 footnoting characters.")
+
+(defconst footnote-latin-regexp (concat "[" footnote-latin-string "]")
"Regexp for Latin-1 footnoting characters.")
(defun Footnote-latin (n)
"Latin-1 footnote style.
Use a range of Latin-1 non-ASCII characters for footnoting."
- (string (aref footnote-latin-regexp
- (mod (1- n) (length footnote-latin-regexp)))))
+ (string (aref footnote-latin-string
+ (mod (1- n) (length footnote-latin-string)))))
;;; list of all footnote styles
(defvar footnote-style-alist
@@ -654,7 +657,7 @@
(while (< i notes)
(setq alist-ptr (nth i footnote-pointer-marker-alist))
(setq alist-txt (nth i footnote-text-marker-alist))
- (unless (eq (1+ i) (car alist-ptr))
+ (unless (= (1+ i) (car alist-ptr))
(Footnote-renumber (car alist-ptr) (1+ i) alist-ptr alist-txt))
(setq i (1+ i))))))
- [Emacs-diffs] Changes to emacs/lisp/mail/footnote.el,v,
Martin Rudalics <=