summaryrefslogtreecommitdiff
path: root/lisp/textmodes/reftex-dcr.el
diff options
context:
space:
mode:
authorCarsten Dominik <dominik@science.uva.nl>2000-06-20 12:52:00 +0000
committerCarsten Dominik <dominik@science.uva.nl>2000-06-20 12:52:00 +0000
commitd8fb2015454acbb684137fb78f8dea954b601795 (patch)
treee0b7b39c04de221c48b09a9779a704b59e403ad7 /lisp/textmodes/reftex-dcr.el
parent15e425312806d8cf6456ae78f666b2147e4c8660 (diff)
downloademacs-d8fb2015454acbb684137fb78f8dea954b601795.tar.gz
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Support for bibentry. (reftex-compile-variables): Fixed problem with end of section-re. * texmodes/reftex-dcr.el (reftex-view-crossref, reftex-view-crossref-from-bibtex): Deal with changed `reftex-find-citation-regexp-format'. (reftex-view-regexp-match, reftex-view-crossref-from-bibtex): Replaced `remprop' with `put'. (reftex-view-crossref, reftex-view-crossref-when-idle): Support for bibentry. * textmodes/reftex-vars.el (reftex-cite-format-builtin): New entry for bibentry package. * textmodes/reftex-parse.el (reftex-locate-bibliography-files): Regexp also matches "\nobibliography". * textmodes/reftex-global.el (reftex-renumber-simple-labels): Call `reftex-ensure-write-access' before doing anything. (reftex-ensure-write-access): New function.
Diffstat (limited to 'lisp/textmodes/reftex-dcr.el')
-rw-r--r--lisp/textmodes/reftex-dcr.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el
index 60045bafc76..10dd5343c51 100644
--- a/lisp/textmodes/reftex-dcr.el
+++ b/lisp/textmodes/reftex-dcr.el
@@ -2,7 +2,7 @@
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.11
+;; Version: 4.14
;;
;; This file is part of GNU Emacs.
@@ -56,7 +56,7 @@ 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\\*?\\'" macro)
+ ((string-match "\\`\\\\cite\\|cite\\*?\\'\\|bibentry" macro)
;; 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)
@@ -75,7 +75,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
(reftex-access-scan-info arg)
(setq dw (reftex-view-regexp-match
(format reftex-find-citation-regexp-format (regexp-quote key))
- 3 nil nil)))
+ 4 nil nil)))
((member macro reftex-macros-with-index)
(reftex-access-scan-info arg)
(setq dw (reftex-view-regexp-match
@@ -238,7 +238,7 @@ With argument, actually select the window showing the cross reference."
;; FIXME: Can fail with backslash in comment
(save-excursion
(search-backward "\\" nil t)
- (looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\)"))
+ (looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)"))
(condition-case nil
(let ((current-prefix-arg nil))
@@ -357,7 +357,7 @@ Calling this function several times find successive citation locations."
(interactive "P")
(when arg
;; Break connection to reference buffer
- (remprop 'reftex-bibtex-view-cite-locations :ref-buffer))
+ (put 'reftex-bibtex-view-cite-locations :ref-buffer nil))
(let ((ref-buffer (get 'reftex-bibtex-view-cite-locations :ref-buffer)))
;; Establish connection to reference buffer
(unless ref-buffer
@@ -382,7 +382,7 @@ Calling this function several times find successive citation locations."
(reftex-view-regexp-match
(format reftex-find-citation-regexp-format
(regexp-quote (match-string 1)))
- 3 arg ref-buffer))
+ 4 arg ref-buffer))
(error "Cannot find citation key in BibTeX entry"))))
(defun reftex-view-regexp-match (re &optional highlight-group new ref-buffer)
@@ -418,7 +418,7 @@ Calling this function several times find successive citation locations."
(match-end highlight-group))
(add-hook 'pre-command-hook 'reftex-highlight-shall-die)
(setq pop-window (selected-window)))
- (remprop 'reftex-view-regexp-match :props)
+ (put 'reftex-view-regexp-match :props nil)
(or cont (set-window-configuration window-conf)))
(select-window current-window)
(if match