diff options
| author | Jim Blandy | 1992-08-07 13:51:41 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-08-07 13:51:41 +0000 |
| commit | 8c24e63264709c222693cd8f2aa20ad7fbeaf554 (patch) | |
| tree | 61b804c4adb388c3b250448eaade95e2f3dc79af | |
| parent | 0a43057f342919673c98387954c769a8689c1314 (diff) | |
| download | emacs-8c24e63264709c222693cd8f2aa20ad7fbeaf554.tar.gz emacs-8c24e63264709c222693cd8f2aa20ad7fbeaf554.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/frame.el | 12 |
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." | |||
| 238 | If FRAME is omitted, describe the currently selected frame." | 238 | If 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) |