/[emacs]/emacs/lisp/textmodes/ispell.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/ispell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.140.2.4 by miles, Thu Sep 9 09:36:33 2004 UTC revision 1.140.2.5 by miles, Fri Oct 22 10:13:51 2004 UTC
# Line 1618  Global `ispell-quit' set to start locati Line 1618  Global `ispell-quit' set to start locati
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
# Line 1871  Global `ispell-quit' set to start locati Line 1872  Global `ispell-quit' set to start locati
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)))
# Line 2355  Keeps argument list for future ispell in Line 2356  Keeps argument list for future ispell in
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)
# Line 3286  You can bind this to the key C-c i in GN Line 3287  You can bind this to the key C-c i in GN
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:" "\\|"

Legend:
Removed from v.1.140.2.4  
changed lines
  Added in v.1.140.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26