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 |