Skip to content
Snippets Groups Projects
Commit 73c3cc44 authored by steveb's avatar steveb
Browse files

image-mode fix

parent dfd7b50d
No related branches found
No related tags found
No related merge requests found
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> 1998-03-25 SL Baur <steve@altair.xemacs.org>
* folding.el: New file. * folding.el: New file.
......
...@@ -19,7 +19,7 @@ ...@@ -19,7 +19,7 @@
# This XEmacs package contains independent single file lisp packages # This XEmacs package contains independent single file lisp packages
VERSION = 1.07 VERSION = 1.08
AUTHOR_VERSION = AUTHOR_VERSION =
MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org> MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
PACKAGE = text-modes PACKAGE = text-modes
......
...@@ -33,7 +33,7 @@ ...@@ -33,7 +33,7 @@
"Decode the image between START and END which is encoded in TYPE." "Decode the image between START and END which is encoded in TYPE."
(save-excursion (save-excursion
(let ((image (make-image-instance (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) (delete-region start end)
(if image (if image
(let ((glyph (make-glyph image))) (let ((glyph (make-glyph image)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment