278
284
(narrow-to-region beg end)
282
288
;; (replace-regexp * * ) :
284
290
(replace-match "" nil nil)))
286
292
(if do-toggle (toggle-read-only 1)))))
288
318
(defun ess-transcript-DO-clean-region (beg end)
289
319
"Clean the current via \\[ess-transcript-clean-region] even if the buffer is read-only."