Commit 827d20d8 authored by Pontus Freyhult's avatar Pontus Freyhult
Browse files

Bugfix in lyskom-format-image: let->let*.

parent 34ba9a22
2004-10-29 Pontus Freyhult <pont@soua.net>
* lyskom-rest.el (lyskom-format-image): Bugix: Used let instead
of let*.
2004-10-28 David Byers <byers@lysator.liu.se>
* vars.el.in: Updated some documentation strings.
......
......@@ -2235,14 +2235,14 @@ in lyskom-messages."
(defun lyskom-format-image (text text-stat)
(if kom-format-show-images
(let ((cti (lyskom-get-aux-item (text-stat->aux-items text-stat) 1))
(content-type (and cti (aux-item->data (car cti))))
(msg "")
(imagetype (intern
; FIXME: Can the media type contain more than letters and -?
(string-replace-match "^.*/\\([-a-zA-Z]*\\)\\(.\\|\n\\)*"
content-type "\\1")))
(imagedata text))
(let* ((cti (lyskom-get-aux-item (text-stat->aux-items text-stat) 1))
(content-type (and cti (aux-item->data (car cti))))
(msg "")
(imagetype (intern
; FIXME: Can the media type contain more than letters and -?
(string-replace-match "^.*/\\([-a-zA-Z]*\\)\\(.\\|\n\\)*"
content-type "\\1")))
(imagedata text))
(condition-case nil
(lyskom-xemacs-or-gnu
(set-extent-end-glyph ; XEmacs
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment