610 |
nil ;require-match [handled elsewhere] |
nil ;require-match [handled elsewhere] |
611 |
nil ;initial-contents |
nil ;initial-contents |
612 |
'iswitchb-history))) |
'iswitchb-history))) |
613 |
(if (get-buffer iswitchb-final-text) |
(if (and (not (eq iswitchb-exit 'usefirst)) |
614 |
|
(get-buffer iswitchb-final-text)) |
615 |
;; This happens for example if the buffer was chosen with the mouse. |
;; This happens for example if the buffer was chosen with the mouse. |
616 |
(setq iswitchb-matches (list iswitchb-final-text))) |
(setq iswitchb-matches (list iswitchb-final-text))) |
617 |
|
|
713 |
(interactive) |
(interactive) |
714 |
(if (or (not iswitchb-require-match) |
(if (or (not iswitchb-require-match) |
715 |
(iswitchb-existing-buffer-p)) |
(iswitchb-existing-buffer-p)) |
716 |
(throw 'exit nil))) |
(progn |
717 |
|
(setq iswitchb-exit 'usefirst) |
718 |
|
(throw 'exit nil)))) |
719 |
|
|
720 |
(defun iswitchb-select-buffer-text () |
(defun iswitchb-select-buffer-text () |
721 |
"Select the buffer named by the prompt. |
"Select the buffer named by the prompt. |