Lines Matching +defs:not +defs:modified
28 ;; along with GNU Emacs; see the file COPYING. If not, write to the
32 ;; Note: version numbers and time stamp are not updated
47 ;; enjoy them. Local or modified dictionaries are supported in your .emacs
114 ;; Place new regular expression definitions of regions you prefer not to
122 ;; Multi-byte characters if not defined by current dictionary may result in the
139 ;; Detecting dictionary change not working. Fixed. kss
175 ;; fine tuned latex region skipping. Fixed bug in ispell-word that did not
206 ;;; Custom.el macros require recompiling this when they are not present.
209 (if (not (fboundp 'defcustom))
211 "Empty replacement for defcustom when not supplied."
215 (if (not (fboundp 'defgroup))
217 "Empty replacement for defgroup when not supplied.")))
223 (if (not (fboundp 'buffer-substring-no-properties))
279 "*Does not spell check `tib' bibliography references when non-nil.
337 DICTIONARY if `ispell-local-dictionary' is not buffer-local.
686 \"Stevens'\" does not include the quote character as part of the word.
724 Earlier aspell versions do not consistently support UTF-8. Handling
730 ;;; The following are used by ispell, and should not be changed.
792 (if (not (memq status '(0 nil)))
802 (if (or (not status) ; major version mismatch
823 (not (version< (match-string 1) "0.60")))
868 ;; only needed when not version 18 and not XEmacs.
869 (and (not ispell-menu-map)
870 (not (featurep 'xemacs))
897 (when (and (not ispell-have-aspell-dictionaries)
949 ;; This returns nil if the data file does not exist.
1011 (when (and realdict (not already-exists-p))
1026 ;; Include if the dictionary is in the library, or dir not defined.
1029 ;; include all dictionaries if lib directory not known.
1032 (not ispell-library-directory)
1120 (not (and (boundp 'infodock-version) infodock-version)))
1131 ["Check Region" ispell-region (or (not zmacs-regions) (mark))]
1137 ;; flyspell-mode may not be bound...
1228 (not (multibyte-string-p str)))
1246 (defun ispell-get-not-casechars ()
1264 (defvar ispell-pdict-modified-p nil
1354 ;; by not allowing "/" to be the character which triggers the
1358 "Alist expressing beginning and end of regions not to spell check.
1444 "If non-nil, `ispell-word' does not try to correct the word.")
1457 If asynchronous subprocesses are not supported, call `ispell-filter' and
1465 (if (not (bufferp buf))
1493 ;; The following commands are not passed to Ispell until
1507 (if (not (memq cmd cmds-to-defer))
1525 (if (not (looking-at "@(#) "))
1571 If the word is not found in dictionary, display possible corrections
1576 \(rather than preceding\) is checked when the cursor is not over a word.
1619 (not (string= "" (car ispell-filter)))))
1665 (if (not (equal new-word (car poss)))
1677 (if (not (atom replace)) ;recheck spelling of replacement
1684 (setq ispell-quit (not (ispell-region start end)))
1700 \(rather than preceding\) is checked when the cursor is not over a word.
1707 (ispell-not-casechars (ispell-get-not-casechars))
1712 (if (not (string= "" ispell-otherchars))
1724 (if (not (looking-at ispell-casechars))
1729 (re-search-backward ispell-not-casechars (point-min) 'start)
1730 (while (and (or (and (not (string= "" ispell-otherchars))
1733 (not (bobp))
1734 (or (not did-it-once)
1736 (not (eq prevpt (point))))
1741 (re-search-backward ispell-not-casechars (point-min) 'move)))
1746 (re-search-backward ispell-not-casechars (point-min) 'move)
1749 (if (not (re-search-forward word-regexp (point-max) t))
1760 ;;; Global ispell-pdict-modified-p is set by ispell-command-loop and
1767 "Check to see if the personal dictionary has been modified.
1770 (if (and ispell-pdict-modified-p (listp ispell-pdict-modified-p))
1771 (setq ispell-pdict-modified-p (car ispell-pdict-modified-p)))
1772 (if (or ispell-pdict-modified-p force-save)
1773 (if (or no-query (y-or-n-p "Personal dictionary modified. Save? "))
1777 ;; unassert variable, even if not saved to avoid questioning.
1778 (setq ispell-pdict-modified-p nil))
1791 Global `ispell-pdict-modified-p' becomes a list where the only value
1792 indicates whether the dictionary has been modified when option `a' or `i' is
1844 ;; not so good if there are over 20 or 30 options, but then, if
1855 (if (not (pos-visible-in-window-p end))
1904 (setq ispell-pdict-modified-p '(t)) ; dictionary modified!
1908 (if (null ispell-pdict-modified-p)
1909 (setq ispell-pdict-modified-p
1910 (list ispell-pdict-modified-p)))
1954 (setq ispell-quit (or (not ispell-checking-message)
1956 ispell-pdict-modified-p nil))
2005 (setq ispell-pdict-modified-p '(t)) ; dictionary modified!
2010 (setq ispell-pdict-modified-p '(t))
2040 (if (not (equal (marker-buffer
2199 (or ispell-have-new-look (not wild-p))))
2222 ;; grep returns status 1 and no output when word not found, which
2232 (while (not (bobp))
2251 ;;; line as output from a generating function ("output" did not end with \n)
2264 ;; are not continuing, treat the next item as a separate list. When
2299 (let ((modified (buffer-modified-p)) ; don't allow this fn to modify buffer
2308 (if highlight (setq inverse-video (not inverse-video))) ; toggle video
2312 (if (not highlight)
2314 (setq inverse-video (not inverse-video)) ; toggle video
2317 (set-buffer-modified-p modified) ; don't modify if flag not set.
2477 When asynchronous processes are not supported, `run' is always returned."
2499 (not (member "-d" args))) ; only define if not overridden
2517 "-m" ; make root/affix combos not in dict
2533 (or (not ispell-personal-dictionary)
2560 (error "%s did not output version line" ispell-program-name))
2594 (if (not (and ispell-process
2635 (or (and (not arg) ispell-local-dictionary)
2637 ((equal dict (or (and (not arg) ispell-local-dictionary)
2680 (if (not recheckp)
2712 (while (and (not ispell-quit)
2764 (if (and (not (and recheckp ispell-keep-choices-win))
2772 (if (not (numberp ispell-quit))
2781 (if (not recheckp) (setq ispell-quit nil)))
2782 (if (not recheckp) (set-marker ispell-region-end nil))
2820 (not (eq t ispell-checking-message)))
2876 (not (eq t ispell-checking-message)))
2951 ((not (consp alist))
2966 (message "Matching region end for `%s' point %d not found"
2981 ;; (forward-char 1)) ; not needed as quoted below.
3012 (if (not (numberp shift))
3019 (not (string= "" (car ispell-filter)))))
3023 (while (and (not ispell-quit) ispell-filter)
3087 ;; do not recheck accepted word on this line
3091 (if (not (listp replace))
3107 ;; do not recheck if already accepted
3135 (if (not ispell-quit)
3144 (if (and (not recheck-region) (< end (+ word-start word-len)))
3163 (while (not done)
3174 (setq done (not (ispell-region start (point))))))))))
3188 (if (not (marker-position ispell-region-end))
3190 (if (not (equal (marker-buffer ispell-region-end) (current-buffer)))
3264 (if (not (atom replacement)) ; recheck spelling of replacement.
3287 Ispell dictionaries are not distributed with Emacs. If you are
3318 (or (not (boundp 'minor-mode-map-alist))
3336 (not (or (and (null arg) ispell-minor-mode)
3349 (if (not (or (eq last-char ?\ ) (eq last-char ?\n)
3397 (while (not (looking-at "\""))
3470 (if (not boundary)
3514 ((not ispell-message-text-end) (point-max))
3545 ((not internal-messagep) ; Assume nn sent us this message.
3581 (if (and (not (looking-at ".*Re\\>"))
3582 (not (looking-at "\\[")))
3604 (if (and mimep (not boundary))
3629 (if (or (not string) (string-equal string ""))
3654 (if (and (not (eq 'exclusive ispell-check-comments))
3661 (if (not (eq ispell-parser 'tex))
3665 (if (and ispell-skip-html (not (eq ispell-skip-html t)))
3667 (not (null (string-match "sgml\\|html\\|xml"
3685 (not (eq 'exclusive ispell-check-comments)))
3699 If optional NO-RELOAD is non-nil, do not make any dictionary reloading.
3703 Both should not be used to define a buffer-local dictionary."
3736 (not (equal ispell-buffer-local-name (buffer-name))))
3770 (while (not done)