Mercurial > emacs
changeset 20281:799de2d79c64
(set-frame-name): New function.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Thu, 20 Nov 1997 15:55:31 +0000 |
| parents | 7916c0d8f2ae |
| children | 6de74098af01 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)