Mercurial > emacs

comparison src/doc.c @ 5377:7a8463c07d8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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;