Mercurial > emacs
comparison lisp/emacs-lisp/lisp.el @ 76768:36178b78d004
(lisp-complete-symbol): Make get-buffer-window find windows in other frames.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 28 Mar 2007 00:54:08 +0000 |
| parents | 7a3f13e2dd57 |
| children | 935157c0b596 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
| 76767:3f12f4633f63 | 76768:36178b78d004 |
|---|---|
| 580 considered. If the symbol starts just after an open-parenthesis, only | 580 considered. If the symbol starts just after an open-parenthesis, only |
| 581 symbols with function definitions are considered. Otherwise, all | 581 symbols with function definitions are considered. Otherwise, all |
| 582 symbols with function definitions, values or properties are | 582 symbols with function definitions, values or properties are |
| 583 considered." | 583 considered." |
| 584 (interactive) | 584 (interactive) |
| 585 | 585 (let ((window (get-buffer-window "*Completions*" 0))) |
| 586 (let ((window (get-buffer-window "*Completions*"))) | |
| 587 (if (and (eq last-command this-command) | 586 (if (and (eq last-command this-command) |
| 588 window (window-live-p window) (window-buffer window) | 587 window (window-live-p window) (window-buffer window) |
| 589 (buffer-name (window-buffer window))) | 588 (buffer-name (window-buffer window))) |
| 590 ;; If this command was repeated, and | 589 ;; If this command was repeated, and |
| 591 ;; there's a fresh completion window with a live buffer, | 590 ;; there's a fresh completion window with a live buffer, |