Lines Matching +defs:on +defs:mouse
1 ;;; flyspell.el --- on-the-fly spell checker
29 ;; Flyspell is a minor Emacs mode performing on-the-fly spelling
53 "Spell checking on the fly."
221 "String displayed on the modeline when flyspell is active.
269 ;;* Mode specific options enable users to disable flyspell on */
379 "Turn on `flyspell-mode' for comments and strings."
401 (defvar flyspell-mouse-map
403 (define-key map (if (featurep 'xemacs) [button2] [down-mouse-2])
406 "Keymap for Flyspell to put on erroneous words.")
456 "Minor mode performing on-the-fly spelling checking.
460 With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive.
466 \\[flyspell-correct-word] (or down-mouse-2): popup correct words.
487 (flyspell-mode-on)
491 (defun turn-on-flyspell ()
492 "Unconditionally turn on Flyspell mode."
500 (custom-add-option 'text-mode-hook 'turn-on-flyspell)
529 ;; Strange problem: If buffer in current window has font-lock turned on,
556 ;; flyspell-mode-on, since flyspell-region may be used without ever turning
557 ;; on flyspell-mode.
561 ;;* flyspell-mode-on ... */
563 (defun flyspell-mode-on ()
564 "Turn Flyspell mode on. Do not use this; use `flyspell-mode' instead."
577 ;; we put the `flyspell-delayed' property on some commands
579 ;; we put the `flyspell-deplacement' property on some commands
590 ;; set flyspell-generic-check-word-predicate based on the major mode
814 (setq debug-on-error t)
824 (setq debug-on-error t)
837 (setq debug-on-error t)
890 (setq debug-on-error t)
1059 (set-process-query-on-exit-flag ispell-process nil)
1373 ;; That code seemed to be incorrect, and on principle, should
1382 ;; Iterate on string search until string is found as word,
1548 ;;* it on large region. Then, when ispell is invoked on a large */
1676 (defun make-flyspell-overlay (beg end face mouse-face)
1679 FACE and MOUSE-FACE specify the `face' and `mouse-face' properties
1683 (overlay-put overlay 'mouse-face mouse-face)
1686 (overlay-put overlay 'help-echo "mouse-2: correct word at point")
1687 (overlay-put overlay 'keymap flyspell-mouse-map)
1701 "Set up an overlay on a misspelled word, in the buffer from BEG to END.
1733 "Set up an overlay on a duplicate misspelled word, in the buffer from BEG to END.
1961 But don't look beyond what's visible on the screen."
2012 The word checked is the word at the mouse position."
2015 (mouse-set-point event)
2020 If EVENT is non-nil, it is the mouse event that invoked this operation;
2024 (unless (mouse-position)
2025 (error "Pop-up menus do not work on this terminal"))
2081 ;; flyspell. I assume its absence on the Emacs side was an
2096 ;; This was added only to the Emacs side. I assume its absence on
2140 (let* ((mouse-pos (mouse-position))
2141 (mouse-pos (if (nth 1 mouse-pos)
2142 mouse-pos
2143 (set-mouse-position (car mouse-pos)
2145 (mouse-position))))
2146 (setq event (list (list (car (cdr mouse-pos))
2147 (1+ (cdr (cdr mouse-pos))))
2148 (car mouse-pos)))))