Mercurial > emacs
changeset 73731:e33303152c03
(ispell, ispell-local-dictionary-alist, ispell-help): Fix typos in docstrings.
(ispell-help): Fix typo in output message.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 06 Nov 2006 02:23:12 +0000 |
| parents | b4a91f7c761c |
| children | db699facb3e4 |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el Mon Nov 06 02:20:59 2006 +0000 +++ b/lisp/textmodes/ispell.el Mon Nov 06 02:23:12 2006 +0000 @@ -217,7 +217,7 @@ "Empty replacement for defgroup when not supplied."))) (defgroup ispell nil - "User variables for emacs ispell interface." + "User variables for Emacs ispell interface." :group 'applications) (if (not (fboundp 'buffer-substring-no-properties)) @@ -496,7 +496,7 @@ To make permanent changes to your dictionary definitions, you will need to make your changes in this variable, save, and then -re-start emacs." +re-start Emacs." :type '(repeat (list (choice :tag "Dictionary" (string :tag "Dictionary name") (const :tag "default" nil)) @@ -900,13 +900,13 @@ (buffer-string)))) ;; Search for the named dictionaries. (found - (delq nil + (delq nil (mapcar #'ispell-aspell-find-dictionary dictionaries)))) ;; Ensure aspell's alias dictionary will override standard ;; definitions. (setq found (ispell-aspell-add-aliases found)) ;; Merge into FOUND any elements from the standard ispell-dictionary-alist - ;; which have no element in FOUND at all. + ;; which have no element in FOUND at all. (dolist (dict ispell-dictionary-alist) (unless (assoc (car dict) found) (setq found (nconc found (list dict))))) @@ -2104,7 +2104,7 @@ `m': Place typed-in value in personal dictionary, then recheck current word. `C-l': redraws screen `C-r': recursive edit -`C-z': suspend emacs or iconify frame" +`C-z': suspend Emacs or iconify frame" (if (equal ispell-help-in-bufferp 'electric) (progn @@ -2136,7 +2136,7 @@ `m': Place typed-in value in personal dictionary, then recheck current word. `C-l': redraws screen `C-r': recursive edit -`C-z': suspend emacs or iconify frame") +`C-z': suspend Emacs or iconify frame") nil ;undocumented requirement of with-electric-help ))))