[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: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/footnote.el,v |
Date: |
Sun, 15 Apr 2007 17:25:36 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 07/04/15 17:25:36
Index: footnote.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/footnote.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- footnote.el 15 Apr 2007 17:21:21 -0000 1.17
+++ footnote.el 15 Apr 2007 17:25:36 -0000 1.18
@@ -294,7 +294,7 @@
exciting styles.")
(defcustom footnote-style 'numeric
- "*Default style used for footnoting.
+ "*Style used for footnoting.
numeric == 1, 2, 3, ...
english-lower == a, b, c, ...
english-upper == A, B, C, ...
@@ -306,10 +306,6 @@
footnote-style-alist))
:group 'footnote)
-(defvar footnote-current-style
- "Style used for footnoting in the current buffer.
-The possible values are the same as in `footnote-style'.")
-
;;; Style utilities & functions
(defun Footnote-style-p (style)
"Return non-nil if style is a valid style known to footnote-mode."
@@ -318,14 +314,14 @@
(defun Footnote-index-to-string (index)
"Convert a binary index into a string to display as a footnote.
Conversion is done based upon the current selected style."
- (let ((alist (if (Footnote-style-p footnote-current-style)
- (assq footnote-current-style footnote-style-alist)
+ (let ((alist (if (Footnote-style-p footnote-style)
+ (assq footnote-style footnote-style-alist)
(nth 0 footnote-style-alist))))
(funcall (nth 1 alist) index)))
(defun Footnote-current-regexp ()
"Return the regexp of the index of the current style."
- (concat (nth 2 (or (assq footnote-current-style footnote-style-alist)
+ (concat (nth 2 (or (assq footnote-style footnote-style-alist)
(nth 0 footnote-style-alist))) "*"))
(defun Footnote-refresh-footnotes (&optional index-regexp)
@@ -382,13 +378,13 @@
(defun Footnote-cycle-style ()
"Select next defined footnote style."
(interactive)
- (let ((old (Footnote-assoc-index footnote-current-style
footnote-style-alist))
+ (let ((old (Footnote-assoc-index footnote-style footnote-style-alist))
(max (length footnote-style-alist))
idx)
(setq idx (1+ old))
(when (>= idx max)
(setq idx 0))
- (setq footnote-current-style (car (nth idx footnote-style-alist)))
+ (setq footnote-style (car (nth idx footnote-style-alist)))
(Footnote-refresh-footnotes (nth 2 (nth old footnote-style-alist)))))
(defun Footnote-set-style (&optional style)
@@ -397,7 +393,7 @@
(list (intern (completing-read
"Footnote Style: "
obarray #'Footnote-style-p 'require-match))))
- (setq footnote-current-style style))
+ (setq footnote-style style))
;; Internal functions
(defun Footnote-insert-numbered-footnote (arg &optional mousable)
@@ -737,7 +733,7 @@
(> (prefix-numeric-value arg) 0)))
(when footnote-mode
;; (Footnote-setup-keybindings)
- (set (make-local-variable 'footnote-current-style) footnote-style)
+ (make-local-variable 'footnote-style)
(if (fboundp 'force-mode-line-update)
(force-mode-line-update)
(set-buffer-modified-p (buffer-modified-p)))