[Emacs-diffs] Changes to emacs/lisp/iswitchb.el

[Stephen Eglen]

Index: emacs/lisp/iswitchb.el
diff -c emacs/lisp/iswitchb.el:1.44 emacs/lisp/iswitchb.el:1.45
*** emacs/lisp/iswitchb.el:1.44 Mon Sep  1 11:45:13 2003
--- emacs/lisp/iswitchb.el      Tue Nov 25 09:37:44 2003
***************
*** 610,616 ****
                                 nil    ;require-match [handled elsewhere]
                                 nil    ;initial-contents
                                 'iswitchb-history)))
!     (if (get-buffer iswitchb-final-text)
        ;; This happens for example if the buffer was chosen with the mouse.
        (setq iswitchb-matches (list iswitchb-final-text)))
  
--- 610,617 ----
                                 nil    ;require-match [handled elsewhere]
                                 nil    ;initial-contents
                                 'iswitchb-history)))
!     (if (and (not (eq iswitchb-exit 'usefirst))
!            (get-buffer iswitchb-final-text))
        ;; This happens for example if the buffer was chosen with the mouse.
        (setq iswitchb-matches (list iswitchb-final-text)))
  
***************
*** 712,718 ****
    (interactive)
    (if (or (not iswitchb-require-match)
           (iswitchb-existing-buffer-p))
!       (throw 'exit nil)))
  
  (defun iswitchb-select-buffer-text ()
    "Select the buffer named by the prompt.
--- 713,721 ----
    (interactive)
    (if (or (not iswitchb-require-match)
           (iswitchb-existing-buffer-p))
!       (progn
!       (setq iswitchb-exit 'usefirst)
!       (throw 'exit nil))))
  
  (defun iswitchb-select-buffer-text ()
    "Select the buffer named by the prompt.