andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/frame.el (make-frame-names-alist): Don't list frames on other displays.

Browse source
This commit is contained in:
Stefan Monnier 2010-09-19 11:53:28 +02:00
parent 37c0347eb5
commit e2c3f530ff
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
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.

7
lisp/frame.el
View file

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