mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(Man-bgproc-sentinel): Bind case-fold-search for just the

Browse source 
necessary parts of the function, not the call to Man-notify-when-ready.
This commit is contained in:
Richard M. Stallman 1994-07-11 00:25:37 +00:00
parent 6e1dbafa9a
commit 8c79b392dc
1 changed files with 21 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

41
lisp/man.el
View file

@ -531,37 +531,38 @@ See the variable `Man-notify' for the different notification behaviors."
"Manpage background process sentinel."
(let ((Man-buffer (process-buffer process))
(delete-buff nil)
(err-mess nil)
(case-fold-search nil))
(err-mess nil))
(if (null (buffer-name Man-buffer)) ;; deleted buffer
(set-process-buffer process nil)
(save-match-data
(save-excursion
(set-buffer Man-buffer)
(goto-char (point-min))
(cond ((or (looking-at "No \\(manual \\)*entry for")
(looking-at "[^\n]*: nothing appropriate$"))
(setq err-mess (buffer-substring (point) (Man-linepos 'eol))
delete-buff t))
((not (and (eq (process-status process) 'exit)
(= (process-exit-status process) 0)))
(setq err-mess
(concat (buffer-name Man-buffer)
": process "
(let ((eos (1- (length msg))))
(if (= (aref msg eos) ?\n)
(substring msg 0 eos) msg))))
(goto-char (point-max))
(insert (format "\nprocess %s" msg))
)))
(let ((case-fold-search nil))
(cond ((or (looking-at "No \\(manual \\)*entry for")
(looking-at "[^\n]*: nothing appropriate$"))
(setq err-mess (buffer-substring (point) (Man-linepos 'eol))
delete-buff t))
((not (and (eq (process-status process) 'exit)
(= (process-exit-status process) 0)))
(setq err-mess
(concat (buffer-name Man-buffer)
": process "
(let ((eos (1- (length msg))))
(if (= (aref msg eos) ?\n)
(substring msg 0 eos) msg))))
(goto-char (point-max))
(insert (format "\nprocess %s" msg))
))))
(if delete-buff
(kill-buffer Man-buffer)
(save-window-excursion
(save-excursion
(set-buffer Man-buffer)
(Man-set-fonts)
(run-hooks 'Man-cooked-hook)
(Man-mode)
(let ((case-fold-search nil))
(Man-set-fonts)
(run-hooks 'Man-cooked-hook)
(Man-mode))
(set-buffer-modified-p nil)))
(Man-notify-when-ready Man-buffer))