Mercurial > emacs
changeset 52101:f3610e8bfe2d
(apropos-words-to-regexp): Only add `wild' if
`words' has more than one member.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sat, 02 Aug 2003 20:35:38 +0000 |
| parents | c91248761df3 |
| children | 3582fa41d83a |
| files | lisp/apropos.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/apropos.el Sat Aug 02 20:09:42 2003 +0000 +++ b/lisp/apropos.el Sat Aug 02 20:35:38 2003 +0000 @@ -1,6 +1,6 @@ ;;; apropos.el --- apropos commands for users and programmers -;; Copyright (C) 1989, 1994, 1995, 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1989, 1994, 1995, 2001, 2002, 2003 Free Software Foundation, Inc. ;; Author: Joe Wells <jbw@bigbird.bu.edu> ;; Rewritten: Daniel Pfeiffer <occitan@esperanto.org> @@ -248,9 +248,10 @@ "Make regexp matching any two of the words in WORDS." (concat "\\(" (mapconcat 'identity words "\\|") - "\\)" wild + "\\)" (if (cdr words) - (concat "\\(" + (concat wild + "\\(" (mapconcat 'identity words "\\|") "\\)") "")))