emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: footnote-style latin doesn't renumber


From: martin rudalics
Subject: Re: footnote-style latin doesn't renumber
Date: Wed, 11 Apr 2007 14:48:17 +0200
User-agent: Mozilla Thunderbird 1.0 (Windows/20041206)

Thanks for the precise report.

Is the setting

(defconst footnote-latin-regexp "¹²³ºª§¶"
...

correct?

No.  Please try the attached patch.  If my mailer mangles the
characters try to set them by hand (I renamed footnote-latin-regexp
to footnote-latin-string and defined footnote-latin-regexp anew).



*** footnote.el Tue Jan 23 06:41:02 2007
--- footnote.el Wed Apr 11 14:36:44 2007
***************
*** 267,280 ****

  ;; Latin-1

! (defconst footnote-latin-regexp "¹²³ºª§¶"
    "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)))))

  ;;; list of all footnote styles
  (defvar footnote-style-alist
--- 267,283 ----

  ;; Latin-1

! (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-string
!               (mod (1- n) (length footnote-latin-string)))))

  ;;; list of all footnote styles
  (defvar footnote-style-alist
***************
*** 654,660 ****
        (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))
          (Footnote-renumber (car alist-ptr) (1+ i) alist-ptr alist-txt))
        (setq i (1+ i))))))

--- 657,663 ----
        (while (< i notes)
        (setq alist-ptr (nth i footnote-pointer-marker-alist))
        (setq alist-txt (nth i footnote-text-marker-alist))
!       (unless (= (1+ i) (car alist-ptr))
          (Footnote-renumber (car alist-ptr) (1+ i) alist-ptr alist-txt))
        (setq i (1+ i))))))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]