(help-xref-interned): Bind inhibit-read-only when

inserting.
1998-09-09 19:55:29 +00:00
parent 97a3278b57
commit b484eecc3f
1 changed files with 2 additions and 1 deletions
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1030,7 +1030,8 @@ help buffer."
    ;; We now have a help buffer on the variable.  Insert the function
    ;; text after it.
    (goto-char (point-max))
-    (insert "\n\n" fdoc))
+    (let ((inhibit-read-only t))
+      (insert "\n\n" fdoc)))
  (goto-char (point-min))
  (help-setup-xref (list #'help-xref-interned symbol) nil))