Mercurial > emacs
comparison lisp/calc/calc-help.el @ 96634:f9a35ef0a183
(calc-describe-thing): Use `re-search-forward' to search for regexp.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sun, 13 Jul 2008 04:37:44 +0000 |
| parents | 81eac214e2f4 |
| children | e3997bf73655 |
comparison
equal
deleted
inserted
replaced
| 96633:a97d26db1c42 | 96634:f9a35ef0a183 |
|---|---|
| 364 (set-window-configuration savewin) | 364 (set-window-configuration savewin) |
| 365 (error "Can't find `%s' in %s" thing where))) | 365 (error "Can't find `%s' in %s" thing where))) |
| 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) |
| 386 (message "Found `%s' in %s" thing where))) | 386 (message "Found `%s' in %s" thing where))) |
| 387 | 387 |