mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

lisp/frameset.el (frameset--jump-to-register): Fix bug#16696.

Browse Source 
Select the required window and buffer before restoring position.
This commit is contained in:
Juanma Barranquero 2014-02-11 21:48:23 +01:00
parent 20c7a2b4e2
commit 26c5ecd9de
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2014-02-11 Juanma Barranquero <lekktu@gmail.com>
* frameset.el (frameset--jump-to-register): Select the required
window and buffer before restoring position (bug#16696).
2014-02-11 Lars Ingebrigtsen <larsi@gnus.org>
* dired.el (dired-get-marked-files): Clarify doc (bug#11534).

8
lisp/frameset.el
View File

@ -522,7 +522,6 @@ It must return:
Frame parameters not on this alist are passed intact, as if they were
defined with ACTION = nil.")
(defvar frameset--target-display nil
;; Either (minibuffer . VALUE) or nil.
;; This refers to the current frame config being processed inside
@ -1217,7 +1216,12 @@ Called from `jump-to-register'. Internal use only."
(let ((frame (frameset-frame-with-id (aref data 1))))
(when frame
(select-frame-set-input-focus frame)
(goto-char (aref data 2))))))
(let* ((position (aref data 2))
(buffer (marker-buffer position))
(window (get-buffer-window buffer frame)))
(when (and window (window-live-p window))
(set-frame-selected-window frame window)
(with-current-buffer buffer (goto-char position))))))))
;;;###autoload
(defun frameset-to-register (register)