Mercurial > emacs
comparison lisp/simple.el @ 97481:d50fcbf5354d
(choose-completion): Try reselecting completion-reference-buffer.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 15 Aug 2008 00:30:44 +0000 |
| parents | 2ac804a70140 |
| children | ca935ec23969 |
comparison
equal
deleted
inserted
replaced
| 97480:26543fe3b72d | 97481:d50fcbf5354d |
|---|---|
| 5610 (setq beg (previous-single-property-change beg 'mouse-face)) | 5610 (setq beg (previous-single-property-change beg 'mouse-face)) |
| 5611 (setq end (or (next-single-property-change end 'mouse-face) (point-max))) | 5611 (setq end (or (next-single-property-change end 'mouse-face) (point-max))) |
| 5612 (setq completion (buffer-substring-no-properties beg end)) | 5612 (setq completion (buffer-substring-no-properties beg end)) |
| 5613 (let ((owindow (selected-window))) | 5613 (let ((owindow (selected-window))) |
| 5614 (if (and (one-window-p t 'selected-frame) | 5614 (if (and (one-window-p t 'selected-frame) |
| 5615 (window-dedicated-p (selected-window))) | 5615 (window-dedicated-p owindow)) |
| 5616 ;; This is a special buffer's frame | 5616 ;; This is a special buffer's frame |
| 5617 (iconify-frame (selected-frame)) | 5617 (iconify-frame (selected-frame)) |
| 5618 (or (window-dedicated-p (selected-window)) | 5618 (or (window-dedicated-p (selected-window)) |
| 5619 (bury-buffer))) | 5619 (bury-buffer))) |
| 5620 (select-window owindow)) | 5620 (select-window |
| 5621 (or (and (buffer-live-p buffer) | |
| 5622 (get-buffer-window buffer)) | |
| 5623 owindow))) | |
| 5621 (choose-completion-string completion buffer base-size))) | 5624 (choose-completion-string completion buffer base-size))) |
| 5622 | 5625 |
| 5623 ;; Delete the longest partial match for STRING | 5626 ;; Delete the longest partial match for STRING |
| 5624 ;; that can be found before POINT. | 5627 ;; that can be found before POINT. |
| 5625 (defun choose-completion-delete-max-match (string) | 5628 (defun choose-completion-delete-max-match (string) |