diff options
| author | Stefan Monnier | 2007-03-28 00:54:08 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-03-28 00:54:08 +0000 |
| commit | 4878f1de7c974282eb6f122eee6c73d45d454915 (patch) | |
| tree | 37ea6d88c3e21d209f4ec73ae54e2a54a4d0fcc9 | |
| parent | dbb56e39bf5352a1f81112986f29d59ba9ac0556 (diff) | |
| download | emacs-4878f1de7c974282eb6f122eee6c73d45d454915.tar.gz emacs-4878f1de7c974282eb6f122eee6c73d45d454915.zip | |
(lisp-complete-symbol): Make get-buffer-window find windows in other frames.
| -rw-r--r-- | lisp/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 3 |
2 files changed, 12 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dd157ce9984..53e7f65c968 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,14 @@ | |||
| 1 | 2007-03-28 David Hansen <david.hansen@gmx.net> (tiny change) | ||
| 2 | |||
| 3 | * emacs-lisp/lisp.el (lisp-complete-symbol): | ||
| 4 | Fix call to get-buffer-window to find windows in other frames. | ||
| 5 | |||
| 6 | 2007-03-28 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 7 | |||
| 8 | * comint.el (comint-proc-query, comint-dynamic-list-completions): | ||
| 9 | Fix calls to get-buffer-window to find windows in other frames. | ||
| 10 | Reported by David Hansen <david.hansen@gmx.net>. | ||
| 11 | |||
| 1 | 2007-03-27 Kevin Ryde <user42@zip.com.au> | 12 | 2007-03-27 Kevin Ryde <user42@zip.com.au> |
| 2 | 13 | ||
| 3 | * info.el (Info-display-images-node): On a text-only terminal, show | 14 | * info.el (Info-display-images-node): On a text-only terminal, show |
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 947b4063ad4..5254a8389b4 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el | |||
| @@ -582,8 +582,7 @@ 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))) |