Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 6:27bc7f280385 r19-15b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b4
author cvs
date Mon, 13 Aug 2007 08:47:15 +0200
parents b82b59fe008d
children 49a24b4fd526
comparison
equal deleted inserted replaced
5:49b78a777eb4 6:27bc7f280385
499 ) 499 )
500 500
501 ("Tools" 501 ("Tools"
502 ["Grep..." grep t] 502 ["Grep..." grep t]
503 ["Compile..." compile t] 503 ["Compile..." compile t]
504 ["Shell" shell t]
504 ["Shell Command..." shell-command t] 505 ["Shell Command..." shell-command t]
505 ["Shell Command on Region..." 506 ["Shell Command on Region..."
506 shell-command-on-region (region-exists-p)] 507 shell-command-on-region (region-exists-p)]
507 ["Debug (GDB)..." gdb t] 508 ["Debug (GDB)..." gdb t]
508 ["Debug (DBX)..." dbx t] 509 ["Debug (DBX)..." dbx t]
512 ["Find..." find-tag t] 513 ["Find..." find-tag t]
513 ["Find Other Window..." find-tag-other-window t] 514 ["Find Other Window..." find-tag-other-window t]
514 ["Tags Search..." tags-search t] 515 ["Tags Search..." tags-search t]
515 ["Tags Replace..." tags-query-replace t] 516 ["Tags Replace..." tags-query-replace t]
516 "-----" 517 "-----"
517 ["Continue" tags-loop-continue t] 518 ["Continue Search/Replace" tags-loop-continue t]
518 ["Pop stack" pop-tag-mark t] 519 ["Pop stack" pop-tag-mark t]
519 ["Apropos..." tags-apropos t])) 520 ["Apropos..." tags-apropos t]))
520 521
521 nil ; the partition: menus after this are flushright 522 nil ; the partition: menus after this are flushright
522 523
528 ["XEmacs FAQ (local)" xemacs-local-faq t] 529 ["XEmacs FAQ (local)" xemacs-local-faq t]
529 ["XEmacs Tutorial" help-with-tutorial t] 530 ["XEmacs Tutorial" help-with-tutorial t]
530 ["XEmacs News" view-emacs-news t] 531 ["XEmacs News" view-emacs-news t]
531 ["Sample .emacs" (find-file 532 ["Sample .emacs" (find-file
532 (expand-file-name "sample.emacs" 533 (expand-file-name "sample.emacs"
534 data-directory))
535 t]
536 ["Sample .Xdefaults" (find-file
537 (expand-file-name "sample.Xdefaults"
533 data-directory)) 538 data-directory))
534 t] 539 t]
535 "-----" 540 "-----"
536 ["Info (Detailed Docs)" info t] 541 ["Info (Detailed Docs)" info t]
537 ("Lookup in Info" 542 ("Lookup in Info"
708 of each buffer line. If this is false, then there will be only one command: 713 of each buffer line. If this is false, then there will be only one command:
709 select that buffer.") 714 select that buffer.")
710 715
711 (defvar buffers-menu-submenus-for-groups-p nil 716 (defvar buffers-menu-submenus-for-groups-p nil
712 "*If true, the buffers menu will contain one submenu per group of buffers, 717 "*If true, the buffers menu will contain one submenu per group of buffers,
713 if a grouping function is specified in `buffers-menu-grouping-function'.") 718 if a grouping function is specified in `buffers-menu-grouping-function'.
719 If this is an integer, do not build submenus if the number of buffers
720 is not larger than this value.")
714 721
715 (defvar buffers-menu-switch-to-buffer-function 'switch-to-buffer 722 (defvar buffers-menu-switch-to-buffer-function 'switch-to-buffer
716 "*The function to call to select a buffer from the buffers menu. 723 "*The function to call to select a buffer from the buffers menu.
717 `switch-to-buffer' is a good choice, as is `pop-to-buffer'.") 724 `switch-to-buffer' is a good choice, as is `pop-to-buffer'.")
718 725
874 items by redefining the function `format-buffers-menu-line'." 881 items by redefining the function `format-buffers-menu-line'."
875 (let ((buffers (delete-if buffers-menu-omit-function (buffer-list)))) 882 (let ((buffers (delete-if buffers-menu-omit-function (buffer-list))))
876 (and (integerp buffers-menu-max-size) 883 (and (integerp buffers-menu-max-size)
877 (> buffers-menu-max-size 1) 884 (> buffers-menu-max-size 1)
878 (> (length buffers) buffers-menu-max-size) 885 (> (length buffers) buffers-menu-max-size)
879 ;; shorten list of buffers 886 ;; shorten list of buffers (not with submenus!)
887 (not (and buffers-menu-grouping-function
888 buffers-menu-submenus-for-groups-p))
880 (setcdr (nthcdr buffers-menu-max-size buffers) nil)) 889 (setcdr (nthcdr buffers-menu-max-size buffers) nil))
881 (if buffers-menu-sort-function 890 (if buffers-menu-sort-function
882 (setq buffers (sort buffers buffers-menu-sort-function))) 891 (setq buffers (sort buffers buffers-menu-sort-function)))
883 (if (and buffers-menu-grouping-function 892 (if (and buffers-menu-grouping-function
884 buffers-menu-submenus-for-groups-p) 893 buffers-menu-submenus-for-groups-p
894 (or (not (integerp buffers-menu-submenus-for-groups-p))
895 (> (length buffers) buffers-menu-submenus-for-groups-p)))
885 (let (groups groupnames current-group) 896 (let (groups groupnames current-group)
886 (mapl 897 (mapl
887 #'(lambda (sublist) 898 #'(lambda (sublist)
888 (let ((groupname (funcall buffers-menu-grouping-function 899 (let ((groupname (funcall buffers-menu-grouping-function
889 (car sublist) (cadr sublist)))) 900 (car sublist) (cadr sublist))))
1061 (face-property face property)) 1072 (face-property face property))
1062 `(add-spec-list-to-specifier 1073 `(add-spec-list-to-specifier
1063 (face-property ',face ',property) 1074 (face-property ',face ',property)
1064 ',(save-options-specifier-spec-list 1075 ',(save-options-specifier-spec-list
1065 face property)))) 1076 face property))))
1066 p built-in-face-specifiers))) 1077 (delq 'display-table
1078 (copy-sequence
1079 built-in-face-specifiers)))))
1067 (face-list)))) 1080 (face-list))))
1068 1081
1069 )) 1082 ))
1070 "The variables to save; or forms to evaluate to get forms to write out. 1083 "The variables to save; or forms to evaluate to get forms to write out.
1071 This is used by `save-options-menu-settings' and should mirror the 1084 This is used by `save-options-menu-settings' and should mirror the