[elpa] scratch/hyperbole fa47424e75 09/12: hactypes.el (rfc-toc): Remove redundant `buffer-read-only` let-binding

[Stefan Monnier]

branch: scratch/hyperbole
commit fa47424e754cbca2a62b441f1739695a4e710413
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    hactypes.el (rfc-toc): Remove redundant `buffer-read-only` let-binding
---
 hactypes.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/hactypes.el b/hactypes.el
index bf7744d347..da583c18fd 100644
--- a/hactypes.el
+++ b/hactypes.el
@@ -32,7 +32,7 @@
 ;;; Standard Hyperbole action types
 ;;; ************************************************************************
 
-(defact annot-bib (key)
+(defact annot-bib (key) ;; FIXME: Clean up namespace use!
   "Follow internal ref KEY within an annotated bibliography, delimiters=[]."
   (interactive "sReference key (no []): ")
   (let* ((key-regexp (concat "^[*]*[ \t]*\\[" (ebut:key-to-label key) "\\]"))
@@ -716,8 +716,7 @@ Optional SECTIONS-START limits toc entries to those after 
that point."
     (rename-buffer toc-buf-name)
     (re-search-forward "^[ ]*[0-9]+:" nil t)
     (beginning-of-line)
-    (let ((inhibit-read-only t)
-         (buffer-read-only))
+    (let ((inhibit-read-only t))
       (remove-text-properties (point-min) (point) '(read-only))
       (delete-region (point-min) (point))
       (insert "Sections of " rfc-buf-name ":\n")