X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=poe-18.el;h=0087c6b26031a143183f56e95f84a9a9567f17c9;hb=0c8e32c3c943eaccbe302d0d8c39680e4e93a895;hp=bfdc0cd9f5546fa626935d3026766db954b2adea;hpb=4004f01ed820fe1be8811e14150812298ea26470;p=elisp%2Fapel.git

diff --git a/poe-18.el b/poe-18.el
index bfdc0cd..0087c6b 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -645,7 +645,7 @@ No argument or nil as argument means do this for the current buffer."
 ;;;
 ;; The following four are frequently used for manupulating the current frame.
 ;; frame.el has `screen-width', `screen-height', `set-screen-width' and
-;; `set-screen-heigth' for backward compatibility and declare them as obsolete.
+;; `set-screen-height' for backward compatibility and declare them as obsolete.
 (defun frame-width (&optional frame)
   "Return number of columns available for display on FRAME.
 If FRAME is omitted, describe the currently selected frame."
@@ -662,11 +662,11 @@ Optional third arg non-nil means that redisplay should use COLS columns
 but that the idea of the actual width of the frame should not be changed."
   (set-screen-width cols pretend))
 
-(defun set-frame-heigth (frame cols &optional pretend)
+(defun set-frame-height (frame lines &optional pretend)
   "Specify that the frame FRAME has LINES lines.
 Optional third arg non-nil means that redisplay should use LINES lines
 but that the idea of the actual height of the frame should not be changed."
-  (set-screen-heigth cols pretend))
+  (set-screen-height lines pretend))
 
 ;;; @@ Environment variables.
 ;;;