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

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

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

Fixes: debbugs:8911
This commit is contained in:
Stefan Monnier 2011-07-04 12:08:16 -04:00
parent 60c55439fc
commit c8af70e11e
3 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
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>

2
lisp/emacs-lisp/bytecomp.el
View file

@ -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

4
lisp/files.el
View file

@ -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.