Lines Matching +defs:string +defs:match
78 ;; However, if I type 4, I only have one match left:
86 ;; iswitch 234a [No match]
108 ;; See the doc string of iswitchb for full keybindings and features.
126 ;; t In | [No match]
138 ;; (define-key iswitchb-mode-map " " 'iswitchb-next-match))
191 ;; choices. PROMPT is a string to prompt with. CHOICES is a list of
307 "*If non-nil, refer to past buffers when none match.
323 window with completion alternatives, or `iswitchb-next-match' or
324 `iswitchb-prev-match', which cycle the buffer list."
333 ; (string-match "^C$" mode-name)))
377 "*Non-nil means use font-lock fonts for showing first match."
408 (defface iswitchb-single-match
415 (defface iswitchb-current-match
468 (defvar iswitchb-common-match-string nil
469 "Stores the string that is common to all matching buffers.")
475 "Stores the users string as it is typed in.")
484 (define-key map "\C-s" 'iswitchb-next-match)
485 (define-key map "\C-r" 'iswitchb-prev-match)
523 (defvar iswitchb-require-match nil
535 (defvar iswitchb-common-match-inserted nil
536 "Non-nil if we have just inserted a common match in the minibuffer.")
554 (define-key map "\C-s" 'iswitchb-next-match)
555 (define-key map "\C-r" 'iswitchb-prev-match)
570 As you type in a string, all of the buffers matching the string are
582 \\[iswitchb-next-match] Put the first element at the end of the list.
583 \\[iswitchb-prev-match] Put the last element at the start of the list.
584 \\[iswitchb-complete] Complete a common suffix to the current string that
585 matches all buffers. If there is only one match, select that buffer.
620 (defun iswitchb-read-buffer (prompt &optional default require-match
628 If START is a string, the selection process is started with that
629 string.
655 (iswitchb-require-match require-match))
661 nil ;require-match [handled elsewhere]
679 ;; Handling the require-match must be done in a better way.
680 (if (and require-match
704 The result is stored in `iswitchb-common-match-string'."
707 (setq iswitchb-common-match-string nil)
714 (setq iswitchb-common-match-string val)))
732 (setq res iswitchb-common-match-string)
738 iswitchb-common-match-inserted t)
775 "Exit minibuffer, but make sure we have a match if one is needed."
777 (if (or (not iswitchb-require-match)
799 (defun iswitchb-next-match ()
810 (defun iswitchb-prev-match ()
912 &optional string-format buffer-list)
914 If STRING-FORMAT is nil, consider REGEXP as just a string.
918 (if (null string-format) (setq regexp (regexp-quote regexp)))
923 (when (and (string-match regexp name)
932 (let ((data (match-data))
940 (if (string-match nextstr bufname)
950 (set-match-data data)
956 "Return part of WORD before 1st match to `iswitchb-change-word-sub'.
959 (let ((m (string-match iswitchb-change-word-sub word)))
962 ;; else no match
966 "Return common string following SUBS in each element of LIS."
978 ;; try-completion returns t if there is an exact match.
1003 ;; we could allow this buffer to be used to select match, but I think
1004 ;; choose-completion-string will need redefining, so it just inserts
1013 (not iswitchb-common-match-inserted))
1031 :help-string "iswitchb "
1041 (setq iswitchb-common-match-inserted nil))))
1238 ; (match-status info) begins:
1249 ;; Insert the match-status information:
1259 ;; Most is one exact match,
1267 "Return the string that is displayed after the user's text.
1287 'iswitchb-single-match)
1288 'iswitchb-current-match)
1301 (string-match (if iswitchb-regexp
1321 (cond ((null comps) (format " %sNo match%s"
1327 ((null (cdr comps)) ;one match
1332 (string-match name (car comps))
1333 (string-equal (match-string 0 (car comps))
1337 ;; when there is one match, show the
1370 (if (and (stringp iswitchb-common-match-string)
1371 (> (length iswitchb-common-match-string) (length name)))
1373 (substring iswitchb-common-match-string
1437 (if (string-match "Summary\\|output\\*$" x)