Mercurial > emacs

comparison lisp/isearch.el @ 69564:30b0fe844c71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-other-meta-char): Handle user bindings for shifted control characters.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 18 Mar 2006 15:11:48 +0000
parents fba8c045e2a0
children f98b5ff9f3ce b901f4f12f33 e3bacb89536a
comparison
equal deleted inserted replaced
69563:e5352a2d20bc 69564:30b0fe844c71
1694 ;; if we didn't have a default definition.) 1694 ;; if we didn't have a default definition.)
1695 (let ((mods (event-modifiers main-event))) 1695 (let ((mods (event-modifiers main-event)))
1696 (and (integerp main-event) 1696 (and (integerp main-event)
1697 (memq 'shift mods) 1697 (memq 'shift mods)
1698 (memq 'control mods) 1698 (memq 'control mods)
1699 (lookup-key isearch-mode-map 1699 (not (memq (lookup-key isearch-mode-map
1700 (let ((copy (copy-sequence key))) 1700 (let ((copy (copy-sequence key)))
1701 (aset copy 0 1701 (aset copy 0
1702 (- main-event (- ?\C-\S-a ?\C-a))) 1702 (- main-event
1703 copy) 1703 (- ?\C-\S-a ?\C-a)))
1704 nil))) 1704 copy)
1705 nil)
1706 '(nil
1707 isearch-other-control-char)))))
1705 (setcar keylist (- main-event (- ?\C-\S-a ?\C-a))) 1708 (setcar keylist (- main-event (- ?\C-\S-a ?\C-a)))
1706 (cancel-kbd-macro-events) 1709 (cancel-kbd-macro-events)
1707 (apply 'isearch-unread keylist)) 1710 (apply 'isearch-unread keylist))
1708 ((eq search-exit-option 'edit) 1711 ((eq search-exit-option 'edit)
1709 (apply 'isearch-unread keylist) 1712 (apply 'isearch-unread keylist)