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
lyskom-elisp-client
lyskom-elisp-client
Commits
68b5125f
Commit
68b5125f
authored
Jun 28, 2002
by
Ulrik Haugen
Browse files
Lagt in Marcus Comstedts patch från bug 586.
parent
02ec175c
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/lyskom-rest.el
View file @
68b5125f
...
...
@@ -1952,6 +1952,12 @@ Deferred insertions are not supported."
(
length
tmp
)
'
(
special-insert
lyskom-postprocess-text
)
tmp
))
(
when
(
and
(
fboundp
'latin-unity-remap-region
)
(
lyskom-try-require
'latin-unity
))
(
add-text-properties
0
(
length
tmp
)
'
(
special-insert
lyskom-unity-text
)
tmp
))
tmp
)))))
(
defun
lyskom-postprocess-text
(
start
end
&rest
args
)
...
...
@@ -1959,6 +1965,19 @@ Deferred insertions are not supported."
(
smiley-region
start
(
min
(
point-max
)
(
1+
end
)))
(
error
nil
)))
(
defun
lyskom-unity-text
(
start
end
&rest
args
)
(
condition-case
nil
(
let
((
codesys
(
car
latin-unity-preferred-coding-system-list
)))
(
when
(
memq
codesys
latin-unity-iso-8859-1-aliases
)
(
setq
codesys
'iso-8859-1
))
(
let
((
gr
(
or
(
car
(
rassq
codesys
latin-unity-cset-codesys-alist
))
(
and
codesys
(
eq
(
coding-system-type
codesys
)
'iso2022
)
(
coding-system-property
codesys
'charset-g1
)))))
(
when
gr
(
latin-unity-remap-region
start
(
min
(
point-max
)
(
1+
end
))
gr
nil
t
))))
(
error
nil
)))
...
...
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