mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-22 21:50:45 -08:00
Code Issues Projects Releases Wiki Activity

(isearch-other-meta-char): Don't modify mode-line and

Browse source 
similar events for which fake prefix keys are generated.  It's no
longer necessary since read_key_sequence doesn't modify these
events for internal purposes anymore.
This commit is contained in:
Gerd Moellmann 2001-07-25 14:02:28 +00:00
parent e743f5996e
commit 3fb01f36c5
2 changed files with 18 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,5 +1,10 @@
2001-07-25 Gerd Moellmann <gerd@gnu.org> 2001-07-25 Gerd Moellmann <gerd@gnu.org>
* isearch.el (isearch-other-meta-char): Don't modify mode-line and
similar events for which fake prefix keys are generated. It's no
longer necessary since read_key_sequence doesn't modify these
events for internal purposes anymore.
* files.el (auto-mode-alist): Use nroff-mode for files ending * files.el (auto-mode-alist): Use nroff-mode for files ending
in `.9'. From Assar Westerlund <assar@stacken.kth.se>. in `.9'. From Assar Westerlund <assar@stacken.kth.se>.

27
lisp/isearch.el
View file

@ -1229,20 +1229,19 @@ and the meta character is unread so that it applies to editing the string."
(let (window) (let (window)
(cancel-kbd-macro-events) (cancel-kbd-macro-events)
(apply 'isearch-unread keylist) (apply 'isearch-unread keylist)
;; Properly handle scroll-bar and mode-line clicks
;; for which a dummy prefix event was generated as (aref key 0). ;; Properly handle scroll-bar and mode-line clicks for
(and (> (length key) 1) ;; which a dummy prefix event was generated as (aref key
(symbolp (aref key 0)) ;; 0). Note that we don't have to modify the event
(listp (aref key 1)) ;; anymore in 21 because read_key_sequence no longer modifies
(not (numberp (posn-point (event-start (aref key 1))))) ;; events to produce fake prefix keys.
;; Convert the event back into its raw form, (when (and (> (length key) 1)
;; with the dummy prefix implicit in the mouse event, (symbolp (aref key 0))
;; so it will get split up once again. (listp (aref key 1))
(progn (setq unread-command-events (not (numberp (posn-point
(cdr unread-command-events)) (event-start (aref key 1))))))
(setq main-event (car unread-command-events)) (setq main-event (pop unread-command-events)))
(setcar (cdr (event-start main-event))
(car (nth 1 (event-start main-event))))))
;; If we got a mouse click, maybe it was read with the buffer ;; If we got a mouse click, maybe it was read with the buffer
;; it was clicked on. If so, that buffer, not the current one, ;; it was clicked on. If so, that buffer, not the current one,
;; is in isearch mode. So end the search in that buffer. ;; is in isearch mode. So end the search in that buffer.