From 345083b2cbbe0fec01a7d2c052bd20d723675e2a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 19 Sep 2011 15:27:30 -0400 Subject: [PATCH] * lisp/ps-mule.el (ps-mule-plot-string): Don't inf-loop. * lisp/image-mode.el (image-toggle-display-text) (image-toggle-display-image): Stay away from evil `intangible'. Fixes: debbugs:5108 --- lisp/ChangeLog | 6 ++++++ lisp/image-mode.el | 6 +++--- lisp/ps-mule.el | 2 +- 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 @@ +2011-09-19 Stefan Monnier + + * ps-mule.el (ps-mule-plot-string): Don't inf-loop (bug#5108). + * image-mode.el (image-toggle-display-text) + (image-toggle-display-image): Stay away from evil `intangible'. + 2011-09-19 Leo Liu * 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." (buffer-undo-list t) (modified (buffer-modified-p))) (remove-list-of-text-properties (point-min) (point-max) - '(display intangible read-nonsticky + '(display read-nonsticky ;; intangible read-only front-sticky)) (set-buffer-modified-p modified) (if (called-interactively-p 'any) @@ -506,8 +506,8 @@ was inserted." (setq image (append image (image-transform-properties image))) (setq props `(display ,image - intangible ,image - rear-nonsticky (display intangible) + ;; intangible ,image + rear-nonsticky (display) ;; intangible read-only t front-sticky (read-only))) (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." width) (goto-char from) (while (not endpos) - (cond ((= (point) stop) + (cond ((>= (point) stop) (if (= stop to) (setq endpos stop) (when (< from stop) -- 2.39.2