Package: auctex;
Reported by: gusbrs.2016 <at> gmail.com
Date: Thu, 12 Apr 2018 06:06:02 UTC
Severity: normal
Done: Arash Esbati <arash <at> gnu.org>
Bug is archived. No further changes may be made.
View this message in rfc822 format
From: Gustavo Barros <gusbrs.2016 <at> gmail.com> To: Arash Esbati <arash <at> gnu.org> Cc: 31132 <at> debbugs.gnu.org Subject: bug#31132: AUCTeX, RefTeX and biblatex's multicite commands Date: Sat, 21 Apr 2018 21:54:21 -0300
Hi Arash,
I did observe something else, as I closed my file after testing, and was
cleaning up things.
I had observed the behavior before, but was unsure if my "noobiness" was
to blame. (So please be understanding).
The behavior is the following. When I first open the file, if I try to
issue 'C-c &' on a multicite command key, it returns "Not on a crossref
macro argument". 'C-c [' works though. And *after* I have either issued
'C-c [' on a key or issued successfully 'C-c &' on a regular citation
command, then 'C-c &' will work also on multicite commands.
It's a small glitch in my view, and was somehow hard to spot. But I can
reproduce this behavior with the test file I sent previously.
Sorry for the previous incomplete report. But I only could figure the
logic of what was going on, after I closed and reopened things.
Thank you once again.
Best,
gusbrs
On 21/04/18 21:29, Gustavo Barros wrote:
> Hi Arash,
>
> thank you very much for the patches. They are really appreciated.
> And sorry for the delay in reporting back. I didn't have the time
> these last couple of days to look at this with due care.
>
> I've performed some tests with the patches you sent on the full set of
> biblatex's citation commands, and can gladly report that both "C-c &"
> (reftex-view-crossref) and "C-c [" (reftex-citation) (when issued on
> the key of an existing citation command) work flawlessly on all of them.
>
> But, in performing the tests, I observed some other things associated
> with biblatex's citation commands (some related to this issue, some
> not) that I might as well report too, in the hope they will be useful.
> As a regular biblatex user, I consider them minor.
>
> 1 - The multicite variants of 'volcite' are neither fontified nor call
> RefTeX when inserted (with "C-c RET"). They are inserted "plain" but,
> once inserted, "C-c [" will work on them. They are the following:
> -volcites
> -Volcites
> -pvolcites
> -Pvolcites
> -fvolcites
> -Fvolcites
> -svolcites
> -Svolcites
> -tvolcites
> -Tvolcites
> -avolcites
> -Avolcites
>
> 2 - A couple of 'volcite' variants are fontified, but don't call
> RefTeX when inserted:
> -pvolcite
> -ftvolcite
>
> 3 - One command is not fontified:
> -footfullcite
>
> 4 - 'mcite'-like citation commands are neither fontified, nor call
> RefTeX when inserted:
> -mcite
> -Mcite
> -mparencite
> -Mparencite
> -mfootcite
> -mfootcitetext
> -mtextcite
> -Mtextcite
>
>
> I can report something else too. In the last couple of weeks, for all
> the critical issues for my regular workflow with LaTeX I found my way
> around with Emacs, so I think the "potential deal breakers" are
> overcome. Even though I'm clearly still in the steep part of the
> learning curve with Emacs, I do believe I've been hooked. Still
> struggling, but already bewitched. :)
> So I'm looking forward to sticking around.
>
> Thank you very much once again.
>
> Best,
> gusbrs
>
>
> PS: The test file used was the following:
>
> \documentclass{article}
>
> \begin{filecontents}{biblatex-bib.bib}
> @book{lamp:94,
> author = {Leslie Lamport},
> title = {LaTeX - {A} Document Preparation System: User's Guide
> and Reference Manual, Second Edition},
> publisher = {Pearson / Prentice Hall},
> year = {1994},
> isbn = {978-0-201-52983-8},
> timestamp = {Fri, 08 Apr 2011 18:21:00 +0200},
> }
>
> @book{mitt:97,
> author = {Michel Goossens and
> Sebastian Rahtz and
> Frank Mittelbach},
> title = {The LaTeX Graphics Companion - Illustrating documents
> with TeX and PostScript},
> series = {Addison-Wesley series on tools and techniques
> for computer typesetting},
> publisher = {Addison-Wesley},
> year = {1997},
> isbn = {978-0-201-85469-5},
> }
> \end{filecontents}
>
> \usepackage[style=authoryear, natbib=true, mcite=true]{biblatex}
>
> \addbibresource{biblatex-bib.bib}
>
> \begin{document}
>
> % Standard commands
> \cite[pre][pos]{mitt:97}
> \Cite[pre][pos]{lamp:94}
> \parencite[pre][pos]{mitt:97}
> \Parencite[pre][pos]{lamp:94}
> \footcite[pre][pos]{mitt:97}
> \footcitetext[pre][pos]{lamp:94}
> % Style specific commands
> \textcite[pre][pos]{mitt:97}
> \Textcite[pre][pos]{lamp:94,}
> \smartcite[pre][pos]{mitt:97}
> \Smartcite[pre][pos]{lamp:94}
> \cite*[pre][pos]{mitt:97}
> \parencite*[pre][pos]{lamp:94}
> % \supercite{mitt:97}
> % Qualified citation lists
> \cites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}[pre][pos]{lamp:94}
>
> \Cites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> \parencites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> \Parencites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> \footcites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> \footcitetexts(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> \smartcites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> \Smartcites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> \textcites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> \Textcites(gpre)(gpos)[pre][pos]{lamp:94}[pre][pos]{mitt:97}
> % \supercites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> % Style independent commands
> \autocite[pre][pos]{mitt:97}
> \Autocite[pre][pos]{lamp:94}
> \autocite*[pre][pos]{mitt:97}
> \Autocite*[pre][pos]{lamp:94}
> \autocites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> \Autocites(gpre)(gpos)[pre][pos]{mitt:97}[pre][pos]{lamp:94}
> % Text commands
> \citeauthor[pre][pos]{mitt:97}
> \citeauthor*[pre][pos]{mitt:97}
> \Citeauthor[pre][pos]{lamp:94}
> \Citeauthor*[pre][pos]{lamp:94}
> \citetitle[pre][pos]{mitt:97,lamp:94}
> \citetitle*[pre][pos]{lamp:94}
> \citeyear[pre][pos]{mitt:97}
> \citeyear*[pre][pos]{lamp:94}
> \citedate[pre][pos]{mitt:97}
> \citedate*[pre][pos]{lamp:94}
> \citeurl[pre][pos]{mitt:97}
> % Special commands
> \nocite{mitt:97}
> \fullcite[pre][pos]{lamp:94}
> \footfullcite[pre][pos]{mitt:97}
> \volcite[pre]{2}[pg]{mitt:97}
> \Volcite[pre]{1}[pg]{lamp:94}
> \volcites(gpre)(gpos)[pre]{2}[pg]{lamp:94}[pre]{1}[pg]{mitt:97}
> \Volcites(gpre)(gpos)[pre]{2}[pg]{mitt:97}[pre]{2}[pg]{lamp:94}
> \pvolcite[pre]{1}[pg]{lamp:94}
> \Pvolcite[pre]{2}[pg]{mitt:97}
> \pvolcites(gpre)(gpos)[pre]{1}[pg]{mitt:97}[pre]{2}[pg]{lamp:94}
> \Pvolcites(gpre)(gpos)[pre]{3}[pg]{lamp:94}[pre]{1}[pg]{mitt:97}
> \fvolcite[pre]{3}[pg]{lamp:94}
> \ftvolcite[pre]{3}[pg]{lamp:94}
> \fvolcites(gpre)(gpos)[pre]{3}[pg]{mitt:97}[pre]{2}[pg]{lamp:94}
> \Fvolcites(gpre)(gpos)[pre]{2}[pg]{lamp:94}[pre]{3}[pg]{mitt:97}
> \svolcite[pre]{2}[pg]{lamp:94}
> \Svolcite[pre]{4}[pg]{mitt:97}
> \svolcites(gpre)(gpos)[pre]{3}[pg]{mitt:97}[pre]{2}[pg]{lamp:94}
> \Svolcites(gpre)(gpos)[pre]{3}[pg]{mitt:97}[pre]{2}[pg]{lamp:94}
> \tvolcite[pre]{5}[pg]{mitt:97}
> \Tvolcite[pre]{2}[pg]{lamp:94}
> \tvolcites(gpre)(gpos)[pre]{2}[pg]{lamp:94}[pre]{3}[pg]{mitt:97}
> \Tvolcites(gpre)(gpos)[pre]{2}[pg]{lamp:94}[pre]{3}[pg]{mitt:97}
> \avolcite[pre]{3}[pg]{lamp:94}
> \Avolcite[pre]{1}[pg]{mitt:97}
> \avolcites(gpre)(gpos)[pre]{2}[pg]{lamp:94}[pre]{1}[pg]{mitt:97}
> \Avolcites(gpre)(gpos)[pre]{2}[pg]{lamp:94}[pre]{1}[pg]{mitt:97}
> \notecite[pre][pos]{lamp:94}
> \Notecite[pre][pos]{mitt:97}
> \pnotecite[pre][pos]{mitt:97}
> \Pnotecite[pre][pos]{lamp:94}
> \fnotecite[pre][pos]{lamp:94}
> % Low-level commands
> \citename[pre][pos]{lamp:94}{author}
> \citelist[pre][pos]{lamp:94}{publisher}
> \citefield[pre][pos]{lamp:94}{isbn}
> % natbib compatibility commands
> \citet[pre][pos]{mitt:97}
> \citet*[pre][pos]{lamp:94}
> \citep[pre][pos]{lamp:94}
> \citep*[pre][pos]{mitt:97}
> \citealt[pre][pos]{lamp:94}
> \citealt*[pre][pos]{mitt:97}
> \citealp[pre][pos]{mitt:97}
> \citealp*[pre][pos]{lamp:94}
> \Citet[pre][pos]{lamp:94}
> \Citet*[pre][pos]{mitt:97}
> \Citep[pre][pos]{lamp:94}
> \Citep*[pre][pos]{mitt:97}
> % mcite-like citation commands
> \mcite[pre][pos]{lamp:94,mitt:97}
> \Mcite[pre][pos]{mitt:97,lamp:94}
> \mparencite[pre][pos]{lamp:94,mitt:97}
> \Mparencite[pre][pos]{lamp:94,mitt:97}
> \mfootcite[pre][pos]{lamp:94,mitt:97}
> \mfootcitetext[pre][pos]{lamp:94,mitt:97}
> \mtextcite[pre][pos]{lamp:94,mitt:97}
> \Mtextcite[pre][pos]{lamp:94,mitt:97}
> % \msupercite[pre][pos]{lamp:94,mitt:97}
>
> \end{document}
> %%% Local Variables:
> %%% mode: latex
> %%% TeX-master: t
> %%% End:
>
>
>
>
> On 19/04/18 16:45, Arash Esbati wrote:
>> gusbrs.2016 <at> gmail.com writes:
>>
>>> From TeX.SX: https://tex.stackexchange.com/q/425883/105447
>>>
>>>
>>> RefTeX's relations biblatex's multicite commands (such as \parencites,
>>> \footcites, \textcites and so on) leave some things to be desired
>>> for. Namely, they do not seem to be recognized as citation
>>> commands. This results in RefTeX's `reftex-view-crossref` (C-c &)
>>> returning "Not on a crossref macro argument". Also, in adding an extra
>>> bibkey to an already existing multicite command, it is not possible to
>>> access RefTeX's facilities.
>>>
>>> Arash Esbati generously provided patches at TeX.SX that go a long way
>>> in dealing with these problems. However, support for the presence of
>>> global optional arguments (between parentheses) is still missing. At
>>> their request, I write to report this issue.
>> Hi Gusbrs,
>>
>> thanks for the report. I fiddled a little around and I think I have a
>> working setup for this issue. I think with this patch, RefTeX will also
>> recognize referencing commands provided by cleveref.sty.
>>
>> --8<---------------cut here---------------start------------->8---
>> diff --git a/lisp/textmodes/reftex-cite.el
>> b/lisp/textmodes/reftex-cite.el
>> index fd229a6..3f4965a 100644
>> --- a/lisp/textmodes/reftex-cite.el
>> +++ b/lisp/textmodes/reftex-cite.el
>> @@ -763,7 +763,9 @@ in order to only add another reference in the
>> same cite command."
>> (setq format "%l"))
>>
>> ((and (stringp macro)
>> - (string-match "\\`\\\\cite\\|cite\\'" macro))
>> + (string-match "\\`\\\\cite\\|cite\\([s*]\\|texts?\\)?\\'"
>> macro))
>> + ;; Match also commands from biblatex ending with `s' (\cites) or
>> + ;; `*' (\parencite*) and `texts?' (\footcitetext and
>> \footcitetexts).
>> ;; We are already inside a cite macro
>> (if (or (not arg) (not (listp arg)))
>> (setq format
>> diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el
>> index 74a5e63..b93d05d 100644
>> --- a/lisp/textmodes/reftex-dcr.el
>> +++ b/lisp/textmodes/reftex-dcr.el
>> @@ -60,10 +60,13 @@ to the functions `reftex-view-cr-cite' and
>> `reftex-view-cr-ref'."
>> (setq reftex-call-back-to-this-buffer (current-buffer))
>>
>> (cond
>> - ((string-match "\\`\\\\cite\\|cite\\*?\\'\\|bibentry" macro)
>> + ((string-match
>> "\\`\\\\cite\\|cite\\([s*]\\|texts?\\)?\\'\\|bibentry" macro)
>> + ;; Match also commands from biblatex ending with `s'
>> (\cites) or
>> + ;; `*' (\parencite*) and `texts?' (\footcitetext and
>> \footcitetexts).
>> ;; A citation macro: search for bibitems or BibTeX entries
>> (setq dw (reftex-view-cr-cite arg key auto-how)))
>> - ((string-match "\\`\\\\ref\\|ref\\(range\\)?\\*?\\'" macro)
>> + ((string-match "\\`\\\\ref\\|ref\\(s\\|range\\)?\\*?\\'" macro)
>> + ;; Match also commands from cleveref ending with `s'
>> (\namecrefs).
>> ;; A reference macro: search for labels
>> (setq dw (reftex-view-cr-ref arg key auto-how)))
>> (auto-how nil) ;; No further action for automatic display
>> (speed)
>> diff --git a/lisp/textmodes/reftex-parse.el
>> b/lisp/textmodes/reftex-parse.el
>> index 492f546..31e108c 100644
>> --- a/lisp/textmodes/reftex-parse.el
>> +++ b/lisp/textmodes/reftex-parse.el
>> @@ -788,12 +788,13 @@ move backward to the closing parenthesis of the
>> previous argument.
>> This function understands the splitting of macros over several lines
>> in TeX."
>> (cond
>> - ;; Just to be quick:
>> - ((memq (preceding-char) '(?\] ?\})))
>> + ;; Just to be quick: biblatex uses () as delimiters for optional
>> + ;; arguments in qualified citation lists.
>> + ((memq (preceding-char) '(?\] ?\) ?\})))
>> ;; Do a search
>> ((and reftex-allow-detached-macro-args
>> (re-search-backward
>> - "[]}][ \t]*[\n\r]?\\([ \t]*%[^\n\r]*[\n\r]\\)*[ \t]*\\="
>> bound t))
>> + "[])}][ \t]*[\n\r]?\\([ \t]*%[^\n\r]*[\n\r]\\)*[ \t]*\\="
>> bound t))
>> (goto-char (1+ (match-beginning 0)))
>> t)
>> (t nil)))
>> @@ -842,12 +843,22 @@ considered an argument of macro \\macro."
>> (while (and (reftex-move-to-previous-arg bound)
>> (condition-case nil
>> (let ((forward-sexp-function nil))
>> - (backward-sexp) t)
>> + (if (= (preceding-char) ?\))
>> + (let ((temp-table
>> (make-syntax-table)))
>> + (modify-syntax-entry ?\( "()"
>> temp-table)
>> + (modify-syntax-entry ?\) ")("
>> temp-table)
>> + (with-syntax-table temp-table
>> + (backward-sexp)))
>> + (backward-sexp))
>> + t)
>> (error nil)))
>> - (if (eq (following-char) ?\[) (cl-incf cnt-opt))
>> + (if (or (eq (following-char) ?\[)
>> + (eq (following-char) ?\())
>> + (cl-incf cnt-opt))
>> (cl-incf cnt))
>> (setq pos (point))
>> (when (and (or (= (following-char) ?\[)
>> + (= (following-char) ?\()
>> (= (following-char) ?\{))
>> (re-search-backward "\\\\[*a-zA-Z]+\\=" nil t))
>> (setq cmd (reftex-match-string 0))
>> --8<---------------cut here---------------end--------------->8---
>>
>> One thing I don't understand is why (backward-sexp) doesn't work on
>> (Global Pre) arguments. Maybe somebody can enlighten me. For now, I
>> added a trickery with `with-syntax-table'.
>>
>> Further, I think the functions `reftex-move-over-touching-args' and
>> `reftex-move-to-next-arg' must also be patched in order to support
>> optional arguments in parentheses.
>>
>> My test file for this looks like this. In case somebody wants to try
>> this out, the complete functions are inserted below. Any comments
>> welcome.
>>
>>
>> --8<---------------cut here---------------start------------->8---
>> \documentclass{article}
>>
>> \begin{filecontents}{biblatex-bib.bib}
>> @book{lamp:94,
>> author = {Leslie Lamport},
>> title = {LaTeX - {A} Document Preparation System: User's Guide
>> and Reference Manual, Second Edition},
>> publisher = {Pearson / Prentice Hall},
>> year = {1994},
>> isbn = {978-0-201-52983-8},
>> timestamp = {Fri, 08 Apr 2011 18:21:00 +0200},
>> }
>>
>> @book{mitt:97,
>> author = {Michel Goossens and
>> Sebastian Rahtz and
>> Frank Mittelbach},
>> title = {The LaTeX Graphics Companion - Illustrating documents
>> with TeX and PostScript},
>> series = {Addison-Wesley series on tools and techniques
>> for computer typesetting},
>> publisher = {Addison-Wesley},
>> year = {1997},
>> isbn = {978-0-201-85469-5},
>> }
>> \end{filecontents}
>>
>> \usepackage[style=authoryear]{biblatex}
>>
>> \addbibresource{biblatex-bib.bib}
>>
>> \begin{document}
>>
>> %% =============== RefTeX standard
>>
>> \cite{mitt:97}
>> ==> \verb|C-c &| Ok, \verb|C-c [| Ok
>>
>> \cites[Pre][Post]{mitt:97}[Pre][Post]{lamp:94}
>> ==> \verb|C-c &| Ok, \verb|C-c [| Ok
>>
>> \footcitetext[Pre][Post]{mitt:97}
>> ==> \verb|C-c &| NOk, \verb|C-c [| NOk
>>
>> \parencite*[Pre][Post]{mitt:97}
>> ==> \verb|C-c &| Ok, \verb|C-c [| NOk
>>
>> \parencites{mitt:97}
>> \parencites(GPre)()[Pre][]{mitt:97}[Pre][]{lamp:94}
>> \parencites(pre)()[pre][]{mitt:97}
>> \parencites(post)[post]{mitt:97}
>> ==> \verb|C-c &| NOk, \verb|C-c [| NOk
>>
>> %% ============== RefTeX patched
>>
>> \parencites[Pre][Post]{mitt:97}[Pre][Post]{lamp:94}
>> ==> \verb|C-c &| Ok, \verb|C-c [| Ok
>>
>> \parencites(Global Pre)(Global
>> Post)[Pre][Post]{mitt:97}[Pre][Post]{lamp:94}
>> ==> \verb|C-c &| Ok, \verb|C-c [| Ok
>>
>>
>> \begin{verbatim}
>> (defun reftex-view-crossref (&optional arg auto-how fail-quietly)
>> "View cross reference of macro at point. Point must be on the KEY
>> argument. When at a `\\ref' macro, show corresponding `\\label'
>> definition, also in external documents (`xr'). When on a label, show
>> a locations where KEY is referenced. Subsequent calls find additional
>> locations. When on a `\\cite', show the associated `\\bibitem' macro or
>> the BibTeX database entry. When on a `\\bibitem', show a `\\cite' macro
>> which uses this KEY. When on an `\\index', show other locations marked
>> by the same index entry.
>> To define additional cross referencing items, use the option
>> `reftex-view-crossref-extra'. See also
>> `reftex-view-crossref-from-bibtex'.
>> With one or two C-u prefixes, enforce rescanning of the document.
>> With argument 2, select the window showing the cross reference.
>> AUTO-HOW is only for the automatic crossref display and is handed
>> through
>> to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
>>
>> (interactive "P")
>> ;; See where we are.
>> (let* ((macro (car (reftex-what-macro-safe 1)))
>> (key (reftex-this-word "^{}%\n\r, \t"))
>> dw)
>>
>> (if (or (null macro) (reftex-in-comment))
>> (or fail-quietly
>> (error "Not on a crossref macro argument"))
>>
>> (setq reftex-call-back-to-this-buffer (current-buffer))
>>
>> (cond
>> ((string-match
>> "\\`\\\\cite\\|cite\\([s*]\\|texts?\\)?\\'\\|bibentry" macro)
>> ;; Match also commands from biblatex ending with `s'
>> (\cites) or
>> ;; `*' (\parencite*) and `texts?' (\footcitetext and
>> \footcitetexts).
>> ;; A citation macro: search for bibitems or BibTeX entries
>> (setq dw (reftex-view-cr-cite arg key auto-how)))
>> ((string-match "\\`\\\\ref\\|ref\\(s\\|range\\)?\\*?\\'" macro)
>> ;; Match also commands from cleveref ending with `s'
>> (\namecrefs).
>> ;; A reference macro: search for labels
>> (setq dw (reftex-view-cr-ref arg key auto-how)))
>> (auto-how nil) ;; No further action for automatic display
>> (speed)
>> ((or (equal macro "\\label")
>> (member macro reftex-macros-with-labels))
>> ;; A label macro: search for reference macros
>> (reftex-access-scan-info arg)
>> (setq dw (reftex-view-regexp-match
>> (format reftex-find-reference-format (regexp-quote
>> key))
>> 4 nil nil)))
>> ((equal macro "\\bibitem")
>> ;; A bibitem macro: search for citations
>> (reftex-access-scan-info arg)
>> (setq dw (reftex-view-regexp-match
>> (format reftex-find-citation-regexp-format
>> (regexp-quote key))
>> 4 nil nil)))
>> ((member macro reftex-macros-with-index)
>> (reftex-access-scan-info arg)
>> (setq dw (reftex-view-regexp-match
>> (format reftex-find-index-entry-regexp-format
>> (regexp-quote key))
>> 3 nil nil)))
>> (t
>> (reftex-access-scan-info arg)
>> (catch 'exit
>> (let ((list reftex-view-crossref-extra)
>> entry mre action group)
>> (while (setq entry (pop list))
>> (setq mre (car entry)
>> action (nth 1 entry)
>> group (nth 2 entry))
>> (when (string-match mre macro)
>> (setq dw (reftex-view-regexp-match
>> (format action key) group nil nil))
>> (throw 'exit t))))
>> (error "Not on a crossref macro argument"))))
>> (if (and (eq arg 2) (windowp dw)) (select-window dw)))))
>>
>> (defun reftex-figure-out-cite-format (arg &optional no-insert
>> format-key)
>> "Check if there is already a cite command at point and change cite
>> format
>> in order to only add another reference in the same cite command."
>> (let ((macro (car (reftex-what-macro 1)))
>> (cite-format-value (reftex-get-cite-format))
>> key format)
>> (cond
>> (no-insert
>> ;; Format does not really matter because nothing will be
>> inserted.
>> (setq format "%l"))
>>
>> ((and (stringp macro)
>> (string-match "\\`\\\\cite\\|cite\\([s*]\\|texts?\\)?\\'"
>> macro))
>> ;; Match also commands from biblatex ending with `s' (\cites) or
>> ;; `*' (\parencite*) and `texts?' (\footcitetext and
>> \footcitetexts).
>> ;; We are already inside a cite macro
>> (if (or (not arg) (not (listp arg)))
>> (setq format
>> (concat
>> (if (member (preceding-char) '(?\{ ?,))
>> ""
>> reftex-cite-key-separator)
>> "%l"
>> (if (member (following-char) '(?\} ?,))
>> ""
>> reftex-cite-key-separator)))
>> (setq format "%l")))
>> (t
>> ;; Figure out the correct format
>> (setq format
>> (if (and (symbolp cite-format-value)
>> (assq cite-format-value
>> reftex-cite-format-builtin))
>> (nth 2 (assq cite-format-value
>> reftex-cite-format-builtin))
>> cite-format-value))
>> (when (listp format)
>> (setq key
>> (or format-key
>> (reftex-select-with-char
>> "" (concat "SELECT A CITATION FORMAT\n\n"
>> (mapconcat
>> (lambda (x)
>> (format "[%c] %s %s" (car x)
>> (if (> (car x) 31) " " "")
>> (cdr x)))
>> format "\n")))))
>> (if (assq key format)
>> (setq format (cdr (assq key format)))
>> (error "No citation format associated with key `%c'" key)))))
>> format))
>>
>> (defun reftex-move-to-previous-arg (&optional bound)
>> "Assuming that we are in front of a macro argument,
>> move backward to the closing parenthesis of the previous argument.
>> This function understands the splitting of macros over several lines
>> in TeX."
>> (cond
>> ;; Just to be quick: biblatex uses () as delimiters for optional
>> ;; arguments in qualified citation lists.
>> ((memq (preceding-char) '(?\] ?\) ?\})))
>> ;; Do a search
>> ((and reftex-allow-detached-macro-args
>> (re-search-backward
>> "[])}][ \t]*[\n\r]?\\([ \t]*%[^\n\r]*[\n\r]\\)*[ \t]*\\="
>> bound t))
>> (goto-char (1+ (match-beginning 0)))
>> t)
>> (t nil)))
>>
>>
>> (defun reftex-what-macro (which &optional bound)
>> "Find out if point is within the arguments of any TeX-macro.
>> The return value is either (\"\\macro\" . (point)) or a list of them.
>>
>> If WHICH is nil, immediately return nil.
>> If WHICH is 1, return innermost enclosing macro.
>> If WHICH is t, return list of all macros enclosing point.
>> If WHICH is a list of macros, look only for those macros and return the
>> name of the first macro in this list found to enclose point.
>> If the optional BOUND is an integer, bound backwards directed
>> searches to this point. If it is nil, limit to nearest \\section -
>> like statement.
>>
>> This function is pretty stable, but can be fooled if the text contains
>> things like \\macro{aa}{bb} where \\macro is defined to take only one
>> argument. As RefTeX cannot know this, the string \"bb\" would still be
>> considered an argument of macro \\macro."
>> (unless reftex-section-regexp (reftex-compile-variables))
>> (catch 'exit
>> (if (null which) (throw 'exit nil))
>> (let ((bound (or bound (save-excursion (re-search-backward
>> reftex-section-regexp nil 1)
>> (point))))
>> pos cmd-list cmd cnt cnt-opt entry)
>> (save-restriction
>> (save-excursion
>> (narrow-to-region (max (point-min) bound) (point-max))
>> ;; move back out of the current parenthesis
>> (while (condition-case nil
>> (let ((forward-sexp-function nil))
>> (up-list -1) t)
>> (error nil))
>> (setq cnt 1 cnt-opt 0)
>> ;; move back over any touching sexps
>> (while (and (reftex-move-to-previous-arg bound)
>> (condition-case nil
>> (let ((forward-sexp-function nil))
>> (if (= (preceding-char) ?\))
>> (let ((temp-table
>> (make-syntax-table)))
>> (modify-syntax-entry ?\( "()"
>> temp-table)
>> (modify-syntax-entry ?\) ")("
>> temp-table)
>> (with-syntax-table temp-table
>> (backward-sexp)))
>> (backward-sexp))
>> t)
>> (error nil)))
>> (if (or (eq (following-char) ?\[)
>> (eq (following-char) ?\())
>> (cl-incf cnt-opt))
>> (cl-incf cnt))
>> (setq pos (point))
>> (when (and (or (= (following-char) ?\[)
>> (= (following-char) ?\()
>> (= (following-char) ?\{))
>> (re-search-backward "\\\\[*a-zA-Z]+\\=" nil t))
>> (setq cmd (reftex-match-string 0))
>> (when (looking-at "\\\\begin{[^}]*}")
>> (setq cmd (reftex-match-string 0)
>> cnt (1- cnt)))
>> ;; This does ignore optional arguments. Very hard to
>> fix.
>> (when (setq entry (assoc cmd reftex-env-or-mac-alist))
>> (if (> cnt (or (nth 4 entry) 100))
>> (setq cmd nil)))
>> (cond
>> ((null cmd))
>> ((eq t which)
>> (push (cons cmd (point)) cmd-list))
>> ((or (eq 1 which) (member cmd which))
>> (throw 'exit (cons cmd (point))))))
>> (goto-char pos)))
>> (nreverse cmd-list)))))
>>
>> \end{verbatim}
>>
>> \end{document}
>>
>> --8<---------------cut here---------------end--------------->8---
>>
>> Best, Arash
>
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.