comparison lisp/menubar-items.el @ 851:e7ee5f8bde58

[xemacs-hg @ 2002-05-23 11:46:08 by ben] fix for raymond toy's crash, alloca crashes, some recover-session improvements files.el: Recover-session improvements: Only show session files where some files can actually be recovered, and show in chronological order. subr.el, menubar-items.el: As promised to rms, the functionality in truncate-string-with-continuation-dots has been merged into truncate-string-to-width. Change callers in menubar-items.el. select.el: Document some of these funs better. Fix problem where we were doing own-clipboard twice. Makefile.in.in: Add alloca.o. Ensure that alloca.s doesn't compile into alloca.o, but allocax.o (not that it's currently used or anything.) EmacsFrame.c, abbrev.c, alloc.c, alloca.c, callint.c, callproc.c, config.h.in, device-msw.c, device-x.c, dired.c, doc.c, editfns.c, emacs.c, emodules.c, eval.c, event-Xt.c, event-msw.c, event-stream.c, file-coding.c, fileio.c, filelock.c, fns.c, glyphs-gtk.c, glyphs-msw.c, glyphs-x.c, gui-x.c, input-method-xlib.c, intl-win32.c, lisp.h, lread.c, menubar-gtk.c, menubar-msw.c, menubar.c, mule-wnnfns.c, nt.c, objects-msw.c, process-nt.c, realpath.c, redisplay-gtk.c, redisplay-output.c, redisplay-x.c, redisplay.c, search.c, select-msw.c, sysdep.c, syswindows.h, text.c, text.h, ui-byhand.c: Fix Raymond Toy's crash. Repeat to self: 2^21 - 1 is NOT the same as (2 << 21) - 1. Fix crashes due to excessive alloca(). replace alloca() with ALLOCA(), which calls the C alloca() [which uses xmalloc()] when the size is too big. Insert in various places calls to try to flush the C alloca() stored info if there is any. Add MALLOC_OR_ALLOCA(), for places that expect to be alloca()ing large blocks. This xmalloc()s when too large and records an unwind-protect to free -- relying on the caller to unbind_to() elsewhere in the function. Use it in concat(). Use MALLOC instead of ALLOCA in select-msw.c. xemacs.mak: Add alloca.o.
author ben
date Thu, 23 May 2002 11:46:46 +0000
parents 047d37eb70d7
children 4a27df428c73
comparison
equal deleted inserted replaced
850:f915ad7befaf 851:e7ee5f8bde58
460 :active (region-exists-p)] 460 :active (region-exists-p)]
461 ) 461 )
462 "----" 462 "----"
463 ["D%_ynamic Abbrev Expand" dabbrev-expand] 463 ["D%_ynamic Abbrev Expand" dabbrev-expand]
464 ["Define %_Global Abbrev for " add-global-abbrev 464 ["Define %_Global Abbrev for " add-global-abbrev
465 :suffix (truncate-string-with-continuation-dots 465 :suffix (truncate-string-to-width (abbrev-string-to-be-defined nil)
466 (abbrev-string-to-be-defined nil) 466 40 nil nil t)]
467 40)]
468 ("Other %_Abbrev" 467 ("Other %_Abbrev"
469 ["Dynamic Abbrev %_Complete" dabbrev-completion] 468 ["Dynamic Abbrev %_Complete" dabbrev-completion]
470 ["Dynamic Abbrev Complete in %_All Buffers" (dabbrev-completion 16)] 469 ["Dynamic Abbrev Complete in %_All Buffers" (dabbrev-completion 16)]
471 "----" 470 "----"
472 "----" 471 "----"
473 ["%_Define Global Abbrev for " add-global-abbrev 472 ["%_Define Global Abbrev for " add-global-abbrev
474 :suffix (truncate-string-with-continuation-dots 473 :suffix (truncate-string-to-width (abbrev-string-to-be-defined nil)
475 (abbrev-string-to-be-defined nil) 474 40 nil nil t)]
476 40)]
477 ["Define %_Mode-Specific Abbrev for " add-mode-abbrev 475 ["Define %_Mode-Specific Abbrev for " add-mode-abbrev
478 :suffix (truncate-string-with-continuation-dots 476 :suffix (truncate-string-to-width (abbrev-string-to-be-defined nil)
479 (abbrev-string-to-be-defined nil) 477 40 nil nil t)]
480 40)]
481 ["Define Global Ex%_pansion for " inverse-add-global-abbrev 478 ["Define Global Ex%_pansion for " inverse-add-global-abbrev
482 :suffix (truncate-string-with-continuation-dots 479 :suffix (truncate-string-to-width
483 (inverse-abbrev-string-to-be-defined 1) 480 (inverse-abbrev-string-to-be-defined 1)
484 40)] 481 40 nil nil t)]
485 ["Define Mode-Specific Expa%_nsion for " inverse-add-mode-abbrev 482 ["Define Mode-Specific Expa%_nsion for " inverse-add-mode-abbrev
486 :suffix (truncate-string-with-continuation-dots 483 :suffix (truncate-string-to-width
487 (inverse-abbrev-string-to-be-defined 1) 484 (inverse-abbrev-string-to-be-defined 1)
488 40)] 485 40 nil nil t)]
489 "---" 486 "---"
490 ["E%_xpand Abbrev" expand-abbrev] 487 ["E%_xpand Abbrev" expand-abbrev]
491 ["Expand Abbrevs in Re%_gion" expand-region-abbrevs 488 ["Expand Abbrevs in Re%_gion" expand-region-abbrevs
492 :active (region-exists-p)] 489 :active (region-exists-p)]
493 ["%_Unexpand Last Abbrev" unexpand-abbrev 490 ["%_Unexpand Last Abbrev" unexpand-abbrev