Commit c8af70e1 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/files.el (find-file): Use pop-to-buffer-same-window.

* lisp/emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions):
Add switch-to-buffer.

Fixes: debbugs:8911
parent 60c55439
2011-07-04 Stefan Monnier <monnier@iro.umontreal.ca>
* files.el (find-file): Use pop-to-buffer-same-window (bug#8911).
* emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions):
Add switch-to-buffer.
2011-07-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* isearch.el (isearch-search-fun-function): Clarify further the
......@@ -28,7 +34,7 @@
2011-07-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* play/animate.el (animation-buffer-name): Renamed from *animate*.
* play/animate.el (animation-buffer-name): Rename from *animate*.
2011-07-04 Paul Eggert <eggert@cs.ucla.edu>
......@@ -61,7 +67,7 @@
2011-07-03 Chong Yidong <cyd@stupidchicken.com>
* frame.el (frame-background-mode, frame-set-background-mode):
Moved from faces.el.
Move from faces.el.
(frame-default-terminal-background): New function.
* custom.el (custom-push-theme): Don't record faces in `changed'
......@@ -71,7 +77,7 @@
2011-07-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
* dired.el (dired-flagging-regexp): Removed unused variable
* dired.el (dired-flagging-regexp): Remove unused variable
(bug#8769).
2011-03-29 Kevin Ryde <user42@zip.com.au>
......@@ -158,8 +164,8 @@
* info-look.el (info-lookup-add-help): Clarify that ARGS is a list
of keyword/argument pairs (bug#6904).
* replace.el (multi-occur): Mention
`multi-occur-in-matching-buffers' in the doc string (bug#7566).
* replace.el (multi-occur):
Mention `multi-occur-in-matching-buffers' in the doc string (bug#7566).
2011-07-02 Drew Adams <drew.adams@oracle.com>
......
......@@ -355,7 +355,7 @@ else the global value will be modified."
(defvar byte-compile-interactive-only-functions
'(beginning-of-buffer end-of-buffer replace-string replace-regexp
insert-file insert-buffer insert-file-literally previous-line next-line
goto-line comint-run delete-backward-char)
goto-line comint-run delete-backward-char switch-to-buffer)
"List of commands that are not meant to be called from Lisp.")
(defvar byte-compile-not-obsolete-vars nil
......
......@@ -1341,8 +1341,8 @@ automatically choosing a major mode, use \\[find-file-literally]."
(confirm-nonexistent-file-or-buffer)))
(let ((value (find-file-noselect filename nil nil wildcards)))
(if (listp value)
(mapcar 'switch-to-buffer (nreverse value))
(switch-to-buffer value))))
(mapcar #'pop-to-buffer-same-window (nreverse value))
(pop-to-buffer-same-window value))))
(defun find-file-other-window (filename &optional wildcards)
"Edit file FILENAME, in another window.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment