diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/image-mode.el | 6 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2011-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 | |||
| 1 | 2011-09-19 Leo Liu <sdl.web@gmail.com> | 7 | 2011-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) |