(insert-image-file): Make `intangible' and `read-only' properties

rear-nonsticky too.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 198229ce1933ef058ac625c1f5435e9ce3a54507..4463d635c811561ea40c3e0576d685facfa41f1f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-19  Miles Bader  <miles@gnu.org>
+
+       * image-file.el (insert-image-file): Make `intangible' and
+       `read-only' properties rear-nonsticky too.
+
 2000-11-18  Gerd Moellmann  <gerd@gnu.org>
 
        * ps-print.el: Update copyright notice.

diff --git a/lisp/image-file.el b/lisp/image-file.el
index 217e4708693bd818db57801dde86d07623312389..2e1ac4401ddb9deb154f00dea762c48239568e90 100644 (file)
--- a/lisp/image-file.el
+++ b/lisp/image-file.el
@@ -115,7 +115,7 @@ the command `insert-file-contents'."
             (props
              `(display ,image
                        intangible ,image
-                       rear-nonsticky (display)
+                       rear-nonsticky (display intangible read-only)
                        ;; This a cheap attempt to make the whole buffer
                        ;; read-only when we're visiting the file.
                        ,@(and visit