From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 20 Nov 1997 15:55:31 +0000 (+0000)
Subject: (set-frame-name): New function.
X-Git-Tag: emacs-20.3~2792
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7777d03b3441c5787cc100163f7b44f5c846cc68;p=emacs.git

(set-frame-name): New function.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 96d103e1229..e4531a3d15a 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -675,6 +675,14 @@ that is beyond the control of Emacs and this command has no effect on it."
 		-1 1)))
   (modify-frame-parameters (selected-frame)
 			   (list (cons 'auto-lower (> arg 0)))))
+(defun set-frame-name (name)
+  "Set the name of the selected frame to NAME.
+When called interactively, prompt for the name of the frame.
+The frame name is displayed on the modeline if the terminal displays only
+one frame, otherwise the name is displayed on the frame's caption bar."
+  (interactive "sFrame name: ")
+  (modify-frame-parameters (selected-frame)
+			   (list (cons 'name name))))
 
 ;;;; Aliases for backward compatibility with Emacs 18.
 (defalias 'screen-height 'frame-height)