diff options
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) |