1 |
;;; apropos.el --- apropos commands for users and programmers |
;;; apropos.el --- apropos commands for users and programmers |
2 |
|
|
3 |
;; Copyright (C) 1989, 1994, 1995, 2001, 2002 Free Software Foundation, Inc. |
;; Copyright (C) 1989, 1994, 1995, 2001, 2002, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Joe Wells <jbw@bigbird.bu.edu> |
;; Author: Joe Wells <jbw@bigbird.bu.edu> |
6 |
;; Rewritten: Daniel Pfeiffer <occitan@esperanto.org> |
;; Rewritten: Daniel Pfeiffer <occitan@esperanto.org> |
248 |
"Make regexp matching any two of the words in WORDS." |
"Make regexp matching any two of the words in WORDS." |
249 |
(concat "\\(" |
(concat "\\(" |
250 |
(mapconcat 'identity words "\\|") |
(mapconcat 'identity words "\\|") |
251 |
"\\)" wild |
"\\)" |
252 |
(if (cdr words) |
(if (cdr words) |
253 |
(concat "\\(" |
(concat wild |
254 |
|
"\\(" |
255 |
(mapconcat 'identity words "\\|") |
(mapconcat 'identity words "\\|") |
256 |
"\\)") |
"\\)") |
257 |
""))) |
""))) |