Mercurial > emacs
annotate lisp/emacs-lisp/lmenu.el @ 106175:d4ca58110155
* PROBLEMS: Remove fixed rebasing problem.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Fri, 20 Nov 2009 21:46:28 +0000 |
parents | a9dc0e7c3f2b |
children | 1d1d5d9bd884 |
rev | line source |
---|---|
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
1 ;;; lmenu.el --- emulate Lucid's menubar support |
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
2 |
74466 | 3 ;; Copyright (C) 1992, 1993, 1994, 1997, 2001, 2002, 2003, 2004, |
100908 | 4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. |
14169 | 5 |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
6 ;; Keywords: emulations obsolete |
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
7 |
2231 | 8 ;; This file is part of GNU Emacs. |
9 | |
94655
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
10 ;; GNU Emacs is free software: you can redistribute it and/or modify |
2231 | 11 ;; it under the terms of the GNU General Public License as published by |
94655
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; the Free Software Foundation, either version 3 of the License, or |
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; (at your option) any later version. |
2231 | 14 |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
94655
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
2231 | 22 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36861
diff
changeset
|
23 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36861
diff
changeset
|
24 |
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
25 ;;; Code: |
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
26 |
2231 | 27 |
28 ;; First, emulate the Lucid menubar support in GNU Emacs 19. | |
29 | |
30 ;; Arrange to use current-menubar to set up part of the menu bar. | |
31 | |
7656
d50e5481aae2
(popup-dialog-box): Bind meaning with let.
Richard M. Stallman <rms@gnu.org>
parents:
7655
diff
changeset
|
32 (defvar current-menubar) |
64808
46d15fb04bc9
(lucid-menubar-map, lucid-failing-menubar)
Richard M. Stallman <rms@gnu.org>
parents:
64751
diff
changeset
|
33 (defvar lucid-menubar-map) |
46d15fb04bc9
(lucid-menubar-map, lucid-failing-menubar)
Richard M. Stallman <rms@gnu.org>
parents:
64751
diff
changeset
|
34 (defvar lucid-failing-menubar) |
7656
d50e5481aae2
(popup-dialog-box): Bind meaning with let.
Richard M. Stallman <rms@gnu.org>
parents:
7655
diff
changeset
|
35 |
64808
46d15fb04bc9
(lucid-menubar-map, lucid-failing-menubar)
Richard M. Stallman <rms@gnu.org>
parents:
64751
diff
changeset
|
36 (defvar recompute-lucid-menubar 'recompute-lucid-menubar) |
2231 | 37 (defun recompute-lucid-menubar () |
38 (define-key lucid-menubar-map [menu-bar] | |
39 (condition-case nil | |
40 (make-lucid-menu-keymap "menu-bar" current-menubar) | |
41 (error (message "Invalid data in current-menubar moved to lucid-failing-menubar") | |
42 (sit-for 1) | |
43 (setq lucid-failing-menubar current-menubar | |
44 current-menubar nil)))) | |
45 (setq lucid-menu-bar-dirty-flag nil)) | |
46 | |
47 (defvar lucid-menubar-map (make-sparse-keymap)) | |
48 (or (assq 'current-menubar minor-mode-map-alist) | |
49 (setq minor-mode-map-alist | |
50 (cons (cons 'current-menubar lucid-menubar-map) | |
51 minor-mode-map-alist))) | |
52 | |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
53 ;; XEmacs compatibility |
2231 | 54 (defun set-menubar-dirty-flag () |
55 (force-mode-line-update) | |
56 (setq lucid-menu-bar-dirty-flag t)) | |
57 | |
58 (defvar add-menu-item-count 0) | |
59 | |
8868
5eff9b0c1a43
(make-lucid-menu-keymap-disable): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8051
diff
changeset
|
60 ;; This is a variable whose value is always nil. |
5eff9b0c1a43
(make-lucid-menu-keymap-disable): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8051
diff
changeset
|
61 (defvar make-lucid-menu-keymap-disable nil) |
5eff9b0c1a43
(make-lucid-menu-keymap-disable): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8051
diff
changeset
|
62 |
2231 | 63 ;; Return a menu keymap corresponding to a Lucid-style menu list |
64 ;; MENU-ITEMS, and with name MENU-NAME. | |
65 (defun make-lucid-menu-keymap (menu-name menu-items) | |
66 (let ((menu (make-sparse-keymap menu-name))) | |
67 ;; Process items in reverse order, | |
68 ;; since the define-key loop reverses them again. | |
69 (setq menu-items (reverse menu-items)) | |
70 (while menu-items | |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
71 (let ((item (car menu-items)) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
72 command name callback) |
2231 | 73 (cond ((stringp item) |
74 (setq command nil) | |
6445
19bf0e182eda
(make-lucid-menu-keymap): Any row of dashes means blank.
Karl Heuer <kwzh@gnu.org>
parents:
6435
diff
changeset
|
75 (setq name (if (string-match "^-+$" item) "" item))) |
2231 | 76 ((consp item) |
77 (setq command (make-lucid-menu-keymap (car item) (cdr item))) | |
78 (setq name (car item))) | |
79 ((vectorp item) | |
80 (setq command (make-symbol (format "menu-function-%d" | |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
81 add-menu-item-count)) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
82 add-menu-item-count (1+ add-menu-item-count) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
83 name (aref item 0) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
84 callback (aref item 1)) |
2231 | 85 (if (symbolp callback) |
86 (fset command callback) | |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
87 (fset command (list 'lambda () '(interactive) callback))) |
15430
760c7139c19c
(make-lucid-menu-keymap): Add menu-alias property.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
88 (put command 'menu-alias t) |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
89 (let ((i 2)) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
90 (while (< i (length item)) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
91 (cond |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
92 ((eq (aref item i) ':active) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
93 (put command 'menu-enable |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
94 (or (aref item (1+ i)) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
95 'make-lucid-menu-keymap-disable)) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
96 (setq i (+ 2 i))) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
97 ((eq (aref item i) ':suffix) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
98 ;; unimplemented |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
99 (setq i (+ 2 i))) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
100 ((eq (aref item i) ':keys) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
101 ;; unimplemented |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
102 (setq i (+ 2 i))) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
103 ((eq (aref item i) ':style) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
104 ;; unimplemented |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
105 (setq i (+ 2 i))) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
106 ((eq (aref item i) ':selected) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
107 ;; unimplemented |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
108 (setq i (+ 2 i))) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
109 ((and (symbolp (aref item i)) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
110 (= ?: (string-to-char (symbol-name (aref item i))))) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
111 (error "Unrecognized menu item keyword: %S" |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
112 (aref item i))) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
113 ((= i 2) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
114 ;; old-style format: active-p &optional suffix |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
115 (put command 'menu-enable |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
116 (or (aref item i) 'make-lucid-menu-keymap-disable)) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
117 ;; suffix is unimplemented |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
118 (setq i (length item))) |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
119 (t |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
120 (error "Unexpected menu item value: %S" |
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
121 (aref item i)))))))) |
5477
2efe469a9c24
(make-lucid-menu-keymap): Allow multiple identical inactive strings.
Richard M. Stallman <rms@gnu.org>
parents:
5461
diff
changeset
|
122 (if (null command) |
2efe469a9c24
(make-lucid-menu-keymap): Allow multiple identical inactive strings.
Richard M. Stallman <rms@gnu.org>
parents:
5461
diff
changeset
|
123 ;; Handle inactive strings specially--allow any number |
2efe469a9c24
(make-lucid-menu-keymap): Allow multiple identical inactive strings.
Richard M. Stallman <rms@gnu.org>
parents:
5461
diff
changeset
|
124 ;; of identical ones. |
2efe469a9c24
(make-lucid-menu-keymap): Allow multiple identical inactive strings.
Richard M. Stallman <rms@gnu.org>
parents:
5461
diff
changeset
|
125 (setcdr menu (cons (list nil name) (cdr menu))) |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
126 (if name |
5477
2efe469a9c24
(make-lucid-menu-keymap): Allow multiple identical inactive strings.
Richard M. Stallman <rms@gnu.org>
parents:
5461
diff
changeset
|
127 (define-key menu (vector (intern name)) (cons name command))))) |
2231 | 128 (setq menu-items (cdr menu-items))) |
129 menu)) | |
130 | |
95841
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
94655
diff
changeset
|
131 (declare-function x-popup-dialog "xmenu.c" (position contents &optional header)) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
94655
diff
changeset
|
132 |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
133 ;; XEmacs compatibility function |
6744
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
134 (defun popup-dialog-box (data) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
135 "Pop up a dialog box. |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
136 A dialog box description is a list. |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
137 |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
138 - The first element of the list is a string to display in the dialog box. |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
139 - The rest of the elements are descriptions of the dialog box's buttons. |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
140 Each one is a vector of three elements: |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
141 - The first element is the text of the button. |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
142 - The second element is the `callback'. |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
143 - The third element is t or nil, whether this button is selectable. |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
144 |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
145 If the `callback' of a button is a symbol, then it must name a command. |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
146 It will be invoked with `call-interactively'. If it is a list, then it is |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
147 evaluated with `eval'. |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
148 |
50867
720bc3a67aa8
(popup-dialog-box): Don't quote nil and t in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
38414
diff
changeset
|
149 One (and only one) of the buttons may be nil. This marker means that all |
6744
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
150 following buttons should be flushright instead of flushleft. |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
151 |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
152 The syntax, more precisely: |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
153 |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
154 form := <something to pass to `eval'> |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
155 command := <a symbol or string, to pass to `call-interactively'> |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
156 callback := command | form |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
157 active-p := <t, nil, or a form to evaluate to decide whether this |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
158 button should be selectable> |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
159 name := <string> |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
160 partition := 'nil' |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
161 button := '[' name callback active-p ']' |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
162 dialog := '(' name [ button ]+ [ partition [ button ]+ ] ')'" |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
163 (let ((name (car data)) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
164 (tail (cdr data)) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
165 converted |
7656
d50e5481aae2
(popup-dialog-box): Bind meaning with let.
Richard M. Stallman <rms@gnu.org>
parents:
7655
diff
changeset
|
166 choice meaning) |
6744
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
167 (while tail |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
168 (if (null (car tail)) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
169 (setq converted (cons nil converted)) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
170 (let ((item (aref (car tail) 0)) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
171 (callback (aref (car tail) 1)) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
172 (enable (aref (car tail) 2))) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
173 (setq converted |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
174 (cons (if enable (cons item callback) item) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
175 converted)))) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
176 (setq tail (cdr tail))) |
67485a72803d
(popup-dialog-box): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6445
diff
changeset
|
177 (setq choice (x-popup-dialog t (cons name (nreverse converted)))) |
11765
3bc36769004f
(popup-dialog-box): x-popup-dialog returns the value, not the cons cell.
Richard M. Stallman <rms@gnu.org>
parents:
10954
diff
changeset
|
178 (if choice |
3bc36769004f
(popup-dialog-box): x-popup-dialog returns the value, not the cons cell.
Richard M. Stallman <rms@gnu.org>
parents:
10954
diff
changeset
|
179 (if (symbolp choice) |
3bc36769004f
(popup-dialog-box): x-popup-dialog returns the value, not the cons cell.
Richard M. Stallman <rms@gnu.org>
parents:
10954
diff
changeset
|
180 (call-interactively choice) |
3bc36769004f
(popup-dialog-box): x-popup-dialog returns the value, not the cons cell.
Richard M. Stallman <rms@gnu.org>
parents:
10954
diff
changeset
|
181 (eval choice))))) |
2231 | 182 |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
183 ;; This is empty because the usual elements of the menu bar |
2751
f95808ad4b95
(default-menubar): Make initial value nil.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
184 ;; are provided by menu-bar.el instead. |
f95808ad4b95
(default-menubar): Make initial value nil.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
185 ;; It would not make sense to duplicate them here. |
f95808ad4b95
(default-menubar): Make initial value nil.
Richard M. Stallman <rms@gnu.org>
parents:
2233
diff
changeset
|
186 (defconst default-menubar nil) |
2231 | 187 |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
188 ;; XEmacs compatibility |
2231 | 189 (defun set-menubar (menubar) |
190 "Set the default menubar to be menubar." | |
191 (setq-default current-menubar (copy-sequence menubar)) | |
192 (set-menubar-dirty-flag)) | |
193 | |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
194 ;; XEmacs compatibility |
2231 | 195 (defun set-buffer-menubar (menubar) |
196 "Set the buffer-local menubar to be menubar." | |
197 (make-local-variable 'current-menubar) | |
198 (setq current-menubar (copy-sequence menubar)) | |
199 (set-menubar-dirty-flag)) | |
200 | |
201 | |
202 ;;; menu manipulation functions | |
203 | |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
204 ;; XEmacs compatibility |
2231 | 205 (defun find-menu-item (menubar item-path-list &optional parent) |
206 "Searches MENUBAR for item given by ITEM-PATH-LIST. | |
207 Returns (ITEM . PARENT), where PARENT is the immediate parent of | |
208 the item found. | |
209 Signals an error if the item is not found." | |
210 (or parent (setq item-path-list (mapcar 'downcase item-path-list))) | |
211 (if (not (consp menubar)) | |
212 nil | |
213 (let ((rest menubar) | |
214 result) | |
215 (while rest | |
216 (if (and (car rest) | |
217 (equal (car item-path-list) | |
218 (downcase (if (vectorp (car rest)) | |
219 (aref (car rest) 0) | |
220 (if (stringp (car rest)) | |
221 (car rest) | |
222 (car (car rest))))))) | |
223 (setq result (car rest) rest nil) | |
224 (setq rest (cdr rest)))) | |
225 (if (cdr item-path-list) | |
226 (if (consp result) | |
227 (find-menu-item (cdr result) (cdr item-path-list) result) | |
228 (if result | |
229 (signal 'error (list "not a submenu" result)) | |
230 (signal 'error (list "no such submenu" (car item-path-list))))) | |
231 (cons result parent))))) | |
232 | |
233 | |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
234 ;; XEmacs compatibility |
2231 | 235 (defun disable-menu-item (path) |
236 "Make the named menu item be unselectable. | |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
237 PATH is a list of strings which identify the position of the menu item in |
2231 | 238 the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\" |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
239 under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the |
2231 | 240 menu item called \"Item\" under the \"Foo\" submenu of \"Menu\"." |
241 (let* ((menubar current-menubar) | |
242 (pair (find-menu-item menubar path)) | |
243 (item (car pair)) | |
244 (menu (cdr pair))) | |
245 (or item | |
246 (signal 'error (list (if menu "No such menu item" "No such menu") | |
247 path))) | |
248 (if (consp item) (error "can't disable menus, only menu items")) | |
249 (aset item 2 nil) | |
250 (set-menubar-dirty-flag) | |
251 item)) | |
252 | |
253 | |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
254 ;; XEmacs compatibility |
2231 | 255 (defun enable-menu-item (path) |
256 "Make the named menu item be selectable. | |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
257 PATH is a list of strings which identify the position of the menu item in |
2231 | 258 the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\" |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
259 under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the |
2231 | 260 menu item called \"Item\" under the \"Foo\" submenu of \"Menu\"." |
261 (let* ((menubar current-menubar) | |
262 (pair (find-menu-item menubar path)) | |
263 (item (car pair)) | |
264 (menu (cdr pair))) | |
265 (or item | |
266 (signal 'error (list (if menu "No such menu item" "No such menu") | |
267 path))) | |
268 (if (consp item) (error "%S is a menu, not a menu item" path)) | |
269 (aset item 2 t) | |
270 (set-menubar-dirty-flag) | |
271 item)) | |
272 | |
273 | |
274 (defun add-menu-item-1 (item-p menu-path item-name item-data enabled-p before) | |
275 (if before (setq before (downcase before))) | |
276 (let* ((menubar current-menubar) | |
277 (menu (condition-case () | |
278 (car (find-menu-item menubar menu-path)) | |
279 (error nil))) | |
280 (item (if (listp menu) | |
281 (car (find-menu-item (cdr menu) (list item-name))) | |
282 (signal 'error (list "not a submenu" menu-path))))) | |
283 (or menu | |
284 (let ((rest menu-path) | |
285 (so-far menubar)) | |
286 (while rest | |
287 ;;; (setq menu (car (find-menu-item (cdr so-far) (list (car rest))))) | |
288 (setq menu | |
289 (if (eq so-far menubar) | |
290 (car (find-menu-item so-far (list (car rest)))) | |
291 (car (find-menu-item (cdr so-far) (list (car rest)))))) | |
292 (or menu | |
293 (let ((rest2 so-far)) | |
10954
d9ab06338f6a
(add-menu-item-1): Better error message if
Richard M. Stallman <rms@gnu.org>
parents:
9523
diff
changeset
|
294 (or rest2 |
d9ab06338f6a
(add-menu-item-1): Better error message if
Richard M. Stallman <rms@gnu.org>
parents:
9523
diff
changeset
|
295 (error "Trying to modify a menu that doesn't exist")) |
2231 | 296 (while (and (cdr rest2) (car (cdr rest2))) |
297 (setq rest2 (cdr rest2))) | |
298 (setcdr rest2 | |
7699 | 299 (nconc (list (setq menu (list (car rest)))) |
300 (cdr rest2))))) | |
2231 | 301 (setq so-far menu) |
302 (setq rest (cdr rest))))) | |
303 (or menu (setq menu menubar)) | |
304 (if item | |
305 nil ; it's already there | |
306 (if item-p | |
307 (setq item (vector item-name item-data enabled-p)) | |
308 (setq item (cons item-name item-data))) | |
309 ;; if BEFORE is specified, try to add it there. | |
310 (if before | |
311 (setq before (car (find-menu-item menu (list before))))) | |
312 (let ((rest menu) | |
313 (added-before nil)) | |
314 (while rest | |
315 (if (eq before (car (cdr rest))) | |
316 (progn | |
317 (setcdr rest (cons item (cdr rest))) | |
318 (setq rest nil added-before t)) | |
319 (setq rest (cdr rest)))) | |
320 (if (not added-before) | |
321 ;; adding before the first item on the menubar itself is harder | |
322 (if (and (eq menu menubar) (eq before (car menu))) | |
323 (setq menu (cons item menu) | |
324 current-menubar menu) | |
325 ;; otherwise, add the item to the end. | |
326 (nconc menu (list item)))))) | |
327 (if item-p | |
328 (progn | |
329 (aset item 1 item-data) | |
330 (aset item 2 (not (null enabled-p)))) | |
331 (setcar item item-name) | |
332 (setcdr item item-data)) | |
333 (set-menubar-dirty-flag) | |
334 item)) | |
335 | |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
336 ;; XEmacs compatibility |
2231 | 337 (defun add-menu-item (menu-path item-name function enabled-p &optional before) |
338 "Add a menu item to some menu, creating the menu first if necessary. | |
339 If the named item exists already, it is changed. | |
340 MENU-PATH identifies the menu under which the new menu item should be inserted. | |
341 It is a list of strings; for example, (\"File\") names the top-level \"File\" | |
342 menu. (\"File\" \"Foo\") names a hypothetical submenu of \"File\". | |
343 ITEM-NAME is the string naming the menu item to be added. | |
344 FUNCTION is the command to invoke when this menu item is selected. | |
345 If it is a symbol, then it is invoked with `call-interactively', in the same | |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
346 way that functions bound to keys are invoked. If it is a list, then the |
2231 | 347 list is simply evaluated. |
348 ENABLED-P controls whether the item is selectable or not. | |
349 BEFORE, if provided, is the name of a menu item before which this item should | |
350 be added, if this item is not on the menu already. If the item is already | |
351 present, it will not be moved." | |
352 (or menu-path (error "must specify a menu path")) | |
353 (or item-name (error "must specify an item name")) | |
354 (add-menu-item-1 t menu-path item-name function enabled-p before)) | |
355 | |
356 | |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
357 ;; XEmacs compatibility |
2231 | 358 (defun delete-menu-item (path) |
359 "Remove the named menu item from the menu hierarchy. | |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
360 PATH is a list of strings which identify the position of the menu item in |
2231 | 361 the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\" |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
362 under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the |
2231 | 363 menu item called \"Item\" under the \"Foo\" submenu of \"Menu\"." |
364 (let* ((menubar current-menubar) | |
365 (pair (find-menu-item menubar path)) | |
366 (item (car pair)) | |
367 (menu (or (cdr pair) menubar))) | |
368 (if (not item) | |
369 nil | |
370 ;; the menubar is the only special case, because other menus begin | |
371 ;; with their name. | |
372 (if (eq menu current-menubar) | |
373 (setq current-menubar (delq item menu)) | |
374 (delq item menu)) | |
375 (set-menubar-dirty-flag) | |
376 item))) | |
377 | |
378 | |
31655
8c99980d4906
(popup-menu, popup-menu-internal, popup-menu-popup): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
21878
diff
changeset
|
379 ;; XEmacs compatibility |
2231 | 380 (defun relabel-menu-item (path new-name) |
381 "Change the string of the specified menu item. | |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
382 PATH is a list of strings which identify the position of the menu item in |
2231 | 383 the menu hierarchy. (\"File\" \"Save\") means the menu item called \"Save\" |
9523
f9cba4810d7b
(make-lucid-menu-keymap): Allow Lucid-style keyword-based menu items.
Karl Heuer <kwzh@gnu.org>
parents:
8868
diff
changeset
|
384 under the toplevel \"File\" menu. (\"Menu\" \"Foo\" \"Item\") means the |
2231 | 385 menu item called \"Item\" under the \"Foo\" submenu of \"Menu\". |
386 NEW-NAME is the string that the menu item will be printed as from now on." | |
387 (or (stringp new-name) | |
388 (setq new-name (signal 'wrong-type-argument (list 'stringp new-name)))) | |
389 (let* ((menubar current-menubar) | |
390 (pair (find-menu-item menubar path)) | |
391 (item (car pair)) | |
392 (menu (cdr pair))) | |
393 (or item | |
394 (signal 'error (list (if menu "No such menu item" "No such menu") | |
395 path))) | |
396 (if (and (consp item) | |
397 (stringp (car item))) | |
398 (setcar item new-name) | |
399 (aset item 0 new-name)) | |
400 (set-menubar-dirty-flag) | |
401 item)) | |
402 | |
36861
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
403 ;; XEmacs compatibility |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
404 (defun add-menu (menu-path menu-name menu-items &optional before) |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
405 "Add a menu to the menubar or one of its submenus. |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
406 If the named menu exists already, it is changed. |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
407 MENU-PATH identifies the menu under which the new menu should be inserted. |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
408 It is a list of strings; for example, (\"File\") names the top-level \"File\" |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
409 menu. (\"File\" \"Foo\") names a hypothetical submenu of \"File\". |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
410 If MENU-PATH is nil, then the menu will be added to the menubar itself. |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
411 MENU-NAME is the string naming the menu to be added. |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
412 MENU-ITEMS is a list of menu item descriptions. |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
413 Each menu item should be a vector of three elements: |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
414 - a string, the name of the menu item; |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
415 - a symbol naming a command, or a form to evaluate; |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
416 - and a form whose value determines whether this item is selectable. |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
417 BEFORE, if provided, is the name of a menu before which this menu should |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
418 be added, if this menu is not on its parent already. If the menu is already |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
419 present, it will not be moved." |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
420 (or menu-name (error "must specify a menu name")) |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
421 (or menu-items (error "must specify some menu items")) |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
422 (add-menu-item-1 nil menu-path menu-name menu-items t before)) |
79c77eec747f
(add-menu): Re-added (was erroneously removed).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31655
diff
changeset
|
423 |
2231 | 424 |
425 | |
426 (defvar put-buffer-names-in-file-menu t) | |
427 | |
428 | |
5982
a9f7e018245b
Delete the code to enable menu bars.
Richard M. Stallman <rms@gnu.org>
parents:
5477
diff
changeset
|
429 ;; Don't unconditionally enable menu bars; leave that up to the user. |
a9f7e018245b
Delete the code to enable menu bars.
Richard M. Stallman <rms@gnu.org>
parents:
5477
diff
changeset
|
430 ;;(let ((frames (frame-list))) |
a9f7e018245b
Delete the code to enable menu bars.
Richard M. Stallman <rms@gnu.org>
parents:
5477
diff
changeset
|
431 ;; (while frames |
a9f7e018245b
Delete the code to enable menu bars.
Richard M. Stallman <rms@gnu.org>
parents:
5477
diff
changeset
|
432 ;; (modify-frame-parameters (car frames) '((menu-bar-lines . 1))) |
a9f7e018245b
Delete the code to enable menu bars.
Richard M. Stallman <rms@gnu.org>
parents:
5477
diff
changeset
|
433 ;; (setq frames (cdr frames)))) |
a9f7e018245b
Delete the code to enable menu bars.
Richard M. Stallman <rms@gnu.org>
parents:
5477
diff
changeset
|
434 ;;(or (assq 'menu-bar-lines default-frame-alist) |
a9f7e018245b
Delete the code to enable menu bars.
Richard M. Stallman <rms@gnu.org>
parents:
5477
diff
changeset
|
435 ;; (setq default-frame-alist |
a9f7e018245b
Delete the code to enable menu bars.
Richard M. Stallman <rms@gnu.org>
parents:
5477
diff
changeset
|
436 ;; (cons '(menu-bar-lines . 1) default-frame-alist))) |
2231 | 437 |
438 (set-menubar default-menubar) | |
439 | |
6435
050f711140e0
Provide lmenu, not menubar.
Richard M. Stallman <rms@gnu.org>
parents:
5982
diff
changeset
|
440 (provide 'lmenu) |
2231 | 441 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79704
diff
changeset
|
442 ;; arch-tag: 7051c396-2837-435a-ae11-b2d2e2af8fc1 |
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
443 ;;; lmenu.el ends here |