diff options
| author | Jay Belanger | 2008-07-13 04:37:44 +0000 |
|---|---|---|
| committer | Jay Belanger | 2008-07-13 04:37:44 +0000 |
| commit | 2ad05c22e6953dc951801987831d7fae0d3622ff (patch) | |
| tree | fd3e882bb960a100d454c7ed46878918523ea3bd /lisp | |
| parent | 24c02e6f1f69cef023366b79328f6fe435ad06e0 (diff) | |
| download | emacs-2ad05c22e6953dc951801987831d7fae0d3622ff.tar.gz emacs-2ad05c22e6953dc951801987831d7fae0d3622ff.zip | |
(calc-describe-thing): Use `re-search-forward' to search for regexp.
Diffstat (limited to 'lisp')
| -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." | |||
| 366 | (let (Info-history) | 366 | (let (Info-history) |
| 367 | (Info-goto-node (buffer-substring (match-beginning 1) (match-end 1)))) | 367 | (Info-goto-node (buffer-substring (match-beginning 1) (match-end 1)))) |
| 368 | (or (let ((case-fold-search nil)) | 368 | (or (let ((case-fold-search nil)) |
| 369 | (or (search-forward (format "\\[`%s'\\]\\|(`%s')\\|\\<The[ \n]`%s'" | 369 | (or (re-search-forward (format "\\[`%s'\\]\\|(`%s')\\|\\<The[ \n]`%s'" |
| 370 | (or target thing) | 370 | (or target thing) |
| 371 | (or target thing) | 371 | (or target thing) |
| 372 | (or target thing)) nil t) | 372 | (or target thing)) nil t) |
| 373 | (and not-quoted | 373 | (and not-quoted |
| 374 | (let ((case-fold-search t)) | 374 | (let ((case-fold-search t)) |
| 375 | (search-forward (or target thing) nil t))) | 375 | (search-forward (or target thing) nil t))) |
| 376 | (search-forward (format "`%s'" (or target thing)) nil t) | 376 | (search-forward (format "`%s'" (or target thing)) nil t) |
| 377 | (search-forward (or target thing) nil t))) | 377 | (search-forward (or target thing) nil t))) |
| 378 | (let ((case-fold-search t)) | 378 | (let ((case-fold-search t)) |
| 379 | (or (search-forward (format "\\[`%s'\\]\\|(`%s')\\|\\<The[ \n]`%s'" | 379 | (or (re-search-forward (format "\\[`%s'\\]\\|(`%s')\\|\\<The[ \n]`%s'" |
| 380 | (or target thing) | 380 | (or target thing) |
| 381 | (or target thing) | 381 | (or target thing) |
| 382 | (or target thing)) nil t) | 382 | (or target thing)) nil t) |
| 383 | (search-forward (format "`%s'" (or target thing)) nil t) | 383 | (search-forward (format "`%s'" (or target thing)) nil t) |
| 384 | (search-forward (or target thing) nil t)))) | 384 | (search-forward (or target thing) nil t)))) |
| 385 | (beginning-of-line) | 385 | (beginning-of-line) |