Mercurial > emacs

comparison lisp/frame.el @ 826:e9b9a1cff2c9

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 Tue, 21 Jul 1992 04:09:28 +0000
parents e694e0879463
children 731cb9bcbad0
comparison
equal deleted inserted replaced
825:f3eb45ffe06d 826:e9b9a1cff2c9
243 243
244 244
245 ;;;; Convenience functions for accessing and interactively changing 245 ;;;; Convenience functions for accessing and interactively changing
246 ;;;; frame parameters. 246 ;;;; frame parameters.
247 247
248 (defun frame-width (&optional frame) 248 (defun frame-height (&optional frame)
249 "Return number of lines available for display on FRAME. 249 "Return number of lines available for display on FRAME.
250 If FRAME is omitted, describe the currently selected frame." 250 If FRAME is omitted, describe the currently selected frame."
251 (cdr (assq 'width (frame-parameters frame)))) 251 (cdr (assq 'height (frame-parameters frame))))
252 252
253 (defun frame-width (&optional frame) 253 (defun frame-width (&optional frame)
254 "Return number of columns available for display on FRAME. 254 "Return number of columns available for display on FRAME.
255 If FRAME is omitted, describe the currently selected frame." 255 If FRAME is omitted, describe the currently selected frame."
256 (cdr (assq 'height (frame-parameters frame)))) 256 (cdr (assq 'width (frame-parameters frame))))
257 257
258 (defun set-frame-height (h) 258 (defun set-frame-height (h)
259 (interactive "NHeight: ") 259 (interactive "NHeight: ")
260 (let* ((frame (selected-frame)) 260 (let* ((frame (selected-frame))
261 (width (cdr (assoc 'width (frame-parameters (selected-frame)))))) 261 (width (cdr (assoc 'width (frame-parameters (selected-frame))))))