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
38d035de
Commit
38d035de
authored
Jul 29, 2005
by
Kenichi Handa
Browse files
(robin-define-package): Be sure to call put-char-code-property.
parent
a337abfc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
5 deletions
+11
-5
lisp/international/robin.el
lisp/international/robin.el
+11
-5
No files found.
lisp/international/robin.el
View file @
38d035de
...
...
@@ -293,7 +293,7 @@ one replaces the old one."
(
let
((
iname
(
intern
name
))
(
new
(
list
name
""
))
; "" as a fake output
input
output
)
input
output
pairs
)
(
dolist
(
r
rules
)
(
setq
input
(
car
r
)
output
(
cadr
r
))
...
...
@@ -301,17 +301,23 @@ one replaces the old one."
(
cond
((
not
(
stringp
input
))
(
error
"Bad input sequence %S"
r
))
((
char-valid-p
output
)
(
put-char-code-property
output
iname
input
))
((
characterp
output
)
(
setq
pairs
(
cons
(
cons
input
output
)
pairs
)))
((
not
(
stringp
output
))
(
error
"Bad output pattern %S"
r
))))
(
setcar
(
cdr
new
)
docstring
)
; replace "" above with real docstring
`
(
let
((
slot
(
assoc
,
name
robin-package-alist
))
(
newdef
',new
))
(
newdef
',new
)
(
prop
',iname
)
(
lst
',pairs
))
(
if
slot
(
setcdr
slot
(
cdr
newdef
))
(
setq
robin-package-alist
(
cons
newdef
robin-package-alist
))))))
(
cons
newdef
robin-package-alist
)))
(
dolist
(
l
lst
)
(
put-char-code-property
(
cdr
l
)
prop
(
car
l
))))))
;;;###autoload
(
defun
robin-modify-package
(
name
input
output
)
...
...
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