Lines Matching +defs:skip +defs:keep
75 ;; ispell-skip-region-alist
115 ;; spell check in `ispell-skip-region-alist'. Mode-dependent features can
116 ;; be added to latex by modifying `ispell-tex-skip-alists'.
138 ;; Fixed skip regexp so it doesn't match stuff like `/.\w'.
170 ;; run-together words, and uses koi8-r font. Don't skip text in html <TT>
278 (defcustom ispell-skip-tib nil
283 TeX users beware: Any field starting with [. will skip until a .] -- even
284 your whole buffer -- unless you set `ispell-skip-tib' to nil. That includes
295 (defcustom ispell-keep-choices-win t
345 (defcustom ispell-message-fcc-skip 50000
480 (defcustom ispell-skip-html 'use-mode-name
481 "*Indicates whether ispell should skip spell checking of SGML markup.
482 If t, always skip SGML markup; if nil, never skip; if non-t and non-nil,
489 (make-variable-buffer-local 'ispell-skip-html)
1333 (defvar ispell-skip-region-alist
1361 (KEY) - just skip the key.
1362 (KEY . REGEXP) - skip to the end of REGEXP. REGEXP may be string or symbol.
1363 (KEY REGEXP) - skip to end of REGEXP. REGEXP must be a string.
1365 (put 'ispell-skip-region-alist 'risky-local-variable t)
1369 (defvar ispell-tex-skip-alists
1395 (put 'ispell-tex-skip-alist 'risky-local-variable t)
1399 (defvar ispell-html-skip-alists
1408 "*Lists of start and end keys to skip in HTML buffers.
1409 Same format as `ispell-skip-region-alist'
1412 (put 'ispell-html-skip-alists 'risky-local-variable t)
1488 ;; We keep all the directives passed to Ispell during the entire
1686 ;; keep if rechecking word and we keep choices win.
1784 Returns nil to keep word.
1846 (while (memq count command-characters) ; skip command characters.
2248 ;;; "start" and "end" are used to keep bounds on lines when "output" contains
2279 ;; skip over newline, this line complete.
2448 (setq output (substring output (match-end 0))) ; skip over misspelling
2682 (let ((skip-region-start (make-marker))
2699 (message "searching for regions to skip"))
2700 (if (re-search-forward (ispell-begin-skip-region-regexp) reg-end t)
2704 (set-marker skip-region-start (- (point) (length key)))
2715 (if (and (marker-position skip-region-start)
2716 (<= skip-region-start (point)))
2718 ;; If region inside line comment, must keep comment start.
2727 ;; Can change skip-regexps (in ispell-message)
2728 (ispell-skip-region key) ; moves pt past region.
2732 (ispell-ignore-fcc skip-region-start
2736 (ispell-begin-skip-region-regexp)
2740 (set-marker skip-region-start
2743 (set-marker skip-region-start nil))))
2745 (if (marker-position skip-region-start)
2746 (min skip-region-start ispell-region-end)
2764 (if (and (not (and recheckp ispell-keep-choices-win))
2767 (set-marker skip-region-start nil)
2790 (defun ispell-begin-skip-region-regexp ()
2792 Includes `ispell-skip-region-alist' plus tex, tib, html, and comment keys.
2795 (let ((skip-regexp (ispell-begin-skip-region ispell-skip-region-alist)))
2798 (setq skip-regexp (concat (regexp-quote comment-start) "\\|"
2799 skip-regexp)))
2802 (setq skip-regexp (concat (if (string= "" comment-end) "^"
2804 "\\|" skip-regexp)))
2806 (if ispell-skip-tib
2807 (setq skip-regexp (concat ispell-tib-ref-beginning "\\|" skip-regexp)))
2809 (if ispell-skip-html
2810 (setq skip-regexp (concat
2811 (ispell-begin-skip-region ispell-html-skip-alists)
2813 skip-regexp)))
2816 (setq skip-regexp (concat (ispell-begin-tex-skip-regexp) "\\|"
2817 skip-regexp)))
2821 (setq skip-regexp (concat
2826 skip-regexp)))
2829 skip-regexp))
2832 (defun ispell-begin-skip-region (skip-alist)
2833 "Regular expression for start of regions to skip generated from SKIP-ALIST.
2837 skip-alist
2841 (defun ispell-begin-tex-skip-regexp ()
2842 "Regular expression of tex commands to skip.
2843 Generated from `ispell-tex-skip-alists'."
2847 (car ispell-tex-skip-alists)
2855 (car (cdr ispell-tex-skip-alists))
2859 (defun ispell-skip-region-list ()
2860 "Returns a list describing key and body regions to skip for this buffer.
2861 Includes regions defined by `ispell-skip-region-alist', tex mode,
2862 `ispell-html-skip-alists', and `ispell-checking-message'.
2864 The list is of the form described by variable `ispell-skip-region-alist'.
2866 (let ((skip-alist ispell-skip-region-alist))
2870 skip-alist (append (car ispell-tex-skip-alists)
2871 (car (cdr ispell-tex-skip-alists))
2872 skip-alist)))
2873 (if ispell-skip-html
2874 (setq skip-alist (append ispell-html-skip-alists skip-alist)))
2877 (setq skip-alist (append ispell-checking-message skip-alist)))
2878 skip-alist))
2899 (if (and ispell-checking-message ispell-message-fcc-skip)
2900 (if (< ispell-message-fcc-skip (- end start))
2920 (defun ispell-skip-region (key)
2922 Key lookup determines region to skip.
2928 (alist (ispell-skip-region-list))
2929 alist-key null-skip)
2940 ((and ispell-skip-tib (string-match ispell-tib-ref-beginning key))
2950 ((null alist) (setq null-skip t)) ; done! Just skip key.
2958 (setq null-skip t) ; error handling in functions!
2964 (if (and (= start (point)) (null null-skip))
2988 (t (goto-char end))) ; EMPTY LINE, skip it.
3054 (if ispell-keep-choices-win
3350 (and ispell-skip-html (eq last-char ?>))
3351 (and ispell-skip-html (eq last-char ?\;))))
3409 (defun ispell-mime-skip-part (boundary)
3418 (forward-line) ; skip over boundary to headers
3423 ispell-skip-html nil)
3430 (setq ispell-skip-html t))
3449 ;; first pass redefine skip function to include new boundary
3454 (list new-boundary 'ispell-mime-skip-part new-boundary)
3501 (ispell-skip-region-alist-save ispell-skip-region-alist)
3553 (ispell-skip-region-alist
3556 ispell-skip-region-alist))
3602 ;; Select type or skip checking if this is a non-multipart message
3605 (let (skip-regexp) ; protect from `ispell-mime-skip-part'
3609 (ispell-mime-skip-part nil)
3616 ;; Define MIME regions to skip.
3619 (list (list boundary 'ispell-mime-skip-part boundary))))
3623 (setq ispell-skip-region-alist ispell-skip-region-alist-save
3624 ispell-skip-html nil
3665 (if (and ispell-skip-html (not (eq ispell-skip-html t)))
3666 (setq ispell-skip-html