Mercurial > emacs
comparison lisp/woman.el @ 35690:89f18a0fac53
(WoMan-log-1): Make the log buffer writable. From
Markus Rost <rost@math.ohio-state.edu>.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 29 Jan 2001 16:24:24 +0000 |
| parents | 71a6a11c10d0 |
| children | a188ef02f4da |
comparison
equal
deleted
inserted
replaced
| 35689:ee10f85a7117 | 35690:89f18a0fac53 |
|---|---|
| 4409 "Log a message STRING in *WoMan-Log*. | 4409 "Log a message STRING in *WoMan-Log*. |
| 4410 If optional argument END is non-nil then make buffer read-only after | 4410 If optional argument END is non-nil then make buffer read-only after |
| 4411 logging the message." | 4411 logging the message." |
| 4412 (save-excursion | 4412 (save-excursion |
| 4413 (set-buffer (get-buffer-create "*WoMan-Log*")) | 4413 (set-buffer (get-buffer-create "*WoMan-Log*")) |
| 4414 (setq buffer-read-only nil) | |
| 4414 (goto-char (point-max)) | 4415 (goto-char (point-max)) |
| 4415 (or end (insert " ")) (insert string "\n") | 4416 (or end (insert " ")) (insert string "\n") |
| 4416 (if end | 4417 (if end |
| 4417 (setq buffer-read-only t) | 4418 (setq buffer-read-only t) |
| 4418 (if woman-show-log | 4419 (if woman-show-log |