Mercurial > emacs

comparison lisp/menu-bar.el @ 83548:c71725faff1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org. Last-minute emacsclient rewrites be damned! Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-490 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-491 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-492 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-493 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-494 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-495 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-496 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-497 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-498 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-499 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-500 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-501 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-502 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-503 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-504 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-505 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-506 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-507 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-508 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-509 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-510 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-511 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-512 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-513 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-514 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-515 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-516 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-517 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-518 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-519 Update from CVS: etc/TUTORIAL.cn: Updated. * emacs@sv.gnu.org/emacs--devo--0--patch-520 Merge from erc--emacs--22 * emacs@sv.gnu.org/emacs--devo--0--patch-521 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-522 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-523 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-524 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-525 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-526 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-527 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-528 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-529 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-530 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-531 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-532 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-533 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-534 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-535 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-161 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-162 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-163 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-164 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-165 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-166 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-167 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-168 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-169 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-170 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-588
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 03 Dec 2006 15:03:30 +0000
parents 2d56e13fd23d 8b12ae69293f
children 17e0dd217877
comparison
equal deleted inserted replaced
83547:0912b745fc75 83548:c71725faff1a
1016 (:visible (and (boundp 'cua-enable-cua-keys) 1016 (:visible (and (boundp 'cua-enable-cua-keys)
1017 (not cua-enable-cua-keys))))) 1017 (not cua-enable-cua-keys)))))
1018 1018
1019 (define-key menu-bar-options-menu [case-fold-search] 1019 (define-key menu-bar-options-menu [case-fold-search]
1020 (menu-bar-make-toggle toggle-case-fold-search case-fold-search 1020 (menu-bar-make-toggle toggle-case-fold-search case-fold-search
1021 "Case-Insensitive Search" 1021 "Case-Insensitive Search"
1022 "Case-Insensitive Search %s" 1022 "Case-Insensitive Search %s for buffers without local setting"
1023 "Ignore letter-case in search")) 1023 "Ignore letter-case in search for buffers without local setting"))
1024 1024
1025 (defun menu-bar-text-mode-auto-fill () 1025 (defun menu-bar-text-mode-auto-fill ()
1026 (interactive) 1026 (interactive)
1027 (toggle-text-mode-auto-fill) 1027 (toggle-text-mode-auto-fill)
1028 ;; This is somewhat questionable, as `text-mode-hook' 1028 ;; This is somewhat questionable, as `text-mode-hook'
1088 '("--")) 1088 '("--"))
1089 1089
1090 (define-key menu-bar-games-menu [zone] 1090 (define-key menu-bar-games-menu [zone]
1091 '(menu-item "Zone Out" zone 1091 '(menu-item "Zone Out" zone
1092 :help "Play tricks with Emacs display when Emacs is idle")) 1092 :help "Play tricks with Emacs display when Emacs is idle"))
1093 (define-key menu-bar-games-menu [yow]
1094 '(menu-item "Random Quotation" yow
1095 :help "Display a random Zippy quotation"))
1096 (define-key menu-bar-games-menu [tetris] 1093 (define-key menu-bar-games-menu [tetris]
1097 '(menu-item "Tetris" tetris)) 1094 '(menu-item "Tetris" tetris))
1098 (define-key menu-bar-games-menu [solitaire] 1095 (define-key menu-bar-games-menu [solitaire]
1099 '(menu-item "Solitaire" solitaire)) 1096 '(menu-item "Solitaire" solitaire))
1100 (define-key menu-bar-games-menu [snake] 1097 (define-key menu-bar-games-menu [snake]
1597 "..." 1594 "..."
1598 (substring name -12)) 1595 (substring name -12))
1599 name)))) 1596 name))))
1600 ;; Compute the maximum length of any name. 1597 ;; Compute the maximum length of any name.
1601 (dolist (buf buffer-list) 1598 (dolist (buf buffer-list)
1602 (unless (eq ?\ (aref (cdr buf) 0)) 1599 (unless (eq ?\s (aref (cdr buf) 0))
1603 (setq menu-bar-update-buffers-maxbuf 1600 (setq menu-bar-update-buffers-maxbuf
1604 (max menu-bar-update-buffers-maxbuf 1601 (max menu-bar-update-buffers-maxbuf
1605 (length (cdr buf)))))) 1602 (length (cdr buf))))))
1606 ;; Set ALIST to an alist of the form 1603 ;; Set ALIST to an alist of the form
1607 ;; ITEM-STRING . BUFFER 1604 ;; ITEM-STRING . BUFFER
1608 (dolist (buf buffer-list) 1605 (dolist (buf buffer-list)
1609 (unless (eq ?\ (aref (cdr buf) 0)) 1606 (unless (eq ?\s (aref (cdr buf) 0))
1610 (push (menu-bar-update-buffers-1 buf) alist))) 1607 (push (menu-bar-update-buffers-1 buf) alist)))
1611 ;; Now make the actual list of items, and add 1608 ;; Now make the actual list of items, and add
1612 ;; some miscellaneous buffer commands to the end. 1609 ;; some miscellaneous buffer commands to the end.
1613 (mapcar (lambda (pair) 1610 (mapcar (lambda (pair)
1614 ;; This is somewhat risque, to use 1611 ;; This is somewhat risque, to use
1667 :help "Prompt for a buffer name, and select that buffer in the current window") 1664 :help "Prompt for a buffer name, and select that buffer in the current window")
1668 (list 'list-all-buffers 1665 (list 'list-all-buffers
1669 'menu-item 1666 'menu-item
1670 "List All Buffers" 1667 "List All Buffers"
1671 'list-buffers 1668 'list-buffers
1672 :help "Pop up a window listing all emacs buffers" 1669 :help "Pop up a window listing all Emacs buffers"
1673 )))) 1670 ))))
1674 (setq buffers-menu 1671 (setq buffers-menu
1675 (nconc buffers-menu menu-bar-buffers-menu-command-entries)) 1672 (nconc buffers-menu menu-bar-buffers-menu-command-entries))
1676 1673
1677 (setq buffers-menu (cons 'keymap (cons "Select Buffer" buffers-menu))) 1674 (setq buffers-menu (cons 'keymap (cons "Select Buffer" buffers-menu)))