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
23726fba
Commit
23726fba
authored
Oct 29, 2004
by
Pontus Freyhult
Browse files
Use lyskom-aliases instead of runtime test for image functions that
are new in GNU Emacs 21.
parent
827d20d8
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
23726fba
2004-10-29 Pontus Freyhult <pont@pontus.its.uu.se>
* lyskom-rest.el (lyskom-format-image): Disabled run time
test for image functions, use aliases instead.
* compatibility.el (display-images-p): New alias.
(put-image): New alias.
(create-image): New alias.
2004-10-29 Pontus Freyhult <pont@soua.net>
* lyskom-rest.el (lyskom-format-image): Bugix: Used let instead
...
...
src/compatibility.el
View file @
23726fba
...
...
@@ -345,6 +345,13 @@ See `walk-windows' for the meaning of MINIBUF and FRAME."
windows
))
; ==================================================================
; Image display
(
lyskom-function-alias
display-images-p
()
nil
)
(
lyskom-function-alias
put-image
(
what
where
)
nil
)
(
lyskom-function-alias
create-image
(
file-or-data
)
nil
)
;;; ================================================================
;;; Color stuff
...
...
src/lyskom-rest.el
View file @
23726fba
...
...
@@ -2249,14 +2249,13 @@ in lyskom-messages."
(
make-extent
(
point
)
(
point-max
))
(
make-glyph
(
make-image-instance
(
vector
imagetype
:data
imagedata
))))
(
if
(
not
(
and
(
fboundp
'display-images-p
)
; GNU Emacs
(
fboundp
'put-image
)
(
fboundp
'create-image
)
(
display-images-p
)
(
put-image
(
create-image
imagedata
imagetype
t
)
(
point-max
))))
(
setq
msg
(
lyskom-get-string
'image-no-show
))))
; Errors just marks it as a no show
; GNU Emacs
(
unless
(
and
(
lyskom-display-images-p
)
(
lyskom-put-image
(
lyskom-create-image
imagedata
imagetype
t
)
(
point-max
)))
(
setq
msg
(
lyskom-get-string
'image-no-show
))))
; Errors just marks it as a no show
(
error
(
setq
msg
(
lyskom-get-string
'image-no-show
))))
(
lyskom-signal-reformatted-text
'reformat-image
)
msg
)))
...
...
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