Re: footnote-init: problems and suggestions (was: Local Variables: elementary question)

> Nice to hear. It was sent to emacs-devel that time, later the > assignment-question came across. > As its a bug-fix for XEmacs too, maybe it should be taken here. > Should be installed as a hook and always run first, if > footnode-mode is switched on. After a couple of days of testing I found 3 problems and have 2 suggestions. I will attach my setting below, but I turn on footnode-mode in several mayor modes, one of them LaTeX mode and so far the only problematic one. - when opening a typical latex file with all this headers etc footnote-mode is not on, although it should according to the hook setting. Not a big problem I just turn it on manually.

- (Footnote-init is called by the footnote-mode-hook) so it runs when turning the mode on, however for some bizarre reason footnote-init gets the footstyle wrong. Although default is numeric[1] in latex mode footnote-init selects roman-upper.

I substitute \documentclass[12pt]{article} by \documentclass{article} and rerun footnote-init the style changes to english upper. So how can I set style correctly? Footnote-cyle-style does not help!

- the undo function seems to confuse footnote. Suppose I want to insert a footnote but then call undo, the next time I call footnote-add-footnote the counter has proceed even if I call footnote-init before and this is odd since I thought this function would scan the buffer and set the counter accordingly, but no.

- I find the following useful: insert-footnote, that is [2] will be changed to [2] this footenote will be inserted something of this sort. (defun my-insert-footnote () (interactive) (Footnote-delete-footnote nil) (yank 3)) or may be better to work with registers. - the other generalisation would be to insert footnotes with comment syntax, so something like having a (indent-for-comment) before inserting a footnote, which would lead to % [2] Uwe Brauer Footnotes: [1] which I prefer! %%Footnotes: %% [2] with comments Here is my setting (require 'footnote) ;(autoload 'footnote-mode "footnote" "" t) (defun turn-on-my-footnote-mode () (interactive) (footnote-mode nil)) (add-hook 'mail-mode-hook 'turn-on-my-footnote-mode) (add-hook 'message-mode-hook 'turn-on-my-footnote-mode) (add-hook 'matlab-mode-hook 'turn-on-my-footnote-mode) (add-hook 'LaTeX-mode-hook 'turn-on-my-footnote-mode) (add-hook 'text-mode-hook 'turn-on-my-footnote-mode) (add-hook 'emacs-lisp-mode 'turn-on-my-footnote-mode) (setq footnote-narrow-to-footnotes-when-editing t) ;does not work (defun my-set-footnote-keys () (interactive) (local-set-key [(control right)] 'Footnote-add-footnote) (local-set-key [(control c) right] 'Footnote-cycle-style) (local-set-key [(control c) left] 'footnote-init) (local-set-key [(control c) f31] 'footnote-delete-footnote) (local-set-key [(control f30)] 'Footnote-goto-footnote) (local-set-key [(control left)] 'Footnote-back-to-message)) (add-hook 'footnote-mode-hook 'my-set-footnote-keys) (add-hook 'footnote-mode-hook 'footnote-init) (defun my-set-footnote-style () (interactive) (Footnote-set-style 'numeric)) (add-hook 'footnote-mode-hook 'my-set-footnote-style);;[1] (setq footnote-prefix [(control c) (control n)]) (require 'footnote-init) _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta