Mercurial > emacs
comparison lisp/man.el @ 8190:04aa77218846
(Man-bgproc-sentinel): Bind case-fold-search for just the
necessary parts of the function, not the call to Man-notify-when-ready.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 11 Jul 1994 00:25:37 +0000 |
| parents | 4430fd0ea0a4 |
| children | c75e435af62f |
comparison
equal
deleted
inserted
replaced
| 8189:b88934e64021 | 8190:04aa77218846 |
|---|---|
| 529 | 529 |
| 530 (defun Man-bgproc-sentinel (process msg) | 530 (defun Man-bgproc-sentinel (process msg) |
| 531 "Manpage background process sentinel." | 531 "Manpage background process sentinel." |
| 532 (let ((Man-buffer (process-buffer process)) | 532 (let ((Man-buffer (process-buffer process)) |
| 533 (delete-buff nil) | 533 (delete-buff nil) |
| 534 (err-mess nil) | 534 (err-mess nil)) |
| 535 (case-fold-search nil)) | |
| 536 (if (null (buffer-name Man-buffer)) ;; deleted buffer | 535 (if (null (buffer-name Man-buffer)) ;; deleted buffer |
| 537 (set-process-buffer process nil) | 536 (set-process-buffer process nil) |
| 538 (save-match-data | 537 (save-match-data |
| 539 (save-excursion | 538 (save-excursion |
| 540 (set-buffer Man-buffer) | 539 (set-buffer Man-buffer) |
| 541 (goto-char (point-min)) | 540 (goto-char (point-min)) |
| 542 (cond ((or (looking-at "No \\(manual \\)*entry for") | 541 (let ((case-fold-search nil)) |
| 543 (looking-at "[^\n]*: nothing appropriate$")) | 542 (cond ((or (looking-at "No \\(manual \\)*entry for") |
| 544 (setq err-mess (buffer-substring (point) (Man-linepos 'eol)) | 543 (looking-at "[^\n]*: nothing appropriate$")) |
| 545 delete-buff t)) | 544 (setq err-mess (buffer-substring (point) (Man-linepos 'eol)) |
| 546 ((not (and (eq (process-status process) 'exit) | 545 delete-buff t)) |
| 547 (= (process-exit-status process) 0))) | 546 ((not (and (eq (process-status process) 'exit) |
| 548 (setq err-mess | 547 (= (process-exit-status process) 0))) |
| 549 (concat (buffer-name Man-buffer) | 548 (setq err-mess |
| 550 ": process " | 549 (concat (buffer-name Man-buffer) |
| 551 (let ((eos (1- (length msg)))) | 550 ": process " |
| 552 (if (= (aref msg eos) ?\n) | 551 (let ((eos (1- (length msg)))) |
| 553 (substring msg 0 eos) msg)))) | 552 (if (= (aref msg eos) ?\n) |
| 554 (goto-char (point-max)) | 553 (substring msg 0 eos) msg)))) |
| 555 (insert (format "\nprocess %s" msg)) | 554 (goto-char (point-max)) |
| 556 ))) | 555 (insert (format "\nprocess %s" msg)) |
| 556 )))) | |
| 557 (if delete-buff | 557 (if delete-buff |
| 558 (kill-buffer Man-buffer) | 558 (kill-buffer Man-buffer) |
| 559 (save-window-excursion | 559 (save-window-excursion |
| 560 (save-excursion | 560 (save-excursion |
| 561 (set-buffer Man-buffer) | 561 (set-buffer Man-buffer) |
| 562 (Man-set-fonts) | 562 (let ((case-fold-search nil)) |
| 563 (run-hooks 'Man-cooked-hook) | 563 (Man-set-fonts) |
| 564 (Man-mode) | 564 (run-hooks 'Man-cooked-hook) |
| 565 (Man-mode)) | |
| 565 (set-buffer-modified-p nil))) | 566 (set-buffer-modified-p nil))) |
| 566 (Man-notify-when-ready Man-buffer)) | 567 (Man-notify-when-ready Man-buffer)) |
| 567 | 568 |
| 568 (if err-mess | 569 (if err-mess |
| 569 (error err-mess)))))) | 570 (error err-mess)))))) |