Mercurial > emacs
comparison lisp/emacs-lisp/easymenu.el @ 30209:f59674c820d9
(easy-menu-convert-item-1): Only intern if the label is a string.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 14 Jul 2000 08:43:32 +0000 |
| parents | 584fa6f665f1 |
| children | bea29075080b |
comparison
equal
deleted
inserted
replaced
| 30208:e0e295d641ba | 30209:f59674c820d9 |
|---|---|
| 352 (setq prop (cons :key-sequence (cons cache prop)))))) | 352 (setq prop (cons :key-sequence (cons cache prop)))))) |
| 353 (t (error "Invalid menu item in easymenu"))) | 353 (t (error "Invalid menu item in easymenu"))) |
| 354 ;; `intern' the name so as to merge multiple entries with the same name. | 354 ;; `intern' the name so as to merge multiple entries with the same name. |
| 355 ;; It also makes it easier/possible to lookup/change menu bindings | 355 ;; It also makes it easier/possible to lookup/change menu bindings |
| 356 ;; via keymap functions. | 356 ;; via keymap functions. |
| 357 (cons (intern name) | 357 (cons (if (stringp name) (intern name) name) |
| 358 (and (not remove) | 358 (and (not remove) |
| 359 (cons 'menu-item | 359 (cons 'menu-item |
| 360 (cons label | 360 (cons label |
| 361 (and name | 361 (and name |
| 362 (cons command prop)))))))) | 362 (cons command prop)))))))) |