aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/image-mode.el6
-rw-r--r--lisp/ps-mule.el2
3 files changed, 10 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54b8e1ff7a2..258b0067d98 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
12011-09-19 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * ps-mule.el (ps-mule-plot-string): Don't inf-loop (bug#5108).
4 * image-mode.el (image-toggle-display-text)
5 (image-toggle-display-image): Stay away from evil `intangible'.
6
12011-09-19 Leo Liu <sdl.web@gmail.com> 72011-09-19 Leo Liu <sdl.web@gmail.com>
2 8
3 * replace.el (occur-revert-arguments): Make it permanent-local. 9 * replace.el (occur-revert-arguments): Make it permanent-local.
diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index cffa2592aa1..0995048fce5 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -465,7 +465,7 @@ Remove text properties that display the image."
465 (buffer-undo-list t) 465 (buffer-undo-list t)
466 (modified (buffer-modified-p))) 466 (modified (buffer-modified-p)))
467 (remove-list-of-text-properties (point-min) (point-max) 467 (remove-list-of-text-properties (point-min) (point-max)
468 '(display intangible read-nonsticky 468 '(display read-nonsticky ;; intangible
469 read-only front-sticky)) 469 read-only front-sticky))
470 (set-buffer-modified-p modified) 470 (set-buffer-modified-p modified)
471 (if (called-interactively-p 'any) 471 (if (called-interactively-p 'any)
@@ -506,8 +506,8 @@ was inserted."
506 (setq image (append image (image-transform-properties image))) 506 (setq image (append image (image-transform-properties image)))
507 (setq props 507 (setq props
508 `(display ,image 508 `(display ,image
509 intangible ,image 509 ;; intangible ,image
510 rear-nonsticky (display intangible) 510 rear-nonsticky (display) ;; intangible
511 read-only t front-sticky (read-only))) 511 read-only t front-sticky (read-only)))
512 512
513 (let ((buffer-file-truename nil)) ; avoid changing dir mtime by lock_file 513 (let ((buffer-file-truename nil)) ; avoid changing dir mtime by lock_file
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index d95719ba552..c0e4d68107b 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -659,7 +659,7 @@ the sequence."
659 width) 659 width)
660 (goto-char from) 660 (goto-char from)
661 (while (not endpos) 661 (while (not endpos)
662 (cond ((= (point) stop) 662 (cond ((>= (point) stop)
663 (if (= stop to) 663 (if (= stop to)
664 (setq endpos stop) 664 (setq endpos stop)
665 (when (< from stop) 665 (when (< from stop)