Lines Matching +refs:upcase +refs:char
110 ;; ispell-parsing-keyword mode-arg extended-char-arg
419 (defcustom ispell-format-word-function (function upcase)
778 (goto-char (point-min))
791 (goto-char (point-min))
816 (goto-char (point-min))
1166 (fboundp 'int-char))
1167 (fset 'ispell-int-char 'int-char)
1169 (fset 'ispell-int-char 'identity))
1200 (put 'ispell-unified-chars-table 'char-table-extra-slots 0)
1207 (let ((table (make-char-table 'ispell-unified-chars-table)))
1208 (map-char-table
1523 (goto-char (point-min))
1550 (goto-char (point-min))
1565 (if (char-table-p translation-table-for-input)
1667 (goto-char start)
1682 (goto-char start)
1692 (goto-char cursor-location) ; return to original location
1739 (backward-char 1)
1744 (backward-char 1)
1747 (backward-char -1))))
1805 char num result textwin dedicated-win)
1847 (setq count (ispell-int-char (1+ count))
1851 count (ispell-int-char (1+ count))))
1852 (setq count (ispell-int-char (- count ?0 skipped))))
1885 (setq char (if (fboundp 'read-char-exclusive)
1886 (read-char-exclusive)
1887 (read-char))
1889 (if (or quit-flag (= char ?\C-g)) ; C-g is like typing X
1890 (setq char ?X
1895 (if (and (> (car com-chars) ?0) (< (car com-chars) char))
1898 (setq num (- char ?0 skipped)))
1901 ((= char ? ) nil) ; accept word this time only
1902 ((= char ?i) ; accept and insert word into pers dict
1906 ((or (= char ?a) (= char ?A)) ; accept word without insert
1911 (if (= char ?A) 0)) ; return 0 for ispell-add buffer-local
1912 ((or (= char ?r) (= char ?R)) ; type in replacement
1916 (if (or (= char ?R) ispell-query-replace-choices)
1927 ((or (= char ??) (= char help-char) (= char ?\C-h))
1936 ((= char ?x)
1942 ((= char ?X)
1950 ((= char ?q)
1958 ((= char ?l)
1990 (setq count (ispell-int-char (1+ count))
1994 count (ispell-int-char (1+ count))))
1995 (setq count (ispell-int-char
2003 ((= char ?u) ; insert lowercase into dictionary
2007 ((= char ?m) ; type in what to insert
2016 ((= char ?\C-l)
2018 ((= char ?\C-r)
2039 (goto-char ispell-recursive-edit-marker)
2049 ((= char ?\C-z)
2089 (goto-char end)
2095 (goto-char (point-min)))))
2229 (goto-char (point-max))
2231 (or (bobp) (= (preceding-char) ?\n) (insert ?\n))
2304 (goto-char end)
2306 (insert-char ? (- end start)) ; minimize amount of redisplay
2313 (goto-char end)
2316 (goto-char (1- start)))) ; use block cursor to "highlight" char
2412 (goto-char top)
2580 (let ((extended-char-mode (ispell-get-extended-character-mode)))
2581 (if extended-char-mode ; ~ extended character mode
2582 (ispell-send-string (concat extended-char-mode "\n"))))
2693 (goto-char reg-start)
2705 (goto-char reg-start)))
2742 (goto-char rstart))
2759 (goto-char end)))))
2775 (goto-char ispell-quit))
2902 (goto-char (point-min))
2909 (goto-char (point-min))
2916 (goto-char end))))
2925 (forward-char (length key))
2981 ;; (forward-char 1)) ; not needed as quoted below.
2987 (goto-char end))
2988 (t (goto-char end))) ; EMPTY LINE, skip it.
3038 (goto-char word-start)
3041 (goto-char (+ word-len word-start))
3043 (goto-char word-start)
3067 (goto-char word-start)
3106 (goto-char word-start)
3161 (goto-char (point-min))
3242 ((string-equal (upcase word) word)
3243 (setq possibilities (mapcar 'upcase possibilities)))
3244 ((eq (upcase (aref word 0)) (aref word 0))
3266 (goto-char cursor-location)
3271 (goto-char cursor-location)))
3347 (last-char (char-after (1- (point)))))
3349 (if (not (or (eq last-char ?\ ) (eq last-char ?\n)
3350 (and ispell-skip-html (eq last-char ?>))
3351 (and ispell-skip-html (eq last-char ?\;))))
3395 (forward-char)
3398 (forward-char 1))
3402 (forward-char))
3428 (goto-char (match-end 0))
3437 (setq textp (member (upcase match)
3441 (goto-char (match-end 0))
3463 (goto-char (match-end 0))
3471 (goto-char (point-max))
3499 (goto-char (point-min))
3515 ((char-or-string-p ispell-message-text-end)
3564 (goto-char (point-min))
3574 (goto-char (point-min))
3577 (goto-char (point-min))
3580 (goto-char (match-end 0))
3593 (goto-char (point-min))
3601 (goto-char (point-min))
3606 (goto-char (point-min))
3613 (goto-char (max end-of-headers (point)))
3670 (let ((extended-char-mode (ispell-get-extended-character-mode)))
3671 (if extended-char-mode
3672 (ispell-send-string (concat extended-char-mode "\n"))))
3675 (goto-char (point-max))
3705 (goto-char (point-min))
3709 (goto-char (point-max))
3718 (goto-char (point-max))
3742 (goto-char (point-min))
3767 (goto-char (point-min))
3819 ;;; The following places this file in nroff parsing and extended char modes.