aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1992-08-07 13:51:41 +0000
committerJim Blandy1992-08-07 13:51:41 +0000
commit8c24e63264709c222693cd8f2aa20ad7fbeaf554 (patch)
tree61b804c4adb388c3b250448eaade95e2f3dc79af
parent0a43057f342919673c98387954c769a8689c1314 (diff)
downloademacs-8c24e63264709c222693cd8f2aa20ad7fbeaf554.tar.gz
emacs-8c24e63264709c222693cd8f2aa20ad7fbeaf554.zip
*** empty log message ***
-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)