Re: problems with fi-add-Footnote
>>>> "Andreas" == Andreas Roehler
<andreas.roehler(a)online.de> writes:
Uwe Brauer wrote:
>
> [1] from [4:10:12] etc
Sure it's possible, but hazardous IMHO. In code where [4:10:12]
occurs
you can't exclude [1], [2] and so on safely.
right
If you can, that's a very specific case.
Well, it was just an example how to write your own function changing
delimiters style.
All you have to care for is to avoid expressions from text.
What about that:
(defun fi-Footnote-set-my-cats-preffered-tags ()
"Example function to set footnote-start- and end-tag. "
(interactive)
(setq footnote-start-tag "«")
(setq footnote-end-tag "»")
(when (interactive-p) (message "footnote start end tags: %s %s"
(concat "\"" footnote-start-tag "\"") (concat
"\"" footnote-end-tag
"\""))))
That is cool didn't think about it.
What do you think about that one [1]
(defun my-Footnote-add-footnote (ch) ;Version-1.226
(interactive "c1: add, 2: fi-add, 3:fi-add-comment ")
(setq ch (downcase ch))
(call-interactively (cond ((eql ch ?1) #'Footnote-add-footnote)
((eql ch ?2) #'fi-Footnote-add-footnote)
((eql ch ?3) #'fi-Footnote-add-commented-footnote)
(t (error 'args-out-of-range '(1 2 3 ch))))))
(defun my-Footnote-change-tags-footnote (ch) ;Version-1.226
(interactive "c1: add, 2: fi-add, 3:fi-add-comment ")
(setq ch (downcase ch))
(call-interactively (cond ((eql ch ?1) #'fi-Footnote-restore-default-tags)
((eql ch ?2) #'fi-Footnote-set-my-clumsy-tags)
((eql ch ?3) #'fi-Footnote-set-my-cats-preffered-tags)
(t (error 'args-out-of-range '(1 2 3 ch))))))
Uwe
Footnotes:
[1] actually that essential parts go back to Steve T
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta