Emacs: Allow my/apply-ansi-colors-on-buffer in read-only buffers.
This commit is contained in:
parent
e6a6bd812c
commit
c3ab734767
|
@ -1,6 +1,6 @@
|
||||||
;;; misc.el --- Miscellaneous file formats. -*- lexical-binding: t; -*-
|
;;; misc.el --- Miscellaneous file formats. -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Time-stamp: <2020-10-14T00:01:20+0200>
|
;; Time-stamp: <2020-10-14T00:08:06+0200>
|
||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
|
|
||||||
|
@ -197,7 +197,8 @@
|
||||||
(defun my/apply-ansi-colors-on-buffer ()
|
(defun my/apply-ansi-colors-on-buffer ()
|
||||||
"Apply ANSI colors in the current buffer."
|
"Apply ANSI colors in the current buffer."
|
||||||
(interactive)
|
(interactive)
|
||||||
(ansi-color-apply-on-region (point-min) (point-max)))
|
(let ((inhibit-read-only t))
|
||||||
|
(ansi-color-apply-on-region (point-min) (point-max))))
|
||||||
(defun my/apply-ansi-colors-compilation ()
|
(defun my/apply-ansi-colors-compilation ()
|
||||||
"Apply ANSI colors in the compilation window."
|
"Apply ANSI colors in the compilation window."
|
||||||
(let ((inhibit-read-only t))
|
(let ((inhibit-read-only t))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user