comparison lisp/menubar-items.el @ 793:e38acbeb1cae

[xemacs-hg @ 2002-03-29 04:46:17 by ben] lots o' fixes etc/ChangeLog: New file. Separated out all entries for etc/ into their own ChangeLog. Includes entries for the following files: etc/BABYL, etc/BETA, etc/CHARSETS, etc/DISTRIB, etc/Emacs.ad, etc/FTP, etc/GNUS-NEWS, etc/GOATS, etc/HELLO, etc/INSTALL, etc/MACHINES, etc/MAILINGLISTS, etc/MSDOS, etc/MYTHOLOGY, etc/NEWS, etc/OXYMORONS, etc/PACKAGES, etc/README, etc/TUTORIAL, etc/TUTORIAL.de, etc/TUTORIAL.ja, etc/TUTORIAL.ko, etc/TUTORIAL.se, etc/aliases.ksh, etc/altrasoft-logo.xpm, etc/check_cygwin_setup.sh, etc/custom/example-themes/europe-theme.el, etc/custom/example-themes/ex-custom-file, etc/custom/example-themes/example-theme.el, etc/e/eterm.ti, etc/edt-user.doc, etc/enriched.doc, etc/etags.1, etc/gnuserv.1, etc/gnuserv.README, etc/package-index.LATEST.gpg, etc/package-index.LATEST.pgp, etc/photos/jan.png, etc/recycle.xpm, etc/refcard.tex, etc/sample.Xdefaults, etc/sample.emacs, etc/sgml/CATALOG, etc/sgml/HTML32.dtd, etc/skk/SKK.tut.E, etc/smilies/Face_ase.xbm, etc/smilies/Face_ase2.xbm, etc/smilies/Face_ase3.xbm, etc/smilies/Face_smile.xbm, etc/smilies/Face_weep.xbm, etc/sounds, etc/toolbar, etc/toolbar/workshop-cap-up.xpm, etc/xemacs-ja.1, etc/xemacs.1, etc/yow.lines, etc\BETA, etc\NEWS, etc\README, etc\TUTORIAL, etc\TUTORIAL.de, etc\check_cygwin_setup.sh, etc\sample.init.el, etc\unicode\README, etc\unicode\mule-ucs\*, etc\unicode\other\* unicode/unicode-consortium/8859-16.TXT: New file. mule/english.el: Define this charset now, since a bug was fixed that formerly prevented it. mule/ethio-util.el: Fix compile errors involving Unicode `characters', which should be integers. Makefile.in.in: Always include gui.c, to fix compile error when TTY-only. EmacsFrame.c, abbrev.c, alloc.c, buffer.c, buffer.h, bytecode.c, bytecode.h, callint.c, callproc.c, casetab.c, casetab.h, charset.h, chartab.c, chartab.h, cmds.c, console-msw.c, console-msw.h, console-tty.c, console-x.c, console-x.h, console.c, console.h, data.c, database.c, device-gtk.c, device-msw.c, device-x.c, device.c, device.h, dialog-msw.c, doc.c, doprnt.c, dumper.c, dynarr.c, editfns.c, eldap.c, eldap.h, elhash.c, elhash.h, emacs.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.c, events.h, extents.c, extents.h, faces.c, faces.h, file-coding.c, file-coding.h, fileio.c, filelock.c, fns.c, frame-gtk.c, frame-msw.c, frame-tty.c, frame-x.c, frame.c, frame.h, free-hook.c, general-slots.h, glyphs-eimage.c, glyphs-gtk.c, glyphs-msw.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, gpmevent.c, gtk-xemacs.c, gui-msw.c, gui-x.c, gui-x.h, gui.c, gui.h, gutter.c, gutter.h, indent.c, input-method-xlib.c, insdel.c, keymap.c, keymap.h, lisp-disunion.h, lisp-union.h, lisp.h, lread.c, lrecord.h, lstream.c, lstream.h, marker.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, minibuf.c, mule-canna.c, mule-ccl.c, mule-charset.c, mule-wnnfns.c, native-gtk-toolbar.c, objects-msw.c, objects-tty.c, objects-x.c, objects.c, objects.h, opaque.c, opaque.h, postgresql.c, postgresql.h, print.c, process-unix.c, process.c, process.h, rangetab.c, rangetab.h, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, search.c, select-gtk.c, select-x.c, sound.c, specifier.c, specifier.h, strftime.c, symbols.c, symeval.h, syntax.h, text.c, text.h, toolbar-common.c, toolbar-msw.c, toolbar.c, toolbar.h, tooltalk.c, tooltalk.h, ui-gtk.c, ui-gtk.h, undo.c, vm-limit.c, window.c, window.h: Eliminate XSETFOO. Replace all usages with wrap_foo(). Make symbol->name a Lisp_Object, not Lisp_String *. Eliminate nearly all uses of Lisp_String * in favor of Lisp_Object, and correct macros so most of them favor Lisp_Object. Create new error-behavior ERROR_ME_DEBUG_WARN -- output warnings, but at level `debug' (usually ignored). Use it when instantiating specifiers, so problems can be debugged. Move log-warning-minimum-level into C so that we can optimize ERROR_ME_DEBUG_WARN. Fix warning levels consistent with new definitions. Add default_ and parent fields to char table; not yet implemented. New fun Dynarr_verify(); use for further error checking on Dynarrs. Rearrange code at top of lisp.h in conjunction with dynarr changes. Fix eifree(). Use Eistrings in various places (format_event_object(), where_is_to_char(), and callers thereof) to avoid fixed-size strings buffers. New fun write_eistring(). Reindent and fix GPM code to follow standards. Set default MS Windows font to Lucida Console (same size as Courier New but less interline spacing, so more lines fit). Increase default frame size on Windows to 50 lines. (If that's too big for the workspace, the frame will be shrunk as necessary.) Fix problem with text files with no newlines (). (Change `convert-eol' coding system to use `nil' for autodetect, consistent with make-coding-system.) Correct compile warnings in vm-limit.c. Fix handling of reverse-direction charsets to avoid errors when opening (e.g.) mule-ucs/lisp/reldata/uiso8859-6.el. Recode some object printing methods to use write_fmt_string() instead of a fixed buffer and sprintf. Turn on display of png comments as warnings (level `info'), now that they're unobtrusive. Revamped the sound documentation. Fixed bug in redisplay w.r.t. hscroll/truncation/continuation glyphs causing jumping up and down of the lines, since they're bigger than the line size. (It was seen most obviously when there's a horizontal scroll bar, e.g. do C-h a glyph or something like that.) The problem was that the glyph-contrib-p setting on glyphs was ignored even if it was set properly, which it wasn't until now.
author ben
date Fri, 29 Mar 2002 04:49:13 +0000
parents 4e83fdb13eb9
children a5954632b187
comparison
equal deleted inserted replaced
792:4e83fdb13eb9 793:e38acbeb1cae
280 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")])) 280 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]))
281 "-----" 281 "-----"
282 ["%_Revert Buffer" revert-buffer 282 ["%_Revert Buffer" revert-buffer
283 :active (or buffer-file-name revert-buffer-function) 283 :active (or buffer-file-name revert-buffer-function)
284 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] 284 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]
285 ("%_Rever%_t/Recover" 285 ("Rever%_t/Recover"
286 ("Revert Buffer with Specified %_Encoding" 286 ("Revert Buffer with Specified %_Encoding"
287 :filter 287 :filter
288 (lambda (menu) 288 (lambda (menu)
289 (coding-system-menu-filter 289 (coding-system-menu-filter
290 (lambda (entry) 290 (lambda (entry)
344 ["S%_plit Window (Side by Side)" split-window-horizontally] 344 ["S%_plit Window (Side by Side)" split-window-horizontally]
345 ["%_Un-Split (Keep This)" delete-other-windows 345 ["%_Un-Split (Keep This)" delete-other-windows
346 :active (not (one-window-p t))] 346 :active (not (one-window-p t))]
347 ["Un-Split (Keep %_Others)" delete-window 347 ["Un-Split (Keep %_Others)" delete-window
348 :active (not (one-window-p t))] 348 :active (not (one-window-p t))]
349 ["Balance %_Windows" balance-windows
350 :active (not (one-window-p t))]
351 ["Shrink Window to %_Fit" shrink-window-if-larger-than-buffer]
349 "----" 352 "----"
350 ("N%_arrow" 353 ("N%_arrow"
351 ["%_Narrow to Region" narrow-to-region :active (region-exists-p)] 354 ["%_Narrow to Region" narrow-to-region :active (region-exists-p)]
352 ["Narrow to %_Page" narrow-to-page] 355 ["Narrow to %_Page" narrow-to-page]
353 ["Narrow to %_Defun" narrow-to-defun] 356 ["Narrow to %_Defun" narrow-to-defun]
354 "----" 357 "----"
355 ["%_Widen" widen :active (or (/= (point-min) 1) 358 ["%_Widen" widen :active (or (/= (point-min) 1)
356 (/= (point-max) (1+ (buffer-size))))] 359 (/= (point-max) (1+ (buffer-size))))]
357 ) 360 )
358 "----" 361 "----"
359 ["Show Message %_Log" show-message-log]
360 "----"
361 ["%_Goto Line..." goto-line] 362 ["%_Goto Line..." goto-line]
362 ["%_What Line" what-line] 363 ["Beginning of %_Defun" beginning-of-defun]
363 ("%_Bookmarks" 364 ["%_End of Defun" end-of-defun]
364 :filter bookmark-menu-filter) 365 ["%_Count Lines in Buffer" count-lines-buffer
366 :included (not (region-active-p))]
367 ["%_Count Lines in Region" count-lines-region
368 :included (region-active-p)]
365 "----" 369 "----"
366 ["%_Jump to Previous Mark" (set-mark-command t) 370 ["%_Jump to Previous Mark" (set-mark-command t)
367 :active (mark t)] 371 :active (mark t)]
372 ["Se%_t Bookmark" bookmark-set
373 :active (fboundp 'bookmark-set)]
374 ("%_Bookmarks"
375 :filter
376 (lambda (menu)
377 (let ((alist (and-boundp 'bookmark-alist
378 bookmark-alist)))
379 (if (not alist)
380 menu
381 (let ((items
382 (submenu-generate-accelerator-spec
383 (mapcar #'(lambda (bmk)
384 `[,bmk (bookmark-jump ',bmk)])
385 (bookmark-all-names)))))
386 (append menu '("---") items)))))
387 "---"
388 ["Insert %_Contents" bookmark-menu-insert
389 :active (fboundp 'bookmark-menu-insert)]
390 ["Insert L%_ocation" bookmark-menu-locate
391 :active (fboundp 'bookmark-menu-locate)]
392 "---"
393 ["%_Rename Bookmark" bookmark-menu-rename
394 :active (fboundp 'bookmark-menu-rename)]
395 ("%_Delete Bookmark"
396 :filter (lambda (menu)
397 (submenu-generate-accelerator-spec
398 (mapcar #'(lambda (bmk)
399 `[,bmk (bookmark-delete ',bmk)])
400 (bookmark-all-names)))))
401 ["%_Edit Bookmark List" bookmark-bmenu-list
402 :active (and-boundp 'bookmark-alist bookmark-alist)]
403 "---"
404 ["%_Save Bookmarks" bookmark-save
405 :active (and-boundp 'bookmark-alist bookmark-alist)]
406 ["Save Bookmarks %_As..." bookmark-write
407 :active (and-boundp 'bookmark-alist bookmark-alist)]
408 ["%_Load a Bookmark File" bookmark-load
409 :active (fboundp 'bookmark-load)]
410 )
368 ) 411 )
412
369 413
370 ("C%_mds" 414 ("C%_mds"
371 ["Repeat %_Last Complex Command..." repeat-complex-command] 415 ["Repeat %_Last Complex Command..." repeat-complex-command]
372 ["E%_valuate Lisp Expression..." eval-expression] 416 ["E%_valuate Lisp Expression..." eval-expression]
373 ["Execute %_Named Command..." execute-extended-command] 417 ["Execute %_Named Command..." execute-extended-command]
377 ["End %_Macro Recording" end-kbd-macro 421 ["End %_Macro Recording" end-kbd-macro
378 :included defining-kbd-macro] 422 :included defining-kbd-macro]
379 ["E%_xecute Last Macro" call-last-kbd-macro 423 ["E%_xecute Last Macro" call-last-kbd-macro
380 :active last-kbd-macro] 424 :active last-kbd-macro]
381 ("%_Other Macro" 425 ("%_Other Macro"
426 ["Edit %_Last Macro" edit-last-kbd-macro
427 :active last-kbd-macro]
428 ["%_Edit Macro..." edit-kbd-macro]
382 ["%_Append to Last Macro" (start-kbd-macro t) 429 ["%_Append to Last Macro" (start-kbd-macro t)
383 :active (and (not defining-kbd-macro) last-kbd-macro)] 430 :active (and (not defining-kbd-macro) last-kbd-macro)]
384 ["%_Query User During Macro" kbd-macro-query
385 :active defining-kbd-macro]
386 ["Enter %_Recursive Edit During Macro" (kbd-macro-query t)
387 :active defining-kbd-macro]
388 "---"
389 ["E%_xecute Last Macro on Region Lines"
390 :active (and last-kbd-macro (region-exists-p))]
391 "---" 431 "---"
392 ["%_Name Last Macro..." name-last-kbd-macro 432 ["%_Name Last Macro..." name-last-kbd-macro
393 :active last-kbd-macro] 433 :active last-kbd-macro]
394 ["Assign Last Macro to %_Key..." assign-last-kbd-macro-to-key 434 ["Assign Last Macro to %_Key..." assign-last-kbd-macro-to-key
395 :active (and last-kbd-macro 435 :active (and last-kbd-macro
396 (fboundp 'assign-last-kbd-macro-to-key))] 436 (fboundp 'assign-last-kbd-macro-to-key))]
397 "---" 437 "---"
398 ["%_Edit Macro..." edit-kbd-macro] 438 ["E%_xecute Last Macro on Region Lines"
399 ["Edit %_Last Macro" edit-last-kbd-macro 439 :active (and last-kbd-macro (region-exists-p))]
400 :active last-kbd-macro] 440 "---"
441 ["%_Query User During Macro" kbd-macro-query
442 :active defining-kbd-macro]
443 ["Enter %_Recursive Edit During Macro" (kbd-macro-query t)
444 :active defining-kbd-macro]
401 "---" 445 "---"
402 ["%_Insert Named Macro into Buffer..." insert-kbd-macro] 446 ["%_Insert Named Macro into Buffer..." insert-kbd-macro]
403 ["Read Macro from Re%_gion" read-kbd-macro 447 ["Read Macro from Re%_gion" read-kbd-macro
404 :active (region-exists-p)] 448 :active (region-exists-p)]
405 ) 449 )
563 (and buffer (get-buffer-process buffer))))] 607 (and buffer (get-buffer-process buffer))))]
564 "---" 608 "---"
565 ["Grep %_All Files in Current Directory..." 609 ["Grep %_All Files in Current Directory..."
566 grep-all-files-in-current-directory 610 grep-all-files-in-current-directory
567 :active (fboundp 'grep-all-files-in-current-directory)] 611 :active (fboundp 'grep-all-files-in-current-directory)]
568 ["G%_rep All Files in Current Directory and Below..." 612 ["Grep All Files in Current Directory %_Recursively..."
569 grep-all-files-in-current-directory-and-below 613 grep-all-files-in-current-directory-and-below
570 :active (fboundp 'grep-all-files-in-current-directory-and-below)] 614 :active (fboundp 'grep-all-files-in-current-directory-and-below)]
571 "---" 615 "---"
572 ["Grep %_C and C Header Files in Current Directory..." 616 ["Grep %_C and C Header Files in Current Directory..."
573 (progn 617 (progn
1534 1578
1535 ("%_Help" 1579 ("%_Help"
1536 ["%_About XEmacs..." about-xemacs] 1580 ["%_About XEmacs..." about-xemacs]
1537 ["%_Home Page (www.xemacs.org)" xemacs-www-page 1581 ["%_Home Page (www.xemacs.org)" xemacs-www-page
1538 :active (fboundp 'browse-url)] 1582 :active (fboundp 'browse-url)]
1539 "-----"
1540 ["What's %_New in XEmacs" view-emacs-news] 1583 ["What's %_New in XEmacs" view-emacs-news]
1541 ["%_Obtaining XEmacs" describe-distribution]
1542 "-----" 1584 "-----"
1543 ("%_Info (Online Docs)" 1585 ("%_Info (Online Docs)"
1544 ["Info Con%_tents" (Info-goto-node "(dir)")] 1586 ["Info Con%_tents" (Info-goto-node "(dir)")]
1545 "-----" 1587 "-----"
1546 ["XEmacs %_User's Manual" (Info-goto-node "(XEmacs)")] 1588 ["XEmacs %_User's Manual" (Info-goto-node "(XEmacs)")]
1588 ["Apropos %_Docs..." apropos-documentation] 1630 ["Apropos %_Docs..." apropos-documentation]
1589 "-----" 1631 "-----"
1590 ["Describe %_Key..." describe-key] 1632 ["Describe %_Key..." describe-key]
1591 ["Show %_Bindings" describe-bindings] 1633 ["Show %_Bindings" describe-bindings]
1592 ["Show M%_ouse Bindings" describe-pointer] 1634 ["Show M%_ouse Bindings" describe-pointer]
1593 ["%_Recent Keys" view-lossage]
1594 "-----" 1635 "-----"
1595 ["Describe %_Function..." describe-function] 1636 ["Describe %_Function..." describe-function]
1596 ["Describe %_Variable..." describe-variable] 1637 ["Describe %_Variable..." describe-variable]
1597 ["%_Locate Command in Keymap..." where-is]) 1638 ["%_Locate Command in Keymap..." where-is])
1598 ,@(when (featurep 'mule) 1639 ,@(when (featurep 'mule)
1618 ["Show Character %_Table" view-charset-by-menu] 1659 ["Show Character %_Table" view-charset-by-menu]
1619 ;; not implemented yet 1660 ;; not implemented yet
1620 ["Show %_Diagnosis for MULE" mule-diag :active nil] 1661 ["Show %_Diagnosis for MULE" mule-diag :active nil]
1621 ["Show \"%_hello\" in Many Languages" view-hello-file] 1662 ["Show \"%_hello\" in Many Languages" view-hello-file]
1622 ))) 1663 )))
1623 ("%_Misc" 1664 ("%_Other"
1624 ["%_Current Installation Info" describe-installation 1665 ["%_Current Installation Info" describe-installation
1625 :active (boundp 'Installation-string)] 1666 :active (boundp 'Installation-string)]
1626 ["%_No Warranty" describe-no-warranty] 1667 ["%_No Warranty" describe-no-warranty]
1627 ["XEmacs %_License" describe-copying] 1668 ["XEmacs %_License" describe-copying]
1628 ["Find %_Packages" finder-by-keyword] 1669 ["Find %_Packages" finder-by-keyword]
1629 ["View %_Splash Screen" xemacs-splash-buffer] 1670 ["View %_Splash Screen" xemacs-splash-buffer]
1630 ["%_Unix Manual..." manual-entry]) 1671 ["%_Unix Manual..." manual-entry])
1631 "-----" 1672 "-----"
1632 ["%_Recent Messages" view-lossage] 1673 ["Recent %_Messages" (view-lossage t)]
1674 ["Recent %_Keystrokes" view-lossage]
1675 ["Recent %_Warnings" view-warnings]
1633 ["Send %_Bug Report..." report-xemacs-bug 1676 ["Send %_Bug Report..." report-xemacs-bug
1634 :active (fboundp 'report-xemacs-bug)]))) 1677 :active (fboundp 'report-xemacs-bug)])))
1635 1678
1636 1679
1637 (defun init-menubar-at-startup () 1680 (defun init-menubar-at-startup ()
1653 1696
1654 1697
1655 ;;; The File menu 1698 ;;; The File menu
1656 1699
1657 (defvar put-buffer-names-in-file-menu t) 1700 (defvar put-buffer-names-in-file-menu t)
1658
1659
1660 ;;; The Bookmarks menu
1661
1662 (defun bookmark-menu-filter (&rest ignore)
1663 (declare (special bookmark-alist))
1664 (let ((definedp (and (boundp 'bookmark-alist)
1665 bookmark-alist
1666 t)))
1667 `(,(if definedp
1668 '("%_Jump to Bookmark"
1669 :filter (lambda (&rest junk)
1670 (submenu-generate-accelerator-spec
1671 (mapcar #'(lambda (bmk)
1672 `[,bmk (bookmark-jump ',bmk)])
1673 (bookmark-all-names)))))
1674 ["%_Jump to Bookmark" nil nil])
1675 ["Set %_Bookmark" bookmark-set
1676 :active (fboundp 'bookmark-set)]
1677 "---"
1678 ["Insert %_Contents" bookmark-menu-insert
1679 :active (fboundp 'bookmark-menu-insert)]
1680 ["Insert L%_ocation" bookmark-menu-locate
1681 :active (fboundp 'bookmark-menu-locate)]
1682 "---"
1683 ["%_Rename Bookmark" bookmark-menu-rename
1684 :active (fboundp 'bookmark-menu-rename)]
1685 ,(if definedp
1686 '("%_Delete Bookmark"
1687 :filter (lambda (&rest junk)
1688 (submenu-generate-accelerator-spec
1689 (mapcar #'(lambda (bmk)
1690 `[,bmk (bookmark-delete ',bmk)])
1691 (bookmark-all-names)))))
1692 ["%_Delete Bookmark" nil nil])
1693 ["%_Edit Bookmark List" bookmark-bmenu-list ,definedp]
1694 "---"
1695 ["%_Save Bookmarks" bookmark-save ,definedp]
1696 ["Save Bookmarks %_As..." bookmark-write ,definedp]
1697 ["%_Load a Bookmark File" bookmark-load
1698 :active (fboundp 'bookmark-load)])))
1699 1701
1700 ;;; The Buffers menu 1702 ;;; The Buffers menu
1701 1703
1702 (defgroup buffers-menu nil 1704 (defgroup buffers-menu nil
1703 "Customization of `Buffers' menu." 1705 "Customization of `Buffers' menu."