1618 |
(set-buffer (get-buffer-create ispell-choices-buffer)) |
(set-buffer (get-buffer-create ispell-choices-buffer)) |
1619 |
(setq mode-line-format (concat "-- %b -- word: " word)) |
(setq mode-line-format (concat "-- %b -- word: " word)) |
1620 |
;; XEmacs: no need for horizontal scrollbar in choices window |
;; XEmacs: no need for horizontal scrollbar in choices window |
1621 |
(and (fboundp 'set-specifier) |
(with-no-warnings |
1622 |
(boundp 'horizontal-scrollbar-visible-p) |
(and (fboundp 'set-specifier) |
1623 |
(set-specifier horizontal-scrollbar-visible-p nil |
(boundp 'horizontal-scrollbar-visible-p) |
1624 |
(cons (current-buffer) nil))) |
(set-specifier horizontal-scrollbar-visible-p nil |
1625 |
|
(cons (current-buffer) nil)))) |
1626 |
(erase-buffer) |
(erase-buffer) |
1627 |
(if guess |
(if guess |
1628 |
(progn |
(progn |
1872 |
(if (and ispell-use-framepop-p (fboundp 'framepop-display-buffer)) |
(if (and ispell-use-framepop-p (fboundp 'framepop-display-buffer)) |
1873 |
(progn |
(progn |
1874 |
(framepop-display-buffer (get-buffer ispell-choices-buffer)) |
(framepop-display-buffer (get-buffer ispell-choices-buffer)) |
1875 |
(get-buffer-window ispell-choices-buffer t) |
;;; (get-buffer-window ispell-choices-buffer t) |
1876 |
(select-window (previous-window))) ; *Choices* window |
(select-window (previous-window))) ; *Choices* window |
1877 |
;; standard selection by splitting a small buffer out of this window. |
;; standard selection by splitting a small buffer out of this window. |
1878 |
(let ((choices-window (get-buffer-window ispell-choices-buffer))) |
(let ((choices-window (get-buffer-window ispell-choices-buffer))) |
2356 |
(if extended-char-mode ; ~ extended character mode |
(if extended-char-mode ; ~ extended character mode |
2357 |
(ispell-send-string (concat extended-char-mode "\n")))) |
(ispell-send-string (concat extended-char-mode "\n")))) |
2358 |
(if ispell-async-processp |
(if ispell-async-processp |
2359 |
(process-kill-without-query ispell-process)))) |
(set-process-query-on-exit-flag ispell-process nil)))) |
2360 |
|
|
2361 |
;;;###autoload |
;;;###autoload |
2362 |
(defun ispell-kill-ispell (&optional no-error) |
(defun ispell-kill-ispell (&optional no-error) |
3287 |
(cond |
(cond |
3288 |
((functionp 'sc-cite-regexp) ; sc 3.0 |
((functionp 'sc-cite-regexp) ; sc 3.0 |
3289 |
(concat "\\(" (sc-cite-regexp) "\\)" "\\|" |
(concat "\\(" (sc-cite-regexp) "\\)" "\\|" |
3290 |
(ispell-non-empty-string sc-reference-tag-string))) |
(with-no-warnings |
3291 |
|
(ispell-non-empty-string sc-reference-tag-string)))) |
3292 |
((boundp 'sc-cite-regexp) ; sc 2.3 |
((boundp 'sc-cite-regexp) ; sc 2.3 |
3293 |
(concat "\\(" sc-cite-regexp "\\)" "\\|" |
(concat "\\(" sc-cite-regexp "\\)" "\\|" |
3294 |
(ispell-non-empty-string sc-reference-tag-string))) |
(with-no-warnings |
3295 |
|
(ispell-non-empty-string sc-reference-tag-string)))) |
3296 |
((or (equal major-mode 'news-reply-mode) ;GNUS 4 & below |
((or (equal major-mode 'news-reply-mode) ;GNUS 4 & below |
3297 |
(equal major-mode 'message-mode)) ;GNUS 5 |
(equal major-mode 'message-mode)) ;GNUS 5 |
3298 |
(concat "In article <" "\\|" |
(concat "In article <" "\\|" |
3299 |
"[^,;&+=\n]+ <[^,;&+=]+> writes:" "\\|" |
"[^,;&+=\n]+ <[^,;&+=]+> writes:" "\\|" |
3300 |
message-cite-prefix-regexp "\\|" |
(with-no-warnings message-cite-prefix-regexp) |
3301 |
|
"\\|" |
3302 |
default-prefix)) |
default-prefix)) |
3303 |
((equal major-mode 'mh-letter-mode) ; mh mail message |
((equal major-mode 'mh-letter-mode) ; mh mail message |
3304 |
(concat "[^,;&+=\n]+ writes:" "\\|" |
(concat "[^,;&+=\n]+ writes:" "\\|" |
3305 |
(ispell-non-empty-string mh-ins-buf-prefix))) |
(with-no-warnings |
3306 |
|
(ispell-non-empty-string mh-ins-buf-prefix)))) |
3307 |
((not internal-messagep) ; Assume nn sent us this message. |
((not internal-messagep) ; Assume nn sent us this message. |
3308 |
(concat "In [a-zA-Z.]+ you write:" "\\|" |
(concat "In [a-zA-Z.]+ you write:" "\\|" |
3309 |
"In <[^,;&+=]+> [^,;&+=]+ writes:" "\\|" |
"In <[^,;&+=]+> [^,;&+=]+ writes:" "\\|" |