Commit 07fa1158 authored by Troels Henriksen's avatar Troels Henriksen
Browse files

C-x C-b now behaves as an Emacs user would expect.

parent b4181af0
......@@ -432,9 +432,9 @@ Signals and error if the file does not exist."
(let* ((buffers (buffers *application-frame*))
(position (position buffer buffers))
(pane (current-window)))
(if position
(rotatef (car buffers) (nth position buffers))
(push buffer (buffers *application-frame*)))
(when position
(setf buffers (delete buffer buffers)))
(push buffer (buffers *application-frame*))
(setf (offset (point (buffer pane))) (offset (point pane)))
(setf (buffer pane) buffer)
(full-redisplay pane)
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