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) |