Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
827d20d8
Commit
827d20d8
authored
Oct 29, 2004
by
Pontus Freyhult
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Bugfix in lyskom-format-image: let->let*.
parent
34ba9a22
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
8 deletions
+13
-8
src/ChangeLog
src/ChangeLog
+5
-0
src/lyskom-rest.el
src/lyskom-rest.el
+8
-8
No files found.
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
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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