diff options
| author | Ken Raeburn | 2005-11-21 23:33:01 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2005-11-21 23:33:01 +0000 |
| commit | d7c0be75d37fe07fefbb0be1333da9bade496fb2 (patch) | |
| tree | 97931109662089fcf98be83b629fb3bf434f8273 /src/keymap.c | |
| parent | bd24684be07da191e3481caaa360035e287a6bea (diff) | |
| download | emacs-d7c0be75d37fe07fefbb0be1333da9bade496fb2.tar.gz emacs-d7c0be75d37fe07fefbb0be1333da9bade496fb2.zip | |
(shadow_lookup): Use make_number to pass a number to Fsubstring.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/keymap.c b/src/keymap.c index f2370225ab8..311a70f25e8 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -2379,7 +2379,8 @@ shadow_lookup (shadow, key, flag) | |||
| 2379 | value = Flookup_key (XCAR (tail), key, flag); | 2379 | value = Flookup_key (XCAR (tail), key, flag); |
| 2380 | if (NATNUMP (value)) | 2380 | if (NATNUMP (value)) |
| 2381 | { | 2381 | { |
| 2382 | value = Flookup_key (XCAR (tail), Fsubstring (key, 0, value), flag); | 2382 | value = Flookup_key (XCAR (tail), |
| 2383 | Fsubstring (key, make_number (0), value), flag); | ||
| 2383 | if (!NILP (value)) | 2384 | if (!NILP (value)) |
| 2384 | return Qnil; | 2385 | return Qnil; |
| 2385 | } | 2386 | } |