Commit 8c24e632 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 0a43057f
...@@ -238,18 +238,6 @@ If FRAME is omitted, describe the currently selected frame." ...@@ -238,18 +238,6 @@ If FRAME is omitted, describe the currently selected frame."
If FRAME is omitted, describe the currently selected frame." If FRAME is omitted, describe the currently selected frame."
(cdr (assq 'width (frame-parameters 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) (defun set-default-font (font-name)
(interactive "sFont name: ") (interactive "sFont name: ")
(modify-frame-parameters (selected-frame) (modify-frame-parameters (selected-frame)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment