From 57ec4af047b914b8ff493f3f072fbb84a52ed11c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 27 Jun 1999 23:36:46 +0000 Subject: [PATCH] (reftex-pop-to-bibtex-entry): don't pop up a frame when `return' is requested (even if pop-up-frames = t) --- lisp/textmodes/reftex.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el index 16799662d94..22c19a7381c 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el @@ -4100,17 +4100,16 @@ During a selection process, these are the local bindings. (concat "\\\\bibitem\\(\\[[^]]*\\]\\)?{" (regexp-quote key) "}") (concat "@[a-zA-Z]+[ \t\n\r]*[{(][ \t\n\r]*" (regexp-quote key) "[, \t\r\n}]"))) - (window-conf (current-window-configuration)) + (buffer-conf (current-buffer)) file buf) (catch 'exit - (switch-to-buffer-other-window (current-buffer)) (while file-list (setq file (car file-list) file-list (cdr file-list)) (unless (setq buf (reftex-get-file-buffer-force file mark-to-kill)) (error "No such file %s" file)) - (switch-to-buffer buf) + (set-buffer buf) (widen) (goto-char (point-min)) (when (re-search-forward re nil t) @@ -4120,13 +4119,15 @@ During a selection process, these are the local bindings. (if item (goto-char (match-end 0))) (setq return (buffer-substring (point) (reftex-end-of-bib-entry item))) - (set-window-configuration window-conf) + (set-buffer buffer-conf) (throw 'exit return)) + (switch-to-buffer-other-window buffer-conf) + (switch-to-buffer buf) (recenter 0) (if highlight (reftex-highlight 0 (match-beginning 0) (match-end 0))) (throw 'exit (selected-window)))) - (set-window-configuration window-conf) + (set-buffer buffer-conf) (if item (error "No \\bibitem with citation key %s" key) (error "No BibTeX entry with citation key %s" key))))) -- 2.39.2