Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e2c3f530
Commit
e2c3f530
authored
Sep 19, 2010
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* lisp/frame.el (make-frame-names-alist): Don't list frames on other displays.
parent
37c0347e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
3 deletions
+6
-3
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/frame.el
lisp/frame.el
+4
-3
No files found.
lisp/ChangeLog
View file @
e2c3f530
2010-09-19 Stefan Monnier <monnier@iro.umontreal.ca>
* frame.el (make-frame-names-alist): Don't list frames on other displays.
* fringe.el (fringe-styles): New var.
(fringe-mode, fringe-query-style): Use it.
...
...
lisp/frame.el
View file @
e2c3f530
...
...
@@ -907,15 +907,16 @@ Calls `suspend-emacs' if invoked from the controlling tty device,
(
t
(
suspend-emacs
)))))
(
defun
make-frame-names-alist
()
;; Only consider the frames on the same display.
(
let*
((
current-frame
(
selected-frame
))
(
falist
(
cons
(
cons
(
frame-parameter
current-frame
'name
)
current-frame
)
nil
))
(
frame
(
next-frame
nil
t
)))
(
frame
(
next-frame
nil
0
)))
(
while
(
not
(
eq
frame
current-frame
))
(
progn
(
setq
falist
(
cons
(
cons
(
frame-parameter
frame
'name
)
frame
)
falist
)
)
(
setq
frame
(
next-frame
frame
t
))))
(
push
(
cons
(
frame-parameter
frame
'name
)
frame
)
falist
)
(
setq
frame
(
next-frame
frame
0
))))
falist
))
(
defvar
frame-name-history
nil
)
...
...
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