Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 43dd3413c7c7
children 85ec50267440
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
80 ["Search (Regexp)..." isearch-forward-regexp t] 80 ["Search (Regexp)..." isearch-forward-regexp t]
81 ["Search Backward (Regexp)..." isearch-backward-regexp t] 81 ["Search Backward (Regexp)..." isearch-backward-regexp t]
82 ["Replace (Regexp)..." query-replace-regexp t] 82 ["Replace (Regexp)..." query-replace-regexp t]
83 "----" 83 "----"
84 ("Bookmarks" 84 ("Bookmarks"
85 ["Jump to bookmark" bookmark-menu-jump t] 85 ("Jump to bookmark"
86 :filter bookmark-menu-filter)
86 ["Set bookmark" bookmark-set t] 87 ["Set bookmark" bookmark-set t]
87 "---" 88 "---"
88 ["Insert contents" bookmark-menu-insert t] 89 ["Insert contents" bookmark-menu-insert t]
89 ["Insert location" bookmark-menu-locate t] 90 ["Insert location" bookmark-menu-locate t]
90 "---" 91 "---"
91 ["Rename bookmark" bookmark-menu-rename t] 92 ["Rename bookmark" bookmark-menu-rename t]
92 ["Delete bookmark" bookmark-menu-delete t] 93 ("Delete bookmark"
94 :filter bookmark-delete-filter)
93 ["Edit Bookmark List" bookmark-bmenu-list t] 95 ["Edit Bookmark List" bookmark-bmenu-list t]
94 "---" 96 "---"
95 ["Save bookmarks" bookmark-save t] 97 ["Save bookmarks" bookmark-save t]
96 ["Save bookmarks as..." bookmark-write t] 98 ["Save bookmarks as..." bookmark-write t]
97 ["Load a bookmark file" bookmark-load t]) 99 ["Load a bookmark file" bookmark-load t])
104 ["Execute Last Macro" call-last-kbd-macro last-kbd-macro] 106 ["Execute Last Macro" call-last-kbd-macro last-kbd-macro]
105 ) 107 )
106 108
107 ,@(if (featurep 'mule) 109 ,@(if (featurep 'mule)
108 '(("Mule" 110 '(("Mule"
109 ["Describe language support" 111 ;; ["Describe language support"
110 mule-describe-language-support-prefix nil] ; not implemented yet 112 ;; mule-describe-language-support-prefix nil]
111 ["Set language environment" 113 ;; ["Set language environment"
112 mule-set-language-environment-prefix nil] ; not implemented yet 114 ;; mule-set-language-environment-prefix nil]
113 "--" 115 ;; "--"
114 ["Toggle input method" toggle-input-method t] 116 ["Toggle input method" toggle-input-method t]
115 ["Select input method" select-input-method t] 117 ["Select input method" select-input-method t]
116 ["Describe input method" describe-input-method t] 118 ["Describe input method" describe-input-method t]
117 "--" 119 "--"
118 ["Describe current coding systems" 120 ["Describe current coding systems"
834 )) 836 ))
835 ))) 837 )))
836 result)) 838 result))
837 839
838 840
841 ;;; The Bookmarks menu
842
843 (defun bookmark-menu-filter (menu-items)
844 "*Build the bookmark jump submenu dynamically from all defined bookmarks."
845 (if (bookmark-all-names)
846 (mapcar
847 #'(lambda (bmk)
848 (vector bmk `(bookmark-jump ',bmk) t)) (bookmark-all-names))
849 (list "No Bookmarks Set")))
850
851 (defun bookmark-delete-filter (menu-items)
852 "*Build the bookmark delete submenu dynamically from all defined bookmarks."
853 (if (bookmark-all-names)
854 (mapcar
855 #'(lambda (bmk)
856 (vector bmk `(bookmark-delete ',bmk) t)) (bookmark-all-names))
857 (list "No Bookmarks Set")))
858
839 ;;; The Buffers menu 859 ;;; The Buffers menu
840 860
841 (defvar buffers-menu-max-size 25 861 (defvar buffers-menu-max-size 25
842 "*Maximum number of entries which may appear on the \"Buffers\" menu. 862 "*Maximum number of entries which may appear on the \"Buffers\" menu.
843 If this is 10, then only the ten most-recently-selected buffers will be 863 If this is 10, then only the ten most-recently-selected buffers will be