diff options
| author | Karl Heuer <[email protected]> | 1996-01-04 23:34:16 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1996-01-04 23:34:16 +0000 |
| commit | 896b732936e48e2438e9b5f49082af91ddbed554 (patch) | |
| tree | 1cfc6656616dcec97e783708059f04fe391175dd /lisp/emulation | |
| parent | ceb0ea8ba63637edcb18735c31770c2c103332db (diff) | |
(edt-find-forward, edt-find-backward, edt-find,
edt-find-next-forward, edt-find-next-backward, edt-find-next): Doc fix.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/edt.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 19ed0949be..e4c6ba9ed3 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -399,7 +399,7 @@ Accepts a positive prefix argument for the number of BOL marks to move." ;;; (defun edt-find-forward (&optional find) - "Find first occurance of a string in forward direction and save it." + "Find first occurrence of a string in forward direction and save it." (interactive) (if (not find) (set 'search-last-string (read-string "Search forward: "))) @@ -407,14 +407,14 @@ Accepts a positive prefix argument for the number of BOL marks to move." (search-backward search-last-string))) (defun edt-find-backward (&optional find) - "Find first occurance of a string in the backward direction and save it." + "Find first occurrence of a string in the backward direction and save it." (interactive) (if (not find) (set 'search-last-string (read-string "Search backward: "))) (search-backward search-last-string)) (defun edt-find () - "Find first occurance of string in current direction and save it." + "Find first occurrence of string in current direction and save it." (interactive) (set 'search-last-string (read-string "Search: ")) (if (equal edt-direction-string edt-forward-string) @@ -427,7 +427,7 @@ Accepts a positive prefix argument for the number of BOL marks to move." ;;; (defun edt-find-next-forward () - "Find next occurance of a string in forward direction." + "Find next occurrence of a string in forward direction." (interactive) (forward-char 1) (if (search-forward search-last-string nil t) @@ -437,14 +437,14 @@ Accepts a positive prefix argument for the number of BOL marks to move." (error "Search failed: \"%s\"." search-last-string)))) (defun edt-find-next-backward () - "Find next occurance of a string in backward direction." + "Find next occurrence of a string in backward direction." (interactive) (if (eq (search-backward search-last-string nil t) nil) (progn (error "Search failed: \"%s\"." search-last-string)))) (defun edt-find-next () - "Find next occurance of a string in current direction." + "Find next occurrence of a string in current direction." (interactive) (if (equal edt-direction-string edt-forward-string) (edt-find-next-forward) |