Commit 23ba5eeb authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

case insensitive search is now the default for kom-list-re. fixes bug 295.

parent bec476c3
2001-12-14 Ulrik Haugen <qha@lysator.liu.se> 2001-12-14 Ulrik Haugen <qha@lysator.liu.se>
* commands1.el (kom-list-re): case insensitive search is now the
default.
* swedish-strings.el, english-strings.el (lyskom-message): new * swedish-strings.el, english-strings.el (lyskom-message): new
string: add-recpt-button-text string: add-recpt-button-text.
* edit-text.el (lyskom-edit-insert-miscs): use * edit-text.el (lyskom-edit-insert-miscs): use
add-recpt-button-text for the add recipient-button. add-recpt-button-text for the add recipient-button.
......
...@@ -1799,15 +1799,15 @@ If you are not member in the conference it will be flagged with an asterisk." ...@@ -1799,15 +1799,15 @@ If you are not member in the conference it will be flagged with an asterisk."
(apply 'concat (nreverse res)))) (apply 'concat (nreverse res))))
(def-kom-command kom-list-re (regexp &optional case-insensitive) (def-kom-command kom-list-re (regexp &optional case-sensitive)
"List all persons and conferences whose name matches REGEXP. "List all persons and conferences whose name matches REGEXP.
If the optional argument CASE-INSENSITIVE is true, the regexp will be If the optional argument CASE-SENSITIVE is true, the regexp will not
converted so that the search is case insensitive." be converted so that the search is case sensitive."
(interactive (list (lyskom-read-string (interactive (list (lyskom-read-string
(lyskom-get-string 'search-re)) (lyskom-get-string 'search-re))
current-prefix-arg)) current-prefix-arg))
(if case-insensitive (unless case-sensitive
(setq regexp (lyskom-make-re-case-insensitive regexp))) (setq regexp (lyskom-make-re-case-insensitive regexp)))
(lyskom-format-insert 'matching-regexp regexp) (lyskom-format-insert 'matching-regexp regexp)
(let ((conf-list (blocking-do 're-z-lookup regexp 1 1))) (let ((conf-list (blocking-do 're-z-lookup regexp 1 1)))
(if conf-list (if conf-list
......
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