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

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

1 files changed, 5 insertions, 5 deletions

diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el
index 6ec6ba2775d..6e9f315a258 100644
--- 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)