Don't imply private dictionary is always ispell.words.

Don't repeat at load time any bindings that are autoloaded.

diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el
index 6ec6ba2775d7f9f06db82078188e136c2ba694c5..6e9f315a2583681d046fd4f9e94820c5e78bfb0d 100644 (file)
--- a/lisp/textmodes/ispell4.el
+++ b/lisp/textmodes/ispell4.el
@@ -41,7 +41,7 @@
   "Command for running Ispell.")
 (defvar ispell-command-options nil
   "*String (or list of strings) to pass to Ispell as command arguments.
-You can use this to specify the name of your private dictionary.
+You can specify your private dictionary via the -p <filename> option.
 The -S option is always passed to Ispell as the last parameter,
 and need not be mentioned here.")
 
@@ -163,7 +163,7 @@ that have not already been dumped will be lost."
 ;; 
 ;; :dump               write out the current private dictionary, if necessary.
 ;; 
-;; :reload             reread `~/ispell.words'
+;; :reload             reread private dictionary (default: `~/ispell.words')
 ;; 
 ;; :tex
 ;; :troff
@@ -253,7 +253,7 @@ DIGIT       Near miss selector.  If the misspelled word is close to
        some words in the dictionary, they are offered as near misses.
 r      Replace.  Replace the word with a string you type.  Each word
        of your new string is also checked.
-i      Insert.  Insert this word in your private dictionary (kept in
+i      Insert.  Insert this word in your private dictionary (by default,
        `$HOME/ispell.words').
 a      Accept.  Accept this word for the rest of this editing session,
        but don't put it in your private dictionary.
@@ -378,8 +378,8 @@ With a prefix argument, resume handling of the previous Ispell command."
              (load-library "spell")
              (define-key esc-map "$" 'spell-word)
              (spell-word)))))))
-;;;###autoload
-(define-key esc-map "$" 'ispell-word)
+
+;;;###autoload (define-key esc-map "$" 'ispell-word)
 
 ;;;###autoload
 (defun ispell-region (start &optional end)