lisp/textmodes/bibtex.el: small bug fixes

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d503171245d852dd10b25281a7526032fddad204..b4334e18a38f10b51f451724fb0cf50fa3434859 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-07-12  Roland Winkler  <winkler@gnu.org>
+
+       * textmodes/bibtex.el (bibtex-initialize): Use
+       pop-to-buffer-same-window.
+       (bibtex-search-entries): Fix interactive call.
+
 2011-07-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * progmodes/compile.el (compilation-error-regexp-alist-alist):

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 930d3200234566e4bb899e882e4c0fa550036064..a660bdb6488330b3ac9271d8c9ddc2e509024415 100644 (file)
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -3060,7 +3060,7 @@ When called interactively, FORCE is t, CURRENT is t if current buffer uses
     ;; select BibTeX buffer
     (if select
         (if buffer-list
-            (switch-to-buffer
+            (pop-to-buffer-same-window
              (completing-read "Switch to BibTeX buffer: "
                               (mapcar 'buffer-name buffer-list)
                               nil t
@@ -5179,7 +5179,7 @@ where FILE is the BibTeX file of ENTRY."
           (delete-dups
            (apply 'append
                   bibtex-user-optional-fields
-                  (mapcar (lambda (x) (mapcar 'car (apply 'append (cdr x))))
+                  (mapcar (lambda (x) (mapcar 'car (apply 'append (nthcdr 2 x))))
                           bibtex-entry-alist))) nil t)
          (read-string "Regexp: ")
          (if bibtex-search-entry-globally