Correct misspellings.

[elisp/apel.git] / poe-18.el

diff --git a/poe-18.el b/poe-18.el
index f80caec..02dd5ef 100644 (file)
--- a/poe-18.el
+++ b/poe-18.el
@@ -224,11 +224,11 @@ for this variable."
     ("GMT-8"  .  -800)("GMT-9"  .  -900)("GMT-10" . -1000)
     ("GMT-11" . -1100) ("GMT-12" . -1200))
   "Time differentials of timezone from GMT in +-HHMM form.
-Used in `current-time-zone' (Emacs 19 emulating function in poe-18.el).")
+Used in `current-time-zone' (Emacs 19 emulating function by APEL).")
 
 (defvar current-time-local-timezone nil 
   "*Local timezone name.
-Used in `current-time-zone' (Emacs 19 emulating function in poe-18.el).")
+Used in `current-time-zone' (Emacs 19 emulating function by APEL).")
 
 (defun set-time-zone-rule (tz)
   "Set the local time zone using TZ, a string specifying a time zone rule.
@@ -454,15 +454,6 @@ resolution finer than a second."
   "Return the absolute value of ARG."
   (if (< arg 0) (- arg) arg))
 
-(defun floor (arg &optional divisor)
-  "Return the largest integer no grater than ARG.
-With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR."
-  (if (null divisor)
-      (setq divisor 1))
-  (if (< arg 0)
-      (- (/ (- divisor 1 arg) divisor))
-    (/ arg divisor)))
-
 ;;; @ Basic lisp subroutines.
 ;;;
 
@@ -510,17 +501,17 @@ With optional non-nil ALL, force redisplay of all mode-lines."
 ;; 18.55 does not have these variables.
 (defvar-maybe buffer-undo-list nil
   "List of undo entries in current buffer.
-poe-18.el provides this as dummy for a compatibility.")
+APEL provides this as dummy for a compatibility.")
 
 (defvar-maybe auto-fill-function nil
   "Function called (if non-nil) to perform auto-fill.
-poe-18.el provides this as dummy for a compatibility.")
+APEL provides this as dummy for a compatibility.")
 
 (defvar-maybe unread-command-event nil
-  "poe-18.el provides this as dummy for a compatibility.")
+  "APEL provides this as dummy for a compatibility.")
 (defvar-maybe unread-command-events nil
   "List of events to be read as the command input.
-poe-18.el provides this as dummy for a compatibility.")
+APEL provides this as dummy for a compatibility.")
 
 ;; (defvar-maybe minibuffer-setup-hook nil
 ;;   "Normal hook run just after entry to minibuffer.")
@@ -529,7 +520,7 @@ poe-18.el provides this as dummy for a compatibility.")
 
 (defvar-maybe minor-mode-map-alist nil
   "Alist of keymaps to use for minor modes.
-poe-18.el provides this as dummy for a compatibility.")
+APEL provides this as dummy for a compatibility.")
 
 (defalias 'insert-and-inherit 'insert)
 (defalias 'insert-before-markers-and-inherit 'insert-before-markers)
@@ -582,7 +573,7 @@ Third arg KEYMAP is a keymap to use whilst reading;
 If fourth arg READ is non-nil, then interpret the result as a lisp object
   and return that object:
   in other words, do `(car (read-from-string INPUT-STRING))'
-Fifth arg HIST is ignored in this implementatin."
+Fifth arg HIST is ignored in this implementation."
        (si:read-from-minibuffer prompt initial-contents keymap read))))
 
 ;; Add optional argument `frame'.
@@ -591,7 +582,7 @@ Fifth arg HIST is ignored in this implementatin."
       (fset 'si:get-buffer-window (symbol-function 'get-buffer-window))
       (defun get-buffer-window (buffer &optional frame)
        "Return a window currently displaying BUFFER, or nil if none.
-Optional argunemt FRAME is ignored in this implementation."
+Optional argument FRAME is ignored in this implementation."
        (si:get-buffer-window buffer))))
 
 (defun-maybe walk-windows (proc &optional minibuf all-frames)
@@ -602,7 +593,7 @@ Optional second arg MINIBUF t means count the minibuffer window even
 if not active.  MINIBUF nil or omitted means count the minibuffer iff
 it is active.  MINIBUF neither t nor nil means not to count the
 minibuffer even if it is active.
-Optional third argunemt ALL-FRAMES is ignored in this implementation."
+Optional third argument ALL-FRAMES is ignored in this implementation."
   (if (window-minibuffer-p (selected-window))
       (setq minibuf t))
   (let* ((walk-windows-start (selected-window))
@@ -623,7 +614,7 @@ No argument or nil as argument means do this for the current buffer."
 
 ;;; @@ Frame (Emacs 18 cannot make frame)
 ;;;
-;; The following four are frequently used for manupulating the current frame.
+;; The following four are frequently used for manipulating the current frame.
 ;; frame.el has `screen-width', `screen-height', `set-screen-width' and
 ;; `set-screen-height' for backward compatibility and declare them as obsolete.
 (defun frame-width (&optional frame)