Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
34b5d116
Commit
34b5d116
authored
Oct 28, 2002
by
Dave Love
Browse files
(diacritic-composition-function): Modify
confused prog1 form.
parent
d14a2a1f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
7 deletions
+6
-7
lisp/language/european.el
lisp/language/european.el
+6
-7
No files found.
lisp/language/european.el
View file @
34b5d116
...
...
@@ -625,13 +625,12 @@ The text matches the regular expression PATTERN.
Optional
4th
argument
STRING,
if
non-nil,
is
a
string
containing
text
to
compose.
The
return
value
is
number
of
composed
characters.
"
(if (< (1+ from) to)
(prog1 (- to from)
(if string
(compose-string string from to)
(compose-region from to))
(- to from))))
The
return
value
is
the
number
of
composed
characters.
"
(when (< (1+ from) to)
(if string
(compose-string string from to)
(compose-region from to))
(- to from)))
;; Register a function to compose Unicode diacrtics and marks.
(let ((patterns '(("
\\C^\\c^+
"
.
diacritic-composition-function
))))
...
...
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