diff options
| author | Eli Zaretskii <eliz@gnu.org> | 1997-11-20 15:55:31 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 1997-11-20 15:55:31 +0000 |
| commit | 7777d03b3441c5787cc100163f7b44f5c846cc68 (patch) | |
| tree | d1f6b5452b3fce8e6db8ddc2f99d24729d55eae6 /lisp/frame.el | |
| parent | e5317d612688c235216e798521a3a199b315817b (diff) | |
| download | emacs-7777d03b3441c5787cc100163f7b44f5c846cc68.tar.gz | |
(set-frame-name): New function.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 8 |
1 files changed, 8 insertions, 0 deletions
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) |