Re: problems with fi-add-Footnote

>>>>> "Andreas" == Andreas Roehler <andreas.roehler(a)online.de&gt; 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