Inhibit read-only in elisp/hindent.el

chrisdone-archive · May 18, 2018 · dc47d8b · dc47d8b
1 parent 6f6db40
commit dc47d8b
Showing 1 changed file with 19 additions and 18 deletions.
diff --git a/elisp/hindent.el b/elisp/hindent.el
@@ -148,24 +148,25 @@ cause the text to be justified, as per `fill-paragraph'."
 If DROP-NEWLINE is non-nil, don't require a newline at the end of
 the file."
   (interactive "r")
-  (if (= (save-excursion (goto-char beg)
-                         (line-beginning-position))
-         beg)
-      (hindent-reformat-region-as-is beg end drop-newline)
-    (let* ((column (- beg (line-beginning-position)))
-           (string (buffer-substring-no-properties beg end))
-           (new-string (with-temp-buffer
-                         (insert (make-string column ? ) string)
-                         (hindent-reformat-region-as-is (point-min)
-                                                        (point-max)
-                                                        drop-newline)
-                         (delete-region (point-min) (1+ column))
-                         (buffer-substring (point-min)
-                                           (point-max)))))
-      (save-excursion
-        (goto-char beg)
-        (delete-region beg end)
-        (insert new-string)))))
+  (let ((inhibit-read-only t))
+    (if (= (save-excursion (goto-char beg)
+                           (line-beginning-position))
+           beg)
+        (hindent-reformat-region-as-is beg end drop-newline)
+      (let* ((column (- beg (line-beginning-position)))
+             (string (buffer-substring-no-properties beg end))
+             (new-string (with-temp-buffer
+                           (insert (make-string column ? ) string)
+                           (hindent-reformat-region-as-is (point-min)
+                                                          (point-max)
+                                                          drop-newline)
+                           (delete-region (point-min) (1+ column))
+                           (buffer-substring (point-min)
+                                             (point-max)))))
+        (save-excursion
+          (goto-char beg)
+          (delete-region beg end)
+          (insert new-string))))))
 
 ;;;###autoload
 (define-obsolete-function-alias 'hindent/reformat-decl 'hindent-reformat-decl)