diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2008-07-13 04:37:44 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2008-07-13 04:37:44 +0000 |
| commit | 2ad05c22e6953dc951801987831d7fae0d3622ff (patch) | |
| tree | fd3e882bb960a100d454c7ed46878918523ea3bd /lisp/calc/calc-help.el | |
| parent | 24c02e6f1f69cef023366b79328f6fe435ad06e0 (diff) | |
| download | emacs-2ad05c22e6953dc951801987831d7fae0d3622ff.tar.gz | |
(calc-describe-thing): Use `re-search-forward' to search for regexp.
Diffstat (limited to 'lisp/calc/calc-help.el')
| -rw-r--r-- | lisp/calc/calc-help.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index 5357ca17f56..7b9ac5cd1fd 100644 --- a/lisp/calc/calc-help.el +++ b/lisp/calc/calc-help.el @@ -366,20 +366,20 @@ C-w Describe how there is no warranty for Calc." (let (Info-history) (Info-goto-node (buffer-substring (match-beginning 1) (match-end 1)))) (or (let ((case-fold-search nil)) - (or (search-forward (format "\\[`%s'\\]\\|(`%s')\\|\\<The[ \n]`%s'" - (or target thing) - (or target thing) - (or target thing)) nil t) + (or (re-search-forward (format "\\[`%s'\\]\\|(`%s')\\|\\<The[ \n]`%s'" + (or target thing) + (or target thing) + (or target thing)) nil t) (and not-quoted (let ((case-fold-search t)) (search-forward (or target thing) nil t))) (search-forward (format "`%s'" (or target thing)) nil t) (search-forward (or target thing) nil t))) (let ((case-fold-search t)) - (or (search-forward (format "\\[`%s'\\]\\|(`%s')\\|\\<The[ \n]`%s'" - (or target thing) - (or target thing) - (or target thing)) nil t) + (or (re-search-forward (format "\\[`%s'\\]\\|(`%s')\\|\\<The[ \n]`%s'" + (or target thing) + (or target thing) + (or target thing)) nil t) (search-forward (format "`%s'" (or target thing)) nil t) (search-forward (or target thing) nil t)))) (beginning-of-line) |