diff options
| author | Richard M. Stallman | 2003-04-03 23:15:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-04-03 23:15:47 +0000 |
| commit | efc13f4638e8f5eff09da00c3e8a58d7a5542c98 (patch) | |
| tree | 37776e4456930497feab70ad946d303267680bb9 | |
| parent | c83256a09ac787ce326902ee07cd03e49c2c200d (diff) | |
| download | emacs-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/ChangeLog | 37 | ||||
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 14 |
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 @@ | |||
| 1 | 2003-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 | |||
| 1 | 2003-04-03 Masatake YAMATO <jet@gyve.org> | 31 | 2003-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 | ||
| 222 | 2003-03-26 Steve Youngs <youngs@xemacs.org> | 252 | 2003-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 | ||
| 228 | 2003-03-25 Stefan Monnier <monnier@cs.yale.edu> | 257 | 2003-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 | ||
| 3726 | 2002-12-29 Dave Love <fx@gnu.org> | 3755 | 2002-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 | ||
| 149 | A menu item can be a list with the same format as MENU. This is a submenu." | 149 | A 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. |
| 270 | This is the function that is used for item definition by the other easy-menu | 270 | ITEM defines an item as in `easy-menu-define'." |
| 271 | functions. | ||
| 272 | MENU is a sparse keymap i.e. a list starting with the symbol `keymap'. | ||
| 273 | ITEM defines an item as in `easy-menu-define'. | ||
| 274 | Optional argument BEFORE is nil or a key in MENU. If BEFORE is not nil | ||
| 275 | put item before BEFORE in MENU, otherwise if item is already present in | ||
| 276 | MENU, 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 | ||
| 461 | Either call this from `menu-bar-update-hook' or use a menu filter, | 455 | Either call this from `menu-bar-update-hook' or use a menu filter, |
| 462 | to implement dynamic menus." | 456 | to 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 |