Mercurial > emacs
changeset 13978:2445061c92d4
(edt-find-forward, edt-find-backward, edt-find,
edt-find-next-forward, edt-find-next-backward, edt-find-next): Doc fix.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 04 Jan 1996 23:34:16 +0000 |
| parents | 11784c04028a |
| children | 278af59c9e29 |
| files | lisp/emulation/edt.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/edt.el Thu Jan 04 23:33:39 1996 +0000 +++ b/lisp/emulation/edt.el Thu Jan 04 23:34:16 1996 +0000 @@ -399,7 +399,7 @@ ;;; (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 @@ (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 @@ ;;; (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 @@ (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)