Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1992-08-07 13:51:41 +00:00
parent 0a43057f34
commit 8c24e63264
1 changed files with 0 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/frame.el
View file

@ -238,18 +238,6 @@ If FRAME is omitted, describe the currently selected frame."
If FRAME is omitted, describe the currently selected frame."
(cdr (assq 'width (frame-parameters frame))))
(defun set-frame-height (h)
(interactive "NHeight: ")
(let* ((frame (selected-frame))
(width (cdr (assoc 'width (frame-parameters (selected-frame))))))
(set-frame-size (selected-frame) width h)))
(defun set-frame-width (w)
(interactive "NWidth: ")
(let* ((frame (selected-frame))
(height (cdr (assoc 'height (frame-parameters (selected-frame))))))
(set-frame-size (selected-frame) w height)))
(defun set-default-font (font-name)
(interactive "sFont name: ")
(modify-frame-parameters (selected-frame)