Lines Matching +refs:upcase +refs:char
312 (char-table-p (nth 1 map))
318 (set-char-table-default table (car l) 'isearch-printing-char)
322 (define-key map [t] 'isearch-other-control-char)
328 (define-key map (make-string 1 i) 'isearch-other-control-char)
334 (define-key map (vector i) 'isearch-printing-char)
337 ;; To handle local bindings with meta char prefix keys, define
339 ;; keys as well, one full keymap per char of the prefix key. It
343 (define-key map (char-to-string meta-prefix-char) meta-map)
345 (define-key map (vector meta-prefix-char t) 'isearch-other-meta-char)
355 (define-key map "\177" 'isearch-delete-char)
358 ;; This assumes \e is the meta-prefix-char.
359 (or (= ?\e meta-prefix-char)
364 (define-key map "\C-q" 'isearch-quote-char)
367 (define-key map "\C-j" 'isearch-printing-char)
368 (define-key map "\t" 'isearch-printing-char)
369 (define-key map [?\S-\ ] 'isearch-printing-char)
371 (define-key map "\C-w" 'isearch-yank-word-or-char)
372 (define-key map "\M-\C-w" 'isearch-del-char)
373 (define-key map "\M-\C-y" 'isearch-yank-char)
423 (define-key map "\C-f" 'isearch-yank-char-in-minibuffer)
424 (define-key map [right] 'isearch-yank-char-in-minibuffer)
444 (defvar isearch-message "") ; text-char-description version of isearch-string
524 Type \\[isearch-delete-char] to cancel last input item from end of search string.
529 Type \\[isearch-yank-word-or-char] to yank next word or character in buffer
531 Type \\[isearch-del-char] to delete character from end of search string.
532 Type \\[isearch-yank-char] to yank char from buffer onto end of search\
537 Type \\[isearch-quote-char] to quote control character to search for it.
740 (goto-char found-point))
792 (goto-char found-point)
814 (goto-char (next-single-property-change (point) 'intangible))
815 (goto-char (previous-single-property-change (point) 'intangible)))))
850 ;; (handle-switch-frame (car (cdr last-command-char))))
907 (goto-char (isearch-point-state cmd))))
952 If first char entered is \\[isearch-yank-word-or-char], then do word search instead."
1009 (isearch-message) ;; for read-char
1011 (let* (;; Why does following read-char echo?
1028 isearch-yank-word-or-char))
1042 (mapconcat 'isearch-text-char-description
1065 (mapconcat 'isearch-text-char-description
1112 (goto-char isearch-opoint)
1149 (mapconcat 'isearch-text-char-description
1159 (goto-char (if isearch-forward (point-min) (point-max)))))))
1178 (forward-char (if isearch-forward 1 -1))
1230 (goto-char isearch-other-end))
1251 (defun isearch-delete-char ()
1260 (defun isearch-del-char (&optional arg)
1267 isearch-message (mapconcat 'isearch-text-char-description
1283 (mapconcat 'isearch-text-char-description
1324 (goto-char isearch-other-end))
1327 (defun isearch-yank-char-in-minibuffer (&optional arg)
1335 (point) (progn (forward-char arg) (point)))))
1336 (forward-char arg)))
1338 (defun isearch-yank-char (&optional arg)
1341 (isearch-yank-internal (lambda () (forward-char arg) (point))))
1343 (defun isearch-yank-word-or-char ()
1348 (if (or (= (char-syntax (or (char-after) 0)) ?w)
1349 (= (char-syntax (or (char-after (1+ (point))) 0)) ?w))
1351 (forward-char 1)) (point))))
1400 (goto-char (if isearch-forward isearch-other-end
1444 (progn (goto-char isearch-barrier)
1477 (goto-char (if isearch-forward
1492 ;; (Old comment from isearch-other-meta-char: "Note that we don't have to
1599 (goto-char start)
1602 (goto-char isearch-point)
1604 (goto-char end)
1607 (goto-char isearch-point)
1609 (goto-char isearch-point))
1627 (defalias 'isearch-other-control-char 'isearch-other-meta-char)
1629 (defun isearch-other-meta-char (&optional arg)
1671 ;; If KEY is a printing char, we handle it here
1677 (isearch-process-search-char key)
1700 isearch-other-control-char)))))
1716 ;; isearch-other-meta-char in the first place.
1723 (goto-char isearch-point)))
1763 (defun isearch-quote-char ()
1766 (let ((char (read-quoted-char (isearch-message t))))
1770 (if (and isearch-regexp (= char ?\s))
1773 (isearch-process-search-char char))
1775 (>= char ?\200)
1776 (<= char ?\377)
1777 (setq char (unibyte-char-to-multibyte char)))
1778 (isearch-process-search-char char))))
1780 (defun isearch-return-char ()
1783 (isearch-process-search-char ?\n))
1784 (make-obsolete 'isearch-return-char 'isearch-printing-char)
1786 (defun isearch-printing-char ()
1789 (let ((char last-command-char))
1790 (if (= char ?\S-\ )
1791 (setq char ?\s))
1793 (>= char ?\200)
1794 (<= char ?\377))
1796 (isearch-process-search-multibyte-characters char)
1797 (isearch-process-search-char (unibyte-char-to-multibyte char)))
1799 (isearch-process-search-multibyte-characters char)
1800 (isearch-process-search-char char)))))
1802 (defun isearch-process-search-char (char)
1807 ((memq char '(?* ??)) (isearch-fallback nil))
1808 ((eq char ?\}) (isearch-fallback t t))
1809 ((eq char ?|) (isearch-fallback t nil t)))
1811 ;; Append the char to the search string, update the message and re-search.
1813 (char-to-string char)
1814 (if (>= char ?\200)
1815 (char-to-string char)
1816 (isearch-text-char-description char))))
1843 isearch-message (mapconcat 'isearch-text-char-description
1900 (mapconcat 'isearch-text-char-description
1967 (propertize (concat (upcase (substring m 0 1)) (substring m 1))
2007 (if (and (char-table-p translation-table-for-input)
2026 (goto-char pos1))
2084 (goto-char (isearch-point-state (car isearch-cmds)))))
2171 (goto-char beg)
2183 (get-char-property (point) 'invisible)))
2190 (goto-char (next-single-property-change (point) 'invisible
2219 (goto-char (next-overlay-change (point)))))
2240 (let ((char (aref string i)))
2241 (if (and regexp-flag (eq char ?\\))
2243 (if (and (not quote-flag) (not (eq char (downcase char))))
2248 ;; Even if there's no uppercase char, we want to detect the use
2249 ;; of [:upper:] or [:lower:] char-class, which indicates
2262 (defun isearch-text-char-description (c)
2266 (t (char-to-string c))))
2270 (defun isearch-unread (&rest char-or-events)
2271 (mapc 'store-kbd-macro-event char-or-events)
2273 (append char-or-events unread-command-events)))
2429 (goto-char (if isearch-forward
2447 (forward-char 1))
2452 (forward-char -1)))
2475 (goto-char (max (or isearch-lazy-highlight-start-limit (point-min))
2478 (goto-char (min (or isearch-lazy-highlight-end-limit (point-max))