aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/dframe.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/dframe.el')
-rw-r--r--lisp/dframe.el9
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/dframe.el b/lisp/dframe.el
index 872b922d783..90edacbf416 100644
--- a/lisp/dframe.el
+++ b/lisp/dframe.el
@@ -606,13 +606,12 @@ Argument E is the event deleting the frame."
606 606
607;;; Utilities 607;;; Utilities
608;; 608;;
609(defun dframe-get-focus (frame-var activator &optional hook) 609(defun dframe-get-focus (frame-var activator)
610 "Change frame focus to or from a dedicated frame. 610 "Change frame focus to or from a dedicated frame.
611If the selected frame is not in the symbol FRAME-VAR, then FRAME-VAR 611If the selected frame is not in the symbol FRAME-VAR, then FRAME-VAR
612frame is selected. If the FRAME-VAR is active, then select the 612frame is selected. If the FRAME-VAR is active, then select the
613attached frame. If FRAME-VAR is nil, ACTIVATOR is called to 613attached frame. If FRAME-VAR is nil, ACTIVATOR is called to
614created it. HOOK is an optional hook to run when 614created it."
615selecting FRAME-VAR."
616 (interactive) 615 (interactive)
617 (if (eq (selected-frame) (symbol-value frame-var)) 616 (if (eq (selected-frame) (symbol-value frame-var))
618 (if (frame-live-p dframe-attached-frame) 617 (if (frame-live-p dframe-attached-frame)
@@ -623,9 +622,7 @@ selecting FRAME-VAR."
623 ;; go there 622 ;; go there
624 (select-frame (symbol-value frame-var)) 623 (select-frame (symbol-value frame-var))
625 ) 624 )
626 (other-frame 0) 625 (other-frame 0))
627 ;; If updates are off, then refresh the frame (they want it now...)
628 (run-hooks hook))
629 626
630 627
631(defun dframe-close-frame () 628(defun dframe-close-frame ()