procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Restore XEmacs compatibility

Browse source 
* textmodes/reftex-vars.el (featurep): Conditionalize value of
reftex-label-regexps in order to stay compatible with XEmacs 25
which has no explicitly numbered groups in regexps (bug#19714).
This commit is contained in:
Tassilo Horn 2015-01-29 15:51:40 +01:00
parent b75358e98f
commit c4c447d8cc
2 changed files with 24 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2015-01-29 Tassilo Horn <tsdh@gnu.org>
* textmodes/reftex-vars.el (featurep): Conditionalize value of
reftex-label-regexps in order to stay compatible with XEmacs 25
which has no explicitly numbered groups in regexps (bug#19714).
2015-01-28 Tassilo Horn <tsdh@gnu.org> 2015-01-28 Tassilo Horn <tsdh@gnu.org>
* textmodes/reftex.el (reftex-syntax-table-for-bib): Give ( and ) * textmodes/reftex.el (reftex-syntax-table-for-bib): Give ( and )

6
lisp/textmodes/reftex-vars.el
View file

@ -866,6 +866,10 @@ DOWNCASE t: Downcase words before using them."
(string :tag "")) (string :tag ""))
(option (boolean :tag "Downcase words ")))) (option (boolean :tag "Downcase words "))))
(if (featurep 'xemacs)
;; XEmacs 25 doesn't have explicitly numbered matching groups, so
;; this list mustn't get any more items.
(defconst reftex-label-regexps '("\\\\label{\\([^}]*\\)}"))
(defcustom reftex-label-regexps (defcustom reftex-label-regexps
'(;; Normal \\label{foo} labels '(;; Normal \\label{foo} labels
"\\\\label{\\(?1:[^}]*\\)}" "\\\\label{\\(?1:[^}]*\\)}"
@ -887,7 +891,7 @@ effective."
(when (fboundp 'reftex-compile-variables) (when (fboundp 'reftex-compile-variables)
(reftex-compile-variables))) (reftex-compile-variables)))
:group 'reftex-defining-label-environments :group 'reftex-defining-label-environments
:type '(repeat (regexp :tag "Regular Expression"))) :type '(repeat (regexp :tag "Regular Expression"))))
(defcustom reftex-label-ignored-macros-and-environments nil (defcustom reftex-label-ignored-macros-and-environments nil
"List of macros and environments to be ignored when searching for labels. "List of macros and environments to be ignored when searching for labels.