Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Peter Liljenberg
lyskom-elisp-client
Commits
827d20d8
Commit
827d20d8
authored
Oct 29, 2004
by
Pontus Freyhult
Browse files
Bugfix in lyskom-format-image: let->let*.
parent
34ba9a22
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
827d20d8
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.
...
...
src/lyskom-rest.el
View file @
827d20d8
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment