Skip to content

GitLab

Commit 80f5d2ef authored by Andreas Schwab's avatar Andreas Schwab
Browse files

(apropos-words-to-regexp): Only add `wild' if 

`words' has more than one member.
parent cbc72cf5
Hide whitespace changes
Inline Side-by-side
Showing with 7 additions and 3 deletions
lisp/ChangeLog
View file @ 80f5d2ef
2003-08-02 Andreas Schwab <schwab@suse.de>
 
* apropos.el (apropos-words-to-regexp): Only add `wild' if `words'
has more than one member.
* progmodes/sh-script.el (sh-mode): Don't set mode-class property.
 
2003-08-01 Vinicius Jose Latorre <viniciusjl@ig.com.br>
......
lisp/apropos.el
View file @ 80f5d2ef
;;; 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 @@ before finding a label."
"Make regexp matching any two of the words in WORDS."
(concat "\\("
(mapconcat 'identity words "\\|")
"\\)" wild
"\\)"
(if (cdr words)
(concat "\\("
(concat wild
"\\("
(mapconcat 'identity words "\\|")
"\\)")
"")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment