diff options
| -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) |