diff options
| author | Dave Love | 1998-09-09 19:55:29 +0000 |
|---|---|---|
| committer | Dave Love | 1998-09-09 19:55:29 +0000 |
| commit | b484eecc3f95140e69b2b37a0ae20f62840e12b0 (patch) | |
| tree | 43456494095bea0b00796885c4bbf16449e37fa8 | |
| parent | 97a3278b57a1f461b4e98f8aed6bb11dee96ddcb (diff) | |
| download | emacs-b484eecc3f95140e69b2b37a0ae20f62840e12b0.tar.gz emacs-b484eecc3f95140e69b2b37a0ae20f62840e12b0.zip | |
(help-xref-interned): Bind inhibit-read-only when
inserting.
| -rw-r--r-- | lisp/help.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 45d84b88970..7c59a96ef43 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -1030,7 +1030,8 @@ help buffer." | |||
| 1030 | ;; We now have a help buffer on the variable. Insert the function | 1030 | ;; We now have a help buffer on the variable. Insert the function |
| 1031 | ;; text after it. | 1031 | ;; text after it. |
| 1032 | (goto-char (point-max)) | 1032 | (goto-char (point-max)) |
| 1033 | (insert "\n\n" fdoc)) | 1033 | (let ((inhibit-read-only t)) |
| 1034 | (insert "\n\n" fdoc))) | ||
| 1034 | (goto-char (point-min)) | 1035 | (goto-char (point-min)) |
| 1035 | (help-setup-xref (list #'help-xref-interned symbol) nil)) | 1036 | (help-setup-xref (list #'help-xref-interned symbol) nil)) |
| 1036 | 1037 | ||