aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/frame.el12
1 files changed, 0 insertions, 12 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index 69e005eb4e6..41f01d713af 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -238,18 +238,6 @@ If FRAME is omitted, describe the currently selected frame."
238If FRAME is omitted, describe the currently selected frame." 238If FRAME is omitted, describe the currently selected frame."
239 (cdr (assq 'width (frame-parameters frame)))) 239 (cdr (assq 'width (frame-parameters frame))))
240 240
241(defun set-frame-height (h)
242 (interactive "NHeight: ")
243 (let* ((frame (selected-frame))
244 (width (cdr (assoc 'width (frame-parameters (selected-frame))))))
245 (set-frame-size (selected-frame) width h)))
246
247(defun set-frame-width (w)
248 (interactive "NWidth: ")
249 (let* ((frame (selected-frame))
250 (height (cdr (assoc 'height (frame-parameters (selected-frame))))))
251 (set-frame-size (selected-frame) w height)))
252
253(defun set-default-font (font-name) 241(defun set-default-font (font-name)
254 (interactive "sFont name: ") 242 (interactive "sFont name: ")
255 (modify-frame-parameters (selected-frame) 243 (modify-frame-parameters (selected-frame)