Changeset 4079 for trunk/lisp/textmodes/ispell.el

Timestamp:

05/13/06 11:31:18 (3 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/textmodes/ispell.el (modified) (4 diffs)

trunk/lisp/textmodes/ispell.el

@@ -2608 +2608 @@
-          nil t)
-         current-prefix-arg))
-
+ 'no-reload
-  (if (equal dict "default") (setq dict nil))
-  ;; This relies on completing-read's bug of returning "" for no match
-  (cond ((equal dict "")
+         (ispell-internal-change-dictionary)
-         (message "Using %s dictionary"
-                  (or ispell-local-dictionary ispell-dictionary "default")))
-        ((equal dict (or ispell-local-dictionary
-                         ispell-dictionary "default"))
-
+
+
+
-         (and (interactive-p)
-              (message "No change, using %s dictionary" dict)))
@@ -2635 +2638 @@
-
-(defun ispell-internal-change-dictionary ()
-ctuall
+nd the personal dictionar
-This may kill the Ispell process; if so,
-a new one will be started when needed."
-
-
+
+
+
+
-      (ispell-kill-ispell t)
-
+
+
-
-;;; Spelling of comments are checked when ispell-check-comments is non-nil.
@@ -3668 +3674 @@
-;;; Can kill the current ispell process
-
-
+&optional no-reload
-  "Initializes local dictionary and local personal dictionary.
+If optional NO-RELOAD is non-nil, do not make any dictionary reloading.
-When a dictionary is defined in the buffer (see variable
-`ispell-dictionary-keyword'), it will override the local setting
@@ -3696 +3703 @@
-                (setq ispell-local-pdict
-                      (match-string-no-properties 1)))))))
-
-
-
-
-
-
+
+
+
-
-