From 7777d03b3441c5787cc100163f7b44f5c846cc68 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 20 Nov 1997 15:55:31 +0000 Subject: [PATCH] (set-frame-name): New function. --- lisp/frame.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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) -- 2.39.2