/[emacs]/emacs/lisp/iswitchb.el
ViewVC logotype

Diff of /emacs/lisp/iswitchb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by miles, Mon Sep 1 15:45:13 2003 UTC revision 1.45 by stephen, Tue Nov 25 14:37:44 2003 UTC
# Line 610  If REQUIRE-MATCH is non-nil, an existing Line 610  If REQUIRE-MATCH is non-nil, an existing
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    
# Line 712  The result is stored in `iswitchb-common Line 713  The result is stored in `iswitchb-common
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.

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26