mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

(set-frame-name): New function.

Browse Source
This commit is contained in:
Eli Zaretskii 1997-11-20 15:55:31 +00:00
parent e5317d6126
commit 7777d03b34
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/frame.el
View File

@ -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)