mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-27 07:37:33 +00:00
(mm-insert-inline): Make it work in read-only buffer.
This commit is contained in:
parent
933cd61ed4
commit
3c8c8c277e
@ -1,5 +1,5 @@
|
||||
;;; mm-view.el --- functions for viewing MIME objects
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 01, 2004 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
;; This file is part of GNU Emacs.
|
||||
@ -197,7 +197,8 @@
|
||||
|
||||
(defun mm-insert-inline (handle text)
|
||||
"Insert TEXT inline from HANDLE."
|
||||
(let ((b (point)))
|
||||
(let ((b (point))
|
||||
(inhibit-read-only t))
|
||||
(insert text)
|
||||
(mm-handle-set-undisplayer
|
||||
handle
|
||||
|
Loading…
Reference in New Issue
Block a user