* poe-18.el (set-frame-height): Typo fixed.

diff --git a/ChangeLog b/ChangeLog
index 3c23c0c..006a94e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-20  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
+
+       * poe-18.el (set-frame-height): Typo fixed.
+

 2000-12-19  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
 
        * make.bat: Do not echo.
 2000-12-19  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
 
        * make.bat: Do not echo.

diff --git a/poe-18.el b/poe-18.el
index 976222f..0087c6b 100644 (file)
--- a/poe-18.el
+++ b/poe-18.el
@@ -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))
 
 but that the idea of the actual width of the frame should not be changed."
   (set-screen-width cols pretend))
 

-(defun set-frame-height (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."
   "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-height cols pretend))
+  (set-screen-height lines pretend))

 
 ;;; @@ Environment variables.
 ;;;
 
 ;;; @@ Environment variables.
 ;;;