diff --git a/ChangeLog b/ChangeLog index dfd7b50d2803dc1763b5c71ab9b97d111645d70c_Q2hhbmdlTG9n..73c3cc4413dade4e35a4f2f34f396cb8fa16b82c_Q2hhbmdlTG9n 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1998-07-03 Charles G Waldman <cgw@pgt.com> + + * image-mode.el: Fixed image-decode to handle start and end args. + 1998-03-25 SL Baur <steve@altair.xemacs.org> * folding.el: New file. diff --git a/Makefile b/Makefile index dfd7b50d2803dc1763b5c71ab9b97d111645d70c_TWFrZWZpbGU=..73c3cc4413dade4e35a4f2f34f396cb8fa16b82c_TWFrZWZpbGU= 100644 --- a/Makefile +++ b/Makefile @@ -19,7 +19,7 @@ # This XEmacs package contains independent single file lisp packages -VERSION = 1.07 +VERSION = 1.08 AUTHOR_VERSION = MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org> PACKAGE = text-modes diff --git a/image-mode.el b/image-mode.el index dfd7b50d2803dc1763b5c71ab9b97d111645d70c_aW1hZ2UtbW9kZS5lbA==..73c3cc4413dade4e35a4f2f34f396cb8fa16b82c_aW1hZ2UtbW9kZS5lbA== 100644 --- a/image-mode.el +++ b/image-mode.el @@ -33,7 +33,7 @@ "Decode the image between START and END which is encoded in TYPE." (save-excursion (let ((image (make-image-instance - (vector type :data (buffer-string)) nil nil 'no-error))) + (vector type :data (buffer-string start end)) nil nil 'no-error))) (delete-region start end) (if image (let ((glyph (make-glyph image)))