diff options
Diffstat (limited to 'lisp')
| -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) |