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
f98e2797
Commit
f98e2797
authored
Mar 18, 1997
by
Kenichi Handa
Browse files
(make-char): Documented.
(charset-plist): Return quoted list even if CHARSET is supplied by symbol.
parent
ea3fb7d2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
1 deletion
+7
-1
lisp/international/mule.el
lisp/international/mule.el
+7
-1
No files found.
lisp/international/mule.el
View file @
f98e2797
...
...
@@ -184,13 +184,19 @@ PLIST (property list) may contain any type of information a user
(defmacro charset-plist (charset)
(if (quoted-symbol-p charset)
(aref (charset-info (nth 1 charset)) 14)
`
(aref
,
(charset-info (nth 1 charset)) 14)
`(aref (charset-info ,charset) 14)))
(defun set-charset-plist (charset plist)
(aset (charset-info charset) 14 plist))
(defmacro make-char (charset &optional c1 c2)
"
Return
a
character
of
CHARSET
and
position-codes
CODE1
and
CODE2.
CODE1
and
CODE2
are
optional,
but
if
you
don
't
supply
sufficient
position-codes,
return
a
generic
character
which
stands
for
all
characters
or
group
of
characters
in
the
character
sets.
A
generic
character
can
be
an
argument
of
`
modify-syntax-entry
'
and
`
modify-category-entry
'.
"
(if (quoted-symbol-p charset)
`(make-char-internal ,(charset-id (nth 1 charset)) ,c1 ,c2)
`(make-char-internal (charset-id ,charset) ,c1 ,c2)))
...
...
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