Mercurial > emacs

changeset 950:79204001d346

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 07 Aug 1992 13:51:41 +0000
parents fc4f68fff750
children c23539669808
files lisp/frame.el
diffstat 1 files changed, 0 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Fri Aug 07 12:47:37 1992 +0000
+++ b/lisp/frame.el	Fri Aug 07 13:51:41 1992 +0000
@@ -238,18 +238,6 @@
 If FRAME is omitted, describe the currently selected 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)
   (interactive "sFont name: ")
   (modify-frame-parameters (selected-frame)