martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(isearch-other-meta-char): Avoid bug checking whether

Browse Source 
a key is defined in the function key map.
Call cancel-kbd-macro-events.
This commit is contained in:
Richard M. Stallman
1995-08-10 23:19:22 +00:00
parent f1f32df9a9
commit d94eb6ebc8
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/isearch.el
View File

@@ -1007,12 +1007,14 @@ and the meta character is unread so that it applies to editing the string."
(main-event (aref key 0))
(keylist (listify-key-sequence key)))
(cond ((and (= (length key) 1)
(lookup-key function-key-map key))
(let ((lookup (lookup-key function-key-map key)))
(not (or (null lookup) (integerp lookup)))))
;; Handle a function key that translates into something else.
;; If the key has a global definition too,
;; exit and unread the key itself, so its global definition runs.
;; Otherwise, unread the translation,
;; so that the translated key takes effect within isearch.
(cancel-kbd-macro-events)
(if (lookup-key global-map key)
(progn
(isearch-done)
@@ -1035,12 +1037,14 @@ and the meta character is unread so that it applies to editing the string."
copy)
nil)))
(setcar keylist (- main-event (- ?\C-\S-a ?\C-a)))
(cancel-kbd-macro-events)
(apply 'isearch-unread keylist))
((eq search-exit-option 'edit)
(apply 'isearch-unread keylist)
(isearch-edit-string))
(search-exit-option
(let (window)
(cancel-kbd-macro-events)
(apply 'isearch-unread keylist)
;; Properly handle scroll-bar and mode-line clicks
;; for which a dummy prefix event was generated as (aref key 0).