branch: scratch/hyperbole
commit fa47424e754cbca2a62b441f1739695a4e710413
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@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")
