# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 880041331 0
# Node ID 799de2d79c6489ea875661180ef171f76c2a4e34
# Parent  7916c0d8f2ae1dcb205992b599c8df7e398c662a
(set-frame-name): New function.

diff -r 7916c0d8f2ae -r 799de2d79c64 lisp/frame.el
--- a/lisp/frame.el	Thu Nov 20 15:50:59 1997 +0000
+++ b/lisp/frame.el	Thu Nov 20 15:55:31 1997 +0000
@@ -675,6 +675,14 @@
 		-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)