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

(frame-name-alist): Remove this variable.

Browse Source 
(select-frame-by-name): Recompute the list of frames instead of
saving it in a global variable.
This commit is contained in:
Richard M. Stallman 1998-04-23 22:15:47 +00:00
parent bdd40dd2a2
commit 716ff1c92d
1 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/frame.el
View File

@ -541,24 +541,20 @@ A negative ARG moves in the opposite order."
falist))
(defvar frame-name-history nil)
(defvar frame-names-alist nil)
(defun select-frame-by-name (name)
"Select the frame whose name is NAME and raise it.
If there is no frame by that name, signal an error."
(interactive
(let (input default)
(setq frame-names-alist (make-frame-names-alist))
(setq default (car (car frame-names-alist)))
(setq input
(completing-read
(let* ((frame-names-alist (make-frame-names-alist))
(default (car (car frame-names-alist)))
(input (completing-read
(format "Select Frame (default %s): " default)
frame-names-alist nil t nil 'frame-name-history))
frame-names-alist nil t nil 'frame-name-history)))
(if (= (length input) 0)
(list default)
(list input))))
(or (interactive-p)
(setq frame-names-alist (make-frame-names-alist)))
(let ((frame (cdr (assoc name frame-names-alist))))
(let* ((frame-names-alist (make-frame-names-alist))
(frame (cdr (assoc name frame-names-alist))))
(or frame
(error "There is no frame named `%s'" name))
(make-frame-visible frame)