comparison lisp/prim/minibuf.el @ 144:318232e2a3f0 r20-2b6

Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents b980b6286996
children 25f70ba0133c
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
369 (if (not minibuffer-smart-completion-tracking-behavior) 369 (if (not minibuffer-smart-completion-tracking-behavior)
370 nil 370 nil
371 (make-local-variable 'mode-motion-hook) 371 (make-local-variable 'mode-motion-hook)
372 (or mode-motion-hook 372 (or mode-motion-hook
373 ;;####disgusting 373 ;;####disgusting
374 (setq mode-motion-hook 'minibuffer-mouse-tracker)) 374 (setq mode-motion-hook 'minibuffer-smart-mouse-tracker))
375 (make-local-variable 'mouse-track-click-hook) 375 (make-local-variable 'mouse-track-click-hook)
376 (add-hook 'mouse-track-click-hook 376 (add-hook 'mouse-track-click-hook
377 'minibuffer-smart-maybe-select-highlighted-completion)) 377 'minibuffer-smart-maybe-select-highlighted-completion))
378 (set-window-buffer window buffer) 378 (set-window-buffer window buffer)
379 (select-window window) 379 (select-window window)