Mercurial > emacs
comparison lisp/bindings.el @ 27048:32ebef66c1be
(make-mode-line-mouse-sensitive): Copy keymap
assigned to mode-line-mode-menu because bindings.el is dumped with
Emacs, and thus the lists used for menu-item definition will be
copied to pure space. Emacs' menu code (parse_menu_item) doesn't
like pure menu item definitions.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 30 Dec 1999 17:48:22 +0000 |
| parents | b0cf9bf5d505 |
| children | a3f5452f911e |
comparison
equal
deleted
inserted
replaced
| 27047:936229b925c8 | 27048:32ebef66c1be |
|---|---|
| 235 :active t :style toggle | 235 :active t :style toggle |
| 236 :selected (bound-and-true-p outline-minor-mode))) | 236 :selected (bound-and-true-p outline-minor-mode))) |
| 237 (define-key map [overwrite-mode] | 237 (define-key map [overwrite-mode] |
| 238 '(menu-item "Overwrite" overwrite-mode | 238 '(menu-item "Overwrite" overwrite-mode |
| 239 :active t :style toggle :selected overwrite-mode)) | 239 :active t :style toggle :selected overwrite-mode)) |
| 240 (setq mode-line-mode-menu map) | 240 (setq mode-line-mode-menu (copy-keymap map)) |
| 241 (defun mode-line-mode-menu (event) | 241 (defun mode-line-mode-menu (event) |
| 242 (interactive "@e") | 242 (interactive "@e") |
| 243 (x-popup-menu event mode-line-mode-menu))) | 243 (x-popup-menu event mode-line-mode-menu))) |
| 244 | 244 |
| 245 ;; Add menu of buffer operations to the buffer identification part | 245 ;; Add menu of buffer operations to the buffer identification part |