Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
285f1858
Commit
285f1858
authored
Feb 15, 2014
by
Juanma Barranquero
Browse files
frameset.el (frameset--jump-to-register): Check that buffer is live (bug#16749).
parent
5d645ea4
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
7 deletions
+11
-7
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/frameset.el
lisp/frameset.el
+6
-7
No files found.
lisp/ChangeLog
View file @
285f1858
2014-02-15 Juanma Barranquero <lekktu@gmail.com>
* frameset.el (frameset--jump-to-register): Check that buffer is live
(bug#16749).
2014-02-15 Glenn Morris <rgm@gnu.org>
* info.el (info-initialize): Revert 2014-01-10 change.
...
...
lisp/frameset.el
View file @
285f1858
...
...
@@ -1213,15 +1213,14 @@ Called from `jump-to-register'. Internal use only."
:filters
frameset-session-filter-alist
:reuse-frames
(
if
delete
t
:keep
))
(
mapc
#'
iconify-frame
iconify-list
)
(
let
((
frame
(
frameset-frame-with-id
(
aref
data
1
))))
(
let
((
frame
(
frameset-frame-with-id
(
aref
data
1
)))
buffer
window
)
(
when
frame
(
select-frame-set-input-focus
frame
)
(
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
))))))))
(
when
(
and
(
buffer-live-p
(
setq
buffer
(
marker-buffer
(
aref
data
2
))))
(
window-live-p
(
setq
window
(
get-buffer-window
buffer
frame
))))
(
set-frame-selected-window
frame
window
)
(
with-current-buffer
buffer
(
goto-char
(
aref
data
2
))))))))
;;;###autoload
(
defun
frameset-to-register
(
register
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment