aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2003-04-03 23:15:47 +0000
committerRichard M. Stallman2003-04-03 23:15:47 +0000
commitefc13f4638e8f5eff09da00c3e8a58d7a5542c98 (patch)
tree37776e4456930497feab70ad946d303267680bb9
parentc83256a09ac787ce326902ee07cd03e49c2c200d (diff)
downloademacs-efc13f4638e8f5eff09da00c3e8a58d7a5542c98.tar.gz
emacs-efc13f4638e8f5eff09da00c3e8a58d7a5542c98.zip
(easy-menu-define): Don't make a defvar for nil.
(easy-menu-convert-item-1): Doc fix. (easy-menu-change): Call easy-menu-create-menu.
-rw-r--r--lisp/ChangeLog37
-rw-r--r--lisp/emacs-lisp/easymenu.el14
2 files changed, 37 insertions, 14 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b84ba450eaf..4aac41b648b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,33 @@
12003-04-03 Richard M. Stallman <rms@gnu.org>
2
3 * emacs-lisp/easymenu.el (easy-menu-define):
4 Don't make a defvar for nil.
5 (easy-menu-convert-item-1): Doc fix.
6 (easy-menu-change): Call easy-menu-create-menu.
7
8 * subr.el (read-quoted-char): Remember the input char
9 before translation thru function-key-map, and use that for unreading.
10
11 * shadowfile.el (shadow-parse-fullname):
12 Renamed from shadow-parse-fullpath.
13 (shadow-parse-name): Renamed from shadow-parse-path.
14 (shadow-make-fullname): Renamed from shadow-make-fullpath.
15 (shadow-replace-name-component): Was shadow-replace-path-component.
16 Callers of the above functions changed.
17 (shadow-expand-cluster-in-file-name): Doc fix.
18 (shadow-same-site, shadow-file-match): Doc fix.
19 (shadow-define-literal-group): Doc fix.
20
21 * kmacro.el (kmacro-end-and-call-macro): Doc fix.
22
23 * hexl.el (hexl-find-file): Ignore user's value of default-major-mode.
24
25 * files.el (hack-local-variables-prop-line): New arg MODE-ONLY.
26 (hack-local-variables): When MODE-ONLY is set, pass it along to
27 hack-local-variables-prop-line.
28
29 * delsel.el (delete-active-region): Don't explicitly deactivate mark.
30
12003-04-03 Masatake YAMATO <jet@gyve.org> 312003-04-03 Masatake YAMATO <jet@gyve.org>
2 32
3 * progmodes/etags.el: Require button.el. 33 * progmodes/etags.el: Require button.el.
@@ -221,9 +251,8 @@
221 251
2222003-03-26 Steve Youngs <youngs@xemacs.org> 2522003-03-26 Steve Youngs <youngs@xemacs.org>
223 253
224 * em-unix.el (eshell-plain-locate-behavior): Make the default the 254 * em-unix.el (eshell-plain-locate-behavior): Make the default
225 return value of `eshell-under-xemacs-p', ie, nil for GNU/Emacs and 255 nil on Emacs, t on XEmacs.
226 non-nil for XEmacs.
227 256
2282003-03-25 Stefan Monnier <monnier@cs.yale.edu> 2572003-03-25 Stefan Monnier <monnier@cs.yale.edu>
229 258
@@ -3723,7 +3752,7 @@
3723 are output with gdba in gdb-ui.el. 3752 are output with gdba in gdb-ui.el.
3724 (tooltip-strip-annotations): New function. 3753 (tooltip-strip-annotations): New function.
3725 3754
37262002-12-29 Dave Love <fx@gnu.org> 37552002-11-29 Dave Love <fx@gnu.org>
3727 3756
3728 * autoarg.el (autoarg-mode): Give it a :group. 3757 * autoarg.el (autoarg-mode): Give it a :group.
3729 3758
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 3458dfdff86..5779cd2b9d6 100644
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -148,7 +148,7 @@ as a solid horizontal line.
148 148
149A menu item can be a list with the same format as MENU. This is a submenu." 149A menu item can be a list with the same format as MENU. This is a submenu."
150 `(progn 150 `(progn
151 (defvar ,symbol nil ,doc) 151 ,(if symbol `(defvar ,symbol nil ,doc))
152 (easy-menu-do-define (quote ,symbol) ,maps ,doc ,menu))) 152 (easy-menu-do-define (quote ,symbol) ,maps ,doc ,menu)))
153 153
154;;;###autoload 154;;;###autoload
@@ -266,14 +266,8 @@ would always fail because the key is `equal' but not `eq'."
266 easy-menu-converted-items-table))) 266 easy-menu-converted-items-table)))
267 267
268(defun easy-menu-convert-item-1 (item) 268(defun easy-menu-convert-item-1 (item)
269 "Parse an item description and add the item to a keymap. 269 "Parse an item description and convert it to a menu keymap element.
270This is the function that is used for item definition by the other easy-menu 270ITEM defines an item as in `easy-menu-define'."
271functions.
272MENU is a sparse keymap i.e. a list starting with the symbol `keymap'.
273ITEM defines an item as in `easy-menu-define'.
274Optional argument BEFORE is nil or a key in MENU. If BEFORE is not nil
275put item before BEFORE in MENU, otherwise if item is already present in
276MENU, just change it, otherwise put it last in MENU."
277 (let (name command label prop remove help) 271 (let (name command label prop remove help)
278 (cond 272 (cond
279 ((stringp item) ; An item or separator. 273 ((stringp item) ; An item or separator.
@@ -460,7 +454,7 @@ the submenu named BEFORE, otherwise add it at the end of the menu.
460 454
461Either call this from `menu-bar-update-hook' or use a menu filter, 455Either call this from `menu-bar-update-hook' or use a menu filter,
462to implement dynamic menus." 456to implement dynamic menus."
463 (easy-menu-add-item nil path (cons name items) before)) 457 (easy-menu-add-item nil path (easy-menu-create-menu name items) before))
464 458
465;; XEmacs needs the following two functions to add and remove menus. 459;; XEmacs needs the following two functions to add and remove menus.
466;; In Emacs this is done automatically when switching keymaps, so 460;; In Emacs this is done automatically when switching keymaps, so