Mercurial > emacs
comparison src/doc.c @ 5377:7a8463c07d8f
(Fsubstitute_command_keys): Fix previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 31 Dec 1993 03:05:39 +0000 |
parents | 27d6275810a7 |
children | 9e8bbed9a9b6 |
comparison
equal
deleted
inserted
replaced
5376:eb9c60c0cfe8 | 5377:7a8463c07d8f |
---|---|
428 tem = Fwhere_is_internal (tem, keymap, Qnil, Qt, Qnil); | 428 tem = Fwhere_is_internal (tem, keymap, Qnil, Qt, Qnil); |
429 | 429 |
430 /* Disregard menu bar bindings; it is positively annoying to | 430 /* Disregard menu bar bindings; it is positively annoying to |
431 mention them when there's no menu bar, and it isn't terribly | 431 mention them when there's no menu bar, and it isn't terribly |
432 useful even when there is a menu bar. */ | 432 useful even when there is a menu bar. */ |
433 firstkey = Faref (tem, make_number (0)); | 433 if (!NILP (tem)) |
434 if (EQ (firstkey, Qmenu_bar)) | 434 { |
435 tem = Qnil; | 435 firstkey = Faref (tem, make_number (0)); |
436 if (EQ (firstkey, Qmenu_bar)) | |
437 tem = Qnil; | |
438 } | |
436 | 439 |
437 if (NILP (tem)) /* but not on any keys */ | 440 if (NILP (tem)) /* but not on any keys */ |
438 { | 441 { |
439 new = (unsigned char *) xrealloc (buf, bsize += 4); | 442 new = (unsigned char *) xrealloc (buf, bsize += 4); |
440 bufp += new - buf; | 443 bufp += new - buf; |