Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3545439c
Commit
3545439c
authored
Jul 26, 1999
by
Kenichi Handa
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(w32_find_ccl_program): Get compiled CCL code by just
calling setup_coding_system.
parent
a42f54e6
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
24 deletions
+12
-24
src/w32fns.c
src/w32fns.c
+12
-24
No files found.
src/w32fns.c
View file @
3545439c
...
...
@@ -41,6 +41,7 @@ Boston, MA 02111-1307, USA. */
#include "w32heap.h"
#include "termhooks.h"
#include "coding.h"
#include "ccl.h"
#include <commdlg.h>
#include <shellapi.h>
...
...
@@ -6197,10 +6198,7 @@ void
w32_find_ccl_program (fontp)
struct font_info *fontp;
{
extern Lisp_Object Vfont_ccl_encoder_alist, Vccl_program_table;
extern Lisp_Object Qccl_program_idx;
extern Lisp_Object resolve_symbol_ccl_program ();
Lisp_Object list, elt, ccl_prog, ccl_id;
Lisp_Object list, elt;
for (list = Vfont_ccl_encoder_alist; CONSP (list); list = XCONS (list)->cdr)
{
...
...
@@ -6209,26 +6207,16 @@ w32_find_ccl_program (fontp)
&& STRINGP (XCONS (elt)->car)
&& (fast_c_string_match_ignore_case (XCONS (elt)->car, fontp->name)
>= 0))
{
if (SYMBOLP (XCONS (elt)->cdr) &&
(!NILP (ccl_id = Fget (XCONS (elt)->cdr, Qccl_program_idx))))
{
ccl_prog = XVECTOR (Vccl_program_table)->contents[XUINT (ccl_id)];
if (!CONSP (ccl_prog)) continue;
ccl_prog = XCONS (ccl_prog)->cdr;
break;
}
else
if (! NILP (list))
{
ccl_prog = XCONS (elt)->cdr;
if (!VECTORP (ccl_prog)) continue;
}
struct ccl_program *ccl = xmalloc (sizeof (struct ccl_program));
fontp->font_encoder
= (struct ccl_program *) xmalloc (sizeof (struct ccl_program));
setup_ccl_program (fontp->font_encoder,
resolve_symbol_ccl_program (ccl_prog));
break;
}
if (setup_ccl_program (ccl, XCONS (elt)->cdr) < 0)
xfree (ccl);
else
fontp->font_encoder = ccl;
}
}
...
...
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